| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1331 人关注过本帖
标题:指导下,咋红色圆不围绕黑色圆做圆周运动??谢谢了,指导下
取消只看楼主 加入收藏
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:19 
指导下,咋红色圆不围绕黑色圆做圆周运动??谢谢了,指导下
圆周运动.zip (2.15 KB)
2014-12-09 13:39
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
这是我写的代码,可有点问题,麻烦看看了,谢谢。
程序代码:
Option Explicit
Dim xa(-360 To 360) As Double
Dim ya(-360 To 360) As Double
Const PI = 3.14159
Public Sub zuobiao()
Dim L1 As Integer
L1 = Val(Text1.Text)
Dim k1 As Integer
For k1 = 0 To 360
xa(k1) = L1 * Cos(k1 * PI / 180)
ya(k1) = L1 * Sin(k1 * PI / 180)
Next k1
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Picture1.Cls
End Sub

Private Sub Form_Load()
Picture1.Scale (-80, 80)-(80, -80)
Picture1.Circle (0, 0), 10, RGB(0, 0, 0)
Picture1.Circle (20, 0), 10, RGB(255, 0, 0)
Picture1.Line (0, 0)-(20, 0), RGB(0, 0, 0)
End Sub

Private Sub Timer1_Timer()
Call zuobiao
Dim k2 As Integer
Picture1.Circle (0, 0), 10, RGB(0, 0, 0)
Picture1.Circle (xa(k2), ya(k2)), 10, RGB(255, 0, 0)
Picture1.Line (0, 0)-(xa(k2), ya(k2)), RGB(0, 0, 0)
End Sub
2014-12-09 13:45
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
2014-12-09 13:46
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2014-12-09 13:49
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 3楼 V菜鸟V
图片附件: 游客没有浏览图片的权限,请 登录注册
2014-12-09 13:50
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
谢谢了,帮帮忙,麻烦了,谢谢了,他老是不运动,我的意思是课一看见他运动的过程,就和手表指针一样的运动,代码写好了,有点问题,期望您能指导一下,谢谢了。
2014-12-09 13:52
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 7楼 lianyicq
那怎么改一下,可以转动起来?谢谢了
2014-12-09 14:13
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 10楼 lianyicq
谢谢,麻烦您了,每次都是您帮忙,谢谢您了,这个就是上回哪个运动图,我开始搞了,嘿嘿,下回不会了,麻烦您再指导,谢谢您了,,,,
2014-12-09 14:26
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 11楼 xzlxzlxzl
谢谢,版主,嘿嘿
2014-12-09 14:27
V菜鸟V
Rank: 2
等 级:论坛游民
帖 子:97
专家分:10
注 册:2014-11-27
收藏
得分:0 
回复 11楼 xzlxzlxzl
谢谢,谢谢
2014-12-09 14:27
快速回复:指导下,咋红色圆不围绕黑色圆做圆周运动??谢谢了,指导下
数据加载中...
 
   



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

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