很急有哪位高手能帮小弟我一个vb小车运动可视化过程的有关问题，多谢
很急，有谁能帮我一个vb小车运动可视化过程的问题，在线等。谢谢
实现过程：
我要实现的是两辆小车防碰撞的过程 。 开始两小车一前一后运动。按开始按钮后， 前面的小车慢后面的小车快。当两辆小车的距离小于某一个值时，后面的小车减慢速度，防止和前面的小车碰撞。我编写好代码，但是结果是 两辆小车运行时只实现判断后的过程，前面一快一慢 ，突然变速的过程没有。我该怎么改代码。请高手指导，真的很感谢。
我编写的代码是：（image1是后面的车 image2是前面的车。用了两个事件控件分别控制）
Dim s As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
s = Image2.Left - Image1.Left
If s <= 10000 Then
Timer1.Interval = 100
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = Flase
Timer2.Enabled = Flase
End Sub
Private Sub Form_Load()
Timer1.Interval = 15
Timer1.Enabled = Flase
Timer2.Interval = 100
Timer2.Enabled = Flase
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 10
End Sub
Private Sub Timer2_Timer()
Image2.Left = Image2.Left + 10
End Sub
在线等。我该怎么改代码？
------解决方案--------------------
这种动画你用 Flash 做不简单吗？为什么要用VB来写。
通常如果真要模拟碰撞，是要考虑很多东西的，如重力、坡度、速度、阻力、风速、材料、碰撞力...
用很多的的参数对应很多学科的数学计算，不是单靠写个小程序就能做的。
如果不是这样，做出来的无非是个按照人计划的动画而已，只是这样还不如用 Flash 做动画，然后
VB 调用 Flash 控件来播放简单。如果想用程序实现动画，你的这种方式也不专业，因为画面质量
和效率很低，对动画类程序开发没有任何好处。
------解决方案--------------------
毕业设计还是作业？
------解决方案--------------------
依照初中物理即可完成构思设计
把代码放到Timer 中是正确的，只是Interval属性设置的要小些，比如：200
------解决方案--------------------
为两小车的边界分配背景中没有的颜色，各异种颜色，利用图片框的取色接口判断两种颜色是否碰撞
------解决方案--------------------
先好好鄙视一下倒粪的
------解决方案--------------------
http://cid-cd2373ebb8ae20a1.office.live.com/self.aspx/.Public/Bounce%20off%20the%20walls!.rar
------解决方案--------------------
这里有几个几何类和运动类 试试去改装一下吧
http://lib.ldong.net/ball.rar
------解决方案--------------------
“物联网在智能交通的应用”，估计你的技术还没达到这个阶层。
物联网技术涉及软件、硬件、网络方面的多种技术，主要以射频、无线通讯、互联网等
技术实现物物联网的监控操作。小到一粒沙都可以用 RFID 射频采集识别。
在基于这种技术的环境中，大多都是以单片机、嵌入式系统开发为主，至于PC客户端或
服务器端系统才会设计一些高级应用程序的开发。不过通常这类运用不会涉及到图形的
这种动画处理，只不过是些数据存储或网络通讯等应用，即使有图形方面的应用，也不
会直接涉及到碰撞控制上，因为如果靠远程网络来控制这种关乎认命的设备，那就太儿
戏了，所以最多是弄点监视大局的图形程序，而这种程序，通常也是按照游戏的开发方
式来开发，而且通常也不会用VB这种工具，甚至不会在 Windows 里搞这类开发。
然而，像这种所谓的智能应用，通常是直接运用在终端机上，而这种所谓的终端机通常
是以单片机或ARM等结构组成，很少会有PC来做这样应用控制的。所以，就算你的程序
弄好了，也和你的“物联网在智能交通的应用”没什么关系，完全是和物联网没什么关系
的东西。
实现过程：
我要实现的是两辆小车防碰撞的过程 。 开始两小车一前一后运动。按开始按钮后， 前面的小车慢后面的小车快。当两辆小车的距离小于某一个值时，后面的小车减慢速度，防止和前面的小车碰撞。我编写好代码，但是结果是 两辆小车运行时只实现判断后的过程，前面一快一慢 ，突然变速的过程没有。我该怎么改代码。请高手指导，真的很感谢。
我编写的代码是：（image1是后面的车 image2是前面的车。用了两个事件控件分别控制）
Dim s As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
s = Image2.Left - Image1.Left
If s <= 10000 Then
Timer1.Interval = 100
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = Flase
Timer2.Enabled = Flase
End Sub
Private Sub Form_Load()
Timer1.Interval = 15
Timer1.Enabled = Flase
Timer2.Interval = 100
Timer2.Enabled = Flase
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 10
End Sub
Private Sub Timer2_Timer()
Image2.Left = Image2.Left + 10
End Sub
在线等。我该怎么改代码？
------解决方案--------------------
这种动画你用 Flash 做不简单吗？为什么要用VB来写。
通常如果真要模拟碰撞，是要考虑很多东西的，如重力、坡度、速度、阻力、风速、材料、碰撞力...
用很多的的参数对应很多学科的数学计算，不是单靠写个小程序就能做的。
如果不是这样，做出来的无非是个按照人计划的动画而已，只是这样还不如用 Flash 做动画，然后
VB 调用 Flash 控件来播放简单。如果想用程序实现动画，你的这种方式也不专业，因为画面质量
和效率很低，对动画类程序开发没有任何好处。
------解决方案--------------------
毕业设计还是作业？
------解决方案--------------------
依照初中物理即可完成构思设计
把代码放到Timer 中是正确的，只是Interval属性设置的要小些，比如：200
------解决方案--------------------
为两小车的边界分配背景中没有的颜色，各异种颜色，利用图片框的取色接口判断两种颜色是否碰撞
------解决方案--------------------
先好好鄙视一下倒粪的
------解决方案--------------------
http://cid-cd2373ebb8ae20a1.office.live.com/self.aspx/.Public/Bounce%20off%20the%20walls!.rar
------解决方案--------------------
这里有几个几何类和运动类 试试去改装一下吧
http://lib.ldong.net/ball.rar
------解决方案--------------------
“物联网在智能交通的应用”，估计你的技术还没达到这个阶层。
物联网技术涉及软件、硬件、网络方面的多种技术，主要以射频、无线通讯、互联网等
技术实现物物联网的监控操作。小到一粒沙都可以用 RFID 射频采集识别。
在基于这种技术的环境中，大多都是以单片机、嵌入式系统开发为主，至于PC客户端或
服务器端系统才会设计一些高级应用程序的开发。不过通常这类运用不会涉及到图形的
这种动画处理，只不过是些数据存储或网络通讯等应用，即使有图形方面的应用，也不
会直接涉及到碰撞控制上，因为如果靠远程网络来控制这种关乎认命的设备，那就太儿
戏了，所以最多是弄点监视大局的图形程序，而这种程序，通常也是按照游戏的开发方
式来开发，而且通常也不会用VB这种工具，甚至不会在 Windows 里搞这类开发。
然而，像这种所谓的智能应用，通常是直接运用在终端机上，而这种所谓的终端机通常
是以单片机或ARM等结构组成，很少会有PC来做这样应用控制的。所以，就算你的程序
弄好了，也和你的“物联网在智能交通的应用”没什么关系，完全是和物联网没什么关系
的东西。