鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站制作教程 > vbs > >

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

来源:互联网 作者:佚名 时间:2015-10-15 13:30
第一步,绘制对象:用函数drawcar()画 赛车 ,drawway(n)画跑道的第n层。 第二步,接受控制:Form的KeyPReview属性要设为true,在Form_KeyPress函数中通过改变全局变量cx来控制 赛车 的位置。 第三步, 游戏 循环:作为即时 游戏 ,必须要有一个Timer,并在
第一步,绘制对象:用函数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

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

->

网友评论
<