学校介绍 新闻动态
BENET(网络)课程 ACCP(软件)课程 师资力量 就业广场 在线咨询 学员天地 证书查询 技术论坛
免费讲座
日期: 周三、周五19:00、周日15:00
地点: 南山科技园深南花园
内容: IT职业规划
主讲: 宁方明(高级讲师)
电话: 0755-26953168
0755-26952668
开班计划
开班时间 类型 状态
9月21日 脱产班S2T03 热招
9月27日 晚班W05 热招
9月11日 脱产班T07 热招
9月17日 周日班 热招
9月23日 周六班 热招
10月23日 晚班S2W01 热招
 

基础64位技术名词解释

简单的游戏往往更耐玩,就比如伴我度过高考的赛车游戏:一切都是方块,所谓的赛车也只是四个方块。

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

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

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

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

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

Const D = 100 '方格的宽度
Const BT = 3000 '跑道底部的y坐标
Dim l1(22) As Integer '每层跑道左边有几个方块
Dim l2(22) As Integer '每层跑道右边有几个方块
Dim cx As Single '赛车的在x轴的位置

Private Sub Command1_Click()

 cx = Width / 2 - 3 * D / 2
 cy = Height - D
 drawcar
 For i = 1 To 20
  l1(i) = 0
  l2(i) = 0
  drawway (i)
 Next i
 Timer1.Enabled = True

End Sub

Private Sub drawcar()

 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

End Sub

Private Sub drawway(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

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

 Select Case KeyAscii
  Case Asc("a"), Asc("A")
   cx = cx - D
  Case Asc("s"), Asc("S")
   cx = cx + D
 End Select

End Sub

Private Sub Timer1_Timer()
 Randomize
 For i = 1 To 19
  l1(i) = l1(i + 1)
  l2(i) = l2(i + 1)
  drawway (i)
 Next i
 Do
  l1(20) = Int(Rnd * 5)
  l2(20) = Int(Rnd * 5)
 Loop Until ((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

End Sub

Private Sub test()

 If 3.5*D-Width/2+cx<l1(1)*D Then Timer1.Enabled=False
 If 3.5*D-Width/2+cx+D<l1(2)*D Then Timer1.Enabled=False
 If 3.5*D-(cx+3*D-Width/2)<l2(1)*D Then Timer1.Enabled=False
 If 3.5*D-(cx+2*D-Width/2)<l2(2)*D Then Timer1.Enabled=False

End Sub 
无标题文档
版权所有: 深圳市中青信息技术职业培训学校
学校地址: 南山区学府路西部电子时代广场四楼(一校区),南山区科技园深南花园C座三楼(二校区)
咨询热线: 0755-26953168 26952668   传真: 0755-26747580
就业推荐: 0755-26954947, 宋老师:sl@sz-benet.net
长期为企业推荐软件、网络等IT人才,欢迎联系!
咨询邮箱: 唐老师: txm_benet@126.com,王老师 naomibao@sohu.com,陈老师  szqll@126.com
  粤ICP备06033100  μ??÷?ê??×é?ˉACCP  深圳中青QQ:574223402