用VB6.0设计简易赛车游戏

　　第二步，接受控制：Form的KeyPreview属性要设为true，在Form_KeyPress函数中通过改变全局变量cx来控制赛车的位置。

　　第三步，游戏循环：作为即时游戏，必须要有一个Timer，并在其事件Timer1_Timer()中绘制所有对象和进行碰撞检测。本例中，绘图部分写在了Timer1_Timer()中，碰撞测试放在了test()中。

　　……这也是所有即时游戏所共通的框架。当然，我们往往还是根据具体的设计作一些变通，发挥一些技巧……比如这里设计的跑道是随机产生的的，这就要通过一点技巧以便既让玩家感到挑战，又不至于出现不可逾越的难关……

　　下面是全部源代码，窗体上只需放个按钮Command1就行了！

ConstD=100注释：方格的宽度
　　Constbt/16.shtml'target='_blank'class='article'>BT=3000注释：跑道底部的y坐标
　　Diml1(22)AsInteger注释：每层跑道左边有几个方块
　　Diml2(22)AsInteger注释：每层跑道右边有几个方块
　　DimcxAsSingle注释：赛车的在x轴的位置

PrivateSubCommand1_Click()

　cx=Width/2-3*D/2
　　　cy=Height-D
　　　drawcar
　　　Fori=1To20
　　l1(i)=0
　　l2(i)=0
　　drawway(i)
　　　Nexti
　　　Timer1.Enabled=True

EndSub

PrivateSubdrawcar()

　Line(cx,BT-100)-Step(3*D,D),BackColor,BF
　　　Line(cx D,BT-200)-Step(D,D),BackColor,BF注释：先擦
　　　Line(cx,BT-100)-Step(3*D,D),RGB(225,0,0),BF
　　　Line(cx D,BT-200)-Step(D,D),RGB(225,0,0),BF

EndSub

PrivateSubdrawway(n)

　Line(Width/2-3*D/2-2*D,BT-n*D)-Step(7*D,D),BackColor,BF
　　注释：先擦后画
　　　Line(Width/2-3*D/2-2*D,BT-n*D)-Step(l1(n)*D,D),,BF
　　　Line(Width/2-3*D/2 5*D,BT-n*D)-Step(-l2(n)*D,D),,BF

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

　SelectCaseKeyAscii
　　CaseAsc("a"),Asc("A")
　　　cx=cx-D
　　CaseAsc("s"),Asc("S")
　　　cx=cx D
　　　EndSelect

EndSub

PrivateSubTimer1_Timer()
　　　Randomize
　　　Fori=1To19
　　l1(i)=l1(i 1)
　　l2(i)=l2(i 1)
　　drawway(i)
　　　Nexti
　　　Do
　　l1(20)=Int(Rnd*5)
　　l2(20)=Int(Rnd*5)
　　　LoopUntil((l1(20) l2(20)<=4)And(l1(20)-l1(19)<=1)And_
　　(l2(20)-l2(19)<=1)And(l1(19) l2(20)<=4)And_
　　(l1(20) l2(19)<=4))注释：这里生成新一层跑道，
　　注释：注意要筛去玩家不可能通过的情况！
　　drawway(20)
　　注释：以上画出跑道
　　　drawcar
　　　test

EndSub

PrivateSubtest()

　If3.5*D-Width/2 cx　If3.5*D-Width/2 cx D　If3.5*D-(cx 3*D-Width/2)　If3.5*D-(cx 2*D-Width/2)
　　EndSub