扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
'添加一个按钮，模拟小车，并命名：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
启动程序，就可以了
如果不懂，可以追问
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网