运动轨迹

文雷发布于 2014-12-20 23:43， 651 次点击

Private Sub Command1_Click()
Form1.Scale (-50, 50)-(50, -50)
Line (-50, 0)-(50, 0)
Line (0, 50)-(0, -50)
Const PI = 3.14159
Dim r, x, y, x0, y0
r = 18
y0 = 0
x0 = 0
n = Val(Text1)
st = PI / n
For i = 0 To 2 * PI Step st
x = r * Cos(i) + x0
y = r * Sin(i) + y0
Circle (x, y), r * 0.9
Next i
End Sub
请帮忙看看所画圆的圆心轨迹为什么不是圆的？

4 回复

txxb2014-12-21 08:53

动起来了吗？快的看不清吧？

风吹过b2014-12-21 12:42

不圆的原因在于你的显示器和系统。

我们的显示器上的像素与你使用坐标的长宽比并不相同的。就像视频的长宽比有 1.25：1 ，1.5：1 一样的。这个长宽比就要是你进行校正的。

而你使用系统命令画的圆，系统会自动校正。

lianyicq2014-12-22 09:00

不圆的原因在于Form1.Scale (-50, 50)-(50, -50)
如果form的长宽比不是1:1。以上命令执行后，就不能按比例作图。

txxb2014-12-22 09:49

如何得到1:1的正方形窗体？除去标题栏及边框后的
Form1.ScaleWidth=Form1.ScaleHeight 还是 Form1.Width=Form1.Height？？？