vb.net运动控制小车 运动控制器编程

求大大帮忙VB编著一个程序，让一个小车先加速，后匀速，最后减速的运行过程

'添加一个按钮，模拟小车，并命名：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基础，我想买个4轴运动控制卡并且用vb.net做专用特色控制系统。

用vb.net完全没有问题，挺简单的，包括常用的插补功能，关键是板卡要提供vb.net的SDK，常有的研华，雷赛等都支持vb.net

怎么用VB实现小车移动？ 现场轨道上有一小车，移动距离0-10米，对应屏幕上大约十厘米，怎么让画面

创建一个Timer控件，取名Timer1，然后加入以下代码

Private Sub Form_Load()

Timer1.Interval = 10                   '设置小车每10毫秒移动一次

End Sub

Private Sub Timer1_Timer()

小车.Left = 小车.Left + 50              '小车每次移动都往右移50缇

End Sub

启动程序，就可以了

如果不懂，可以追问

本文标题：vb.net运动控制小车 运动控制器编程
网页链接：http://mswzjz.cn/article/dosejcp.html