用VB编写一个模拟汽车驾驶的程序
用VB编写一个模拟汽车驾驶的程序 怎么编啊?大家给点意见好吗? --------------------编程问答-------------------- 极品飞车? --------------------编程问答-------------------- 哈哈....这个算吗 ?'打开一个空的Form1窗体即可
Option Explicit
Private WithEvents Timer1 As Timer
Dim i%, j%, x1%, y1%, blockw%, blockh%, carX%, carY%, pcolor$
Dim N%, L%, C$
Const Captions As String = "烟花飘飘的小汽车"
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 2
Me.Width = 5120
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.Cls
carY = Me.Height \ 2: blockw = 500: blockh = 200
x1 = 0: y1 = carY - 230
Set Timer1 = Controls.Add("vb.timer", "timer1")
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Me.Cls
For i = 1 To 12
pcolor = IIf(i Mod 2 = 0, vbBlue, vbRed)
Line (carX - j, carY)-(carX - j + blockw, carY + blockh), pcolor, BF
carX = IIf(carX + 500 >= 6000, 0, carX + 500)
Next i
j = IIf(j + 100 > 900, 0, j + 100)
Line (x1, y1)-(x1 + 500, y1 + 100), , B
Me.Circle (x1 + 100, y1 + 150), 50
Me.Circle (x1 + 380, y1 + 150), 50
x1 = IIf(x1 + 50 >= 5000, -500, x1 + 50)
L = Int(Me.Width / 220)
C = String(L, " ") & Captions & String(L, " ")
N = N + 1
If N > Len(C) - L Then N = 1
Me.Caption = Mid(C, N, L)
End Sub
--------------------编程问答-------------------- 哈哈,刘老师的不错 --------------------编程问答-------------------- 果然是个小汽车.
不过楼主好像失望了 ... :-( --------------------编程问答-------------------- 哈哈, 要看大汽车的话看这里, 这可是浙江省政府与市政府以及交通厅看过的流程演示图, 这也是我目前的重点项目.
附 VB动画源代码
http://cbm666.com/demo.exe --------------------编程问答-------------------- 非常佩服高手!呵呵.不过我是想用键盘上的一些键来控制一个小车的前进和转向等动作啊.当然没有极品飞车那么难.就是用VB搞条路,再搞个小车,用键盘控制小车在路上走而已了.哈哈.谢谢了.大侠出手相助一下啦
补充:VB , 资源