| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 651 人关注过本帖
标题:运动轨迹
只看楼主 加入收藏
文雷
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2014-5-3
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
运动轨迹
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
请帮忙看看所画圆的圆心轨迹为什么不是圆的?
搜索更多相关主题的帖子: Text1 
2014-12-20 23:43
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
动起来了吗?快的看不清吧?
2014-12-21 08:53
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
不圆的原因在于你的显示器和系统。

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

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

授人于鱼,不如授人于渔
早已停用QQ了
2014-12-21 12:42
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
不圆的原因在于Form1.Scale (-50, 50)-(50, -50)
如果form的长宽比不是1:1。以上命令执行后,就不能按比例作图。

大开眼界
2014-12-22 09:00
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
如何得到1:1的正方形窗体?除去标题栏及边框后的
Form1.ScaleWidth=Form1.ScaleHeight 还是 Form1.Width=Form1.Height???
2014-12-22 09:49
快速回复:运动轨迹
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026043 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved