您所在位置：主题：关于坐标的问题
wulei0301
[专家分：0] 发布于 2010-11-03 21:54:00
有这样一个题：单击窗体，以窗体中心为起点，随机画50条直线，线宽设置为2，颜色使用QBColor函数产生。
Private Sub Form_click()
Randomize
[color=FF0000]Scale (-1, 1)-(1, -1)[/color]
DrawWidth = 2
For i = 1 To 50
x = Rnd * 2 - 1
y = Rnd * 2 - 1
Line (0, 0)-(x, y), QBColor(Int(Rnd * 15 + 1))
Next i
End Sub
请问，Scale (-1, 1)-(1, -1)中的坐标如何理解？
第二个问题：
Private Sub Form_click()
Const pi = 3.1415926
ScaleWidth = 100
ScaleHeight = 100
Circle (30, 75), 10, , [color=FF0000]-0.5 * pi, -0.25 * pi[/color]
Circle (70, 75), 10, , [color=FF0000]-0.25 * pi, -0.75 * pi[/color]
Circle (70, 75), 10, , [color=FF0000]1.25 * pi, 1.75 * pi[/color]
End Sub
其中，红颜色数字代表的是什么意思？
谢谢各位了！
Private Sub Form_click()
Randomize
[color=FF0000]Scale (-1, 1)-(1, -1)[/color]
DrawWidth = 2
For i = 1 To 50
x = Rnd * 2 - 1
y = Rnd * 2 - 1
Line (0, 0)-(x, y), QBColor(Int(Rnd * 15 + 1))
Next i
End Sub
请问，Scale (-1, 1)-(1, -1)中的坐标如何理解？
第二个问题：
Private Sub Form_click()
Const pi = 3.1415926
ScaleWidth = 100
ScaleHeight = 100
Circle (30, 75), 10, , [color=FF0000]-0.5 * pi, -0.25 * pi[/color]
Circle (70, 75), 10, , [color=FF0000]-0.25 * pi, -0.75 * pi[/color]
Circle (70, 75), 10, , [color=FF0000]1.25 * pi, 1.75 * pi[/color]
End Sub
其中，红颜色数字代表的是什么意思？
谢谢各位了！
