很急，有谁能帮我一个vb小车运动可视化过程的问题，在线等。谢谢

Question

本帖最后由 jl10402 于 2011-05-04 11:26:45 编辑

Answer 1

这种动画你用 Flash 做不简单吗？为什么要用VB来写。
通常如果真要模拟碰撞，是要考虑很多东西的，如重力、坡度、速度、阻力、风速、材料、碰撞力...
用很多的的参数对应很多学科的数学计算，不是单靠写个小程序就能做的。
如果不是这样，做出来的无非是个按照人计划的动画而已，只是这样还不如用 Flash 做动画，然后
VB 调用 Flash 控件来播放简单。如果想用程序实现动画，你的这种方式也不专业，因为画面质量
和效率很低，对动画类程序开发没有任何好处。

Answer 2

毕业设计  都做到一半咯 不懂还要不要学一个flash软件 。

Answer 3

依照初中物理即可完成构思设计
把代码放到Timer 中是正确的，只是Interval属性设置的要小些，比如：200

Answer 4

～～～～～～～～～～～～～那怎么改。现在车是能动的，就是我点开始按钮，车就动。如果原先车摆放的距离小车就是执行if后面的代码  亮亮车慢慢走。如果距离大 车就一直是后面快前面慢 一直走，然后后面的车就穿过前面的车 超过去 直到点结束才结束。我现在想实现的是 前面车一块一慢  当 符合变速条件是就变速  但是if语句好像就执行判断的部分。我换过whlie……Wend 但是循环体有Timer1.Interval = 100（变速语句)就会变成死循环。因为Timer1.Interval = 100就是设置了多少时间执行一次（我自己猜是因为这样所以死循环）whlie……Wend 是判断符合条件么 符合就循环执行循环体，不符合就执行后面的语句。

Answer 5

在？China？，或者居里夫人时代，可能就是那几个人的事。你可以参考下 Bounce off the walls! ，来源外国。

Answer 6

http://cid-cd2373ebb8ae20a1.office.live.com/self.aspx/.Public/Bounce%20off%20the%20walls!.rar

Answer 7

这里有几个几何类和运动类 试试去改装一下吧
http://lib.ldong.net/ball.rar

Answer 8

“物联网在智能交通的应用”，估计你的技术还没达到这个阶层。
物联网技术涉及软件、硬件、网络方面的多种技术，主要以射频、无线通讯、互联网等
技术实现物物联网的监控操作。小到一粒沙都可以用 RFID 射频采集识别。
在基于这种技术的环境中，大多都是以单片机、嵌入式系统开发为主，至于PC客户端或
服务器端系统才会设计一些高级应用程序的开发。不过通常这类运用不会涉及到图形的
这种动画处理，只不过是些数据存储或网络通讯等应用，即使有图形方面的应用，也不
会直接涉及到碰撞控制上，因为如果靠远程网络来控制这种关乎认命的设备，那就太儿
戏了，所以最多是弄点监视大局的图形程序，而这种程序，通常也是按照游戏的开发方
式来开发，而且通常也不会用VB这种工具，甚至不会在 Windows 里搞这类开发。
然而，像这种所谓的智能应用，通常是直接运用在终端机上，而这种所谓的终端机通常
是以单片机或ARM等结构组成，很少会有PC来做这样应用控制的。所以，就算你的程序
弄好了，也和你的“物联网在智能交通的应用”没什么关系，完全是和物联网没什么关系
的东西。

Answer 9

这里发言，表示您接受了CSDN社区的用户行为准则。
请对您的言行负责，并遵守中华人民共和国有关法律法规,尊重网上道德。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。

Answer 10

我的问题自己解决好啦。谢谢大家。谢谢。发一段我的代码，对谁有用谁可以看看。
Dim s As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = Flase
Timer2.Enabled = Flase
End SubPrivate Sub Form_Load()
Timer1.Interval = 15
Timer1.Enabled = Flase
Timer2.Interval = 100
Timer2.Enabled = Flase
End SubPrivate Sub Timer1_Timer()
Timer1.Interval = 10
Image1.Left = Image1.Left + 10
s = Image2.Left - Image1.Left
If s <= 2000 Then
Timer1.Interval = 100
Image1.Left = Image1.Left + 10
End If
End SubPrivate Sub Timer2_Timer()
Image2.Left = Image2.Left + 10
End Sub

Answer 11

这种动画你用 Flash 做不简单吗？为什么要用VB来写。
通常如果真要模拟碰撞，是要考虑很多东西的，如重力、坡度、速度、阻力、风速、材料、碰撞力...
用很多的的参数对应很多学科的数学计算，不是单靠写个小程序就能做的。
如果不是这样，做出来的无非是个按照人计划的动画而已，只是这样还不如用 Flash 做动画，然后
VB 调用 Flash 控件来播放简单。如果想用程序实现动画，你的这种方式……

Answer 12

稍微看了下，发现你的
If s <= 10000 Then
Timer1.Interval = 100
End If只会在你单击的时候判断。要加到timer里去。