重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'添加一个按钮,模拟小车,并命名:Command1
创新互联公司服务项目包括汝南网站建设、汝南网站制作、汝南网页制作以及汝南网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,汝南网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到汝南省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
'小车速度
Dim 速度 As Integer
'速度上限
Dim 上限 As Integer
'加速状态(True减速False加速)
Dim 状态 As Boolean
Private Sub Form_Load()
速度 = 1
上限 = 100
'设置匀速时间(毫秒:1秒=1000毫秒)
Timer2.Interval = 2000
'设置运动控制时钟为30毫秒(即FPS:60)
Timer1.Interval = 30
End Sub
Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 速度
If 状态 Then
If 速度 1 Then 速度 = 速度 - 1
Else
If 速度 = 上限 Then
速度 = 速度 + 1
Else
If Timer2.Enabled = False Then Timer2.Enabled = True
End If
End If
End Sub
Private Sub Timer2_Timer()
状态 = True
End Sub
用vb.net完全没有问题,挺简单的,包括常用的插补功能,关键是板卡要提供vb.net的SDK,常有的研华,雷赛等都支持vb.net
创建一个Timer控件,取名Timer1,然后加入以下代码
Private Sub Form_Load()
Timer1.Interval = 10 '设置小车每10毫秒移动一次
End Sub
Private Sub Timer1_Timer()
小车.Left = 小车.Left + 50 '小车每次移动都往右移50缇
End Sub
启动程序,就可以了
如果不懂,可以追问