用戶名:  密碼:  驗證碼: 驗證碼  注冊  找回
RSS
無雙網
 2019年10月17日 星期四  您現在位于: 首頁 → 技術文欄 → 用VB6.0設計簡易賽車游戲-網站開發(其它相關:用VB6.0...

用VB6.0設計簡易賽車游戲

2008年04月18日  無雙網  出處:中國學習聯盟,CSDN
單的游戲往往更耐玩,就比如伴我度過高考的賽車游戲:一切都是方塊,所謂的賽車也只是四個方塊。

  第一步,繪制對象:用函數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 

 (本文已被瀏覽 19573 次)
 發布人:asp126
 → 推薦給我的好友
上篇文章:能否判斷動態數組有沒有被分配過
下篇文章:用vb6的ActiveX控件實現異步下載
發表評論
  → 評論內容 (點擊查看)   共0條評論,每頁顯示5條評論   瀏覽所有評論
(沒有相關評論)
  → 發表我的評論 (點擊發表)
熱門文章
 保存webbrowser中的HTML內...
 用VB6.0設計簡易賽車游戲
 MSFlexGrid使用技巧一例
 游戲對照表
 Win2003+Discuz!5.5+II...
 添加紅月裝備的詳細教程 (包括裝備 武...
 全部DLL下載
 在Delphi里播放Flash
 用vb6的ActiveX控件實現異步下...
 能否判斷動態數組有沒有被分配過
最新文章
 [ODBC SQL Server Driv...
 評論:115網盤的何去何從
 我科學家實現百公里量級自由空間量子隱形...
 中國智能手機出貨量占全球27%居世界之...
 Gartner:2012 第二季度西歐 P...
 [多圖]華山論劍:當今在世的智商最高的...
 三星獲出租車服務系統專利 可快速查看駕...
 [多圖]15項可能延續到2030年的科...
 分析稱蘋果三星專利大戰輸贏已成定論
 Google終獲云操作系統專利
 網站留言· 友情鏈接·與我在線·網站地圖聯系我們·管理·TOP 
 陜ICP備14011112號  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.016s, 8 queries, 35 Cache,0 Online  
福建11选5遗漏