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

　2006-02-27 21:14:06　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊洪崷顓涙嫛闁稿妫濋幆鈧い蹇撴祩濡嫰姊洪崫鍕拱婵炲弶岣块幑銏犫攽婵犲嫮鏉搁梺鍝勬川婵兘鎮伴妷鈺傗拻濞达絽鎼敮璺侯熆閻熷府鏀荤紒鍌氱Т楗即宕煎锝呬壕闁哄啫鐗嗙粈鍐┿亜韫囧海顦﹀ù婊堢畺閺屻劌鈹戦崱娑扁偓妤€顭胯閸犳牠婀侀梺缁樕戦悷銉р偓姘煎枤缁粯銈ｉ崘鈺冨幈濡炪倖鍔戦崐鏇㈠几鎼淬劍鐓熼煫鍥ь儏閸旀粓鏌曢崶褍顏€殿喗娼欒灒闁告繂瀚濠碉紕鍋戦崐鎴﹀垂濞差亝鍋￠柍鍝勬噹缁犳牠鏌嶉埡浣告殲闁稿海鍠栭弻鏇㈠炊瑜嶇花濠氭煙閸戙倖瀚�

核心提示：第一步，绘制对象：用函数drawcar()画赛车，用VB6.0设计简易赛车游戏，drawway(n)画跑道的第n层，第二步，这就要通过一点技巧以便既让玩家感到挑战，又不至于出现不可逾越的难关……下面是全部源代码，接受控制：Form的KeyPReview属性要设为true，在Form_KeyPress函数中通过改变全局变

第一步，绘制对象：用函数drawcar()画赛车，drawway(n)画跑道的第n层。

第二步，接受控制：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