用VB程序实现曲柄连杆机构运动

4星(超过85%的资源)
所需积分/C币:30 2011-04-14 10:47:30 2KB TEXT/PLAIN
27
收藏 收藏
举报

程序代码 '新建窗体,添加command1,label1,hscroll1,timer1,picture1 Const pi = 3.1415926 Dim angle As Integer Private Sub Form_Load() '调整空间尺寸,位置及初始参数 Me.ScaleMode = 3 Me.Caption = "曲柄滑块机构的演示" Me.Width = 5000 Me.Height = 3500 Picture1.ScaleMode = 3 Picture1.AutoRedraw = True Picture1.Move 0, 0, Me.ScaleWidth, 150 Command1.Caption = "开始(&B)" Command1.Move 20, 160, 70, 30 Label1.Caption = "速度:" Label1.Move 120, 170, 100, 30 HScroll1.Min = 1 HScroll1.Max = 20 HScroll1.Move 160, 160, 140, 30 Timer1.Interval = 20 Timer1.Enabled = False End Sub

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
lingbo322 分太高了~用处还是有的
2012-11-27
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
关注 私信
上传资源赚钱or赚积分
最新推荐
用VB程序实现曲柄连杆机构运动 30积分/C币 立即下载
1/0