vb課程設(shè)計-- 基于vb語言的賽車小游戲

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：29 大小：423.50KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩28頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　《VB課程設(shè)計》　　系統(tǒng)簡介　　背景與意義　　由于現(xiàn)在跑酷游戲非常流行，其快餐的游戲方式符合了當今人們的娛樂思維。簡潔傻瓜的操作方式與記錄系統(tǒng)的引入更是刺激了人們對其的熱情?；?/p>

2、此，我便想用VB在PC端上做一個類似的跑酷小游戲，并且加入一些較為有趣的元素，使玩家能在這款小游戲中找到些許樂趣?；诖讼敕ǎ疫x擇了以公路賽車為背景素材，制作一款簡介的跑酷小游戲。游戲中，玩家操作賽車躲避途中隨即出現(xiàn)的車輛，行駛的距離越長得分越高，如若撞到途中車輛游戲結(jié)束。在設(shè)計程序中，為了實現(xiàn)車輛行駛的效果，使用了計時器，通過計時器短周期移動背景，產(chǎn)生車輛在向前行駛的效果。在程序中，額外加入了不同的車輛外形供玩家選擇，增加了趣味性，

3、并且寫入了計分系統(tǒng)與道具系統(tǒng)，使游戲更有目標性與可玩性。　　需求分析　　既然是一個游戲，首先必須能與人互動，因此程序必須引入接受鍵盤和鼠標信息輸入的功能。其次，游戲中總是要有動畫效果的，這個可以通過VB中的定時器實現(xiàn)。對于其他的一些額外功能，通過VB的一些基礎(chǔ)功能、寫與讀外部文件等方式也均能實現(xiàn)，如記錄系統(tǒng)，便通過讀

4、、寫外部TXT文件內(nèi)容實現(xiàn)。　　二.功能介紹　　程序的功能有：　　①賽車游戲系統(tǒng)：玩家可以通過鍵盤上的左右方向鍵操作賽車躲避路途中的障礙，在途中賽車的速度會隨著時間越來越快；　?、谟嫹峙c記錄系統(tǒng)：

5、隨著游戲時間的增長，玩家在游戲中得到得分數(shù)會越來越高。同時游戲中有一個歷史分數(shù)系統(tǒng)，會記錄下玩家所得的最高分與玩家的姓名、創(chuàng)造紀錄的時間，并且玩家可以在菜單中的“記錄”選項中查看；　?、弁庥^系統(tǒng)：玩家可以選擇不同的賽車外觀進行游戲；　?、艿谰呦到y(tǒng)：游戲途中會隨機出現(xiàn)功能不同的道具，不同的道具有不同的功能。<

6、b>　　三.程序設(shè)計　　界面設(shè)計　　主界面：　　在游戲制作中，主要想采用比較清新簡單的風格，因此主界面整體設(shè)計采用黑白簡潔的色調(diào)，由于對VB自帶按鈕外觀不是很滿意，自行通過picturebox控件制作了一主界面按

7、鈕。　　車庫界面：　　游戲中內(nèi)置兩種不同風格外貌的車體供玩家選擇，單擊按鍵即可完成更換。　　游戲說明界面：　　記錄界面：<p&g

8、t;　　顯示創(chuàng)造紀錄的玩家姓名，最高分與創(chuàng)紀錄的時間。　　游戲界面：　　創(chuàng)新紀錄時的界面：　　游戲界面也是才有黑白風格，所有車子的外貌風格比較童真（=。= 我自己畫的）。　　功能

9、設(shè)計　　代碼中變量：　　Dim lr '左右控制變量　　Dim ud '上下控制變量　　Dim a '游戲開始倒計時變量　　Dim b '調(diào)

10、試變量　　Dim max '最高分記錄系統(tǒng)變量　　Dim buff '道具系統(tǒng)變量　　Dim mus '音效變量　　Dim muss '音效變量　　Label10.Caption:游戲速度</

11、p>　　Label7.Caption：玩家得分　　Label1.Caption：玩家操作賽車左右移動速度　?、倩拒囕v移動與操作功能：　　主要通過TIMER1實現(xiàn)，Label10中的數(shù)字為車輛移動速度，通過定時器不斷移動程序中的相關(guān)圖片，產(chǎn)生汽車跑動的效果。路途上的車輛通過Random

12、ize函數(shù)產(chǎn)生隨機數(shù)，使其出現(xiàn)在隨機位置，當然一定是從窗口上方出現(xiàn)，移動到窗口最下方然后消失。玩家賽車的控制，通過KEYDOWN與KEYUP實現(xiàn)，定義控制全局變量lr，來控制玩家賽車左右移動。代碼如下：　　'鍵盤控制：　　Private Sub Form_KeyDown(KeyCode As Integer,

13、 Shift As Integer)　　If KeyCode = vbKeyLeft Then lr = "left"　　If KeyCode = vbKeyRight Then lr = "right"　　If KeyCode = vbKeyUp Then ud = &q

14、uot;down"　　If KeyCode = vbKeyDown Then ud = "up"　　End Sub　　Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)<

15、/p>　　If KeyCode = vbKeyLeft Then lr = "leftstop"　　If KeyCode = vbKeyRight Then lr = "rightstop"　　If KeyCode = vbKeyUp Then ud = ""<

16、/p>　　If KeyCode = vbKeyDown Then ud = ""　　End Sub　　‘定時器控制：　　Private Sub Timer1_Timer()

17、;　　Label7.Caption = Label7.Caption + 1 '計分　　Shape1(0).Top = Shape1(0).Top + Label10.Caption + 60 '道路中心線移動動畫　　If Shape1(0).Top > Form1.Height Then Shape1(0).

18、Top = 0 - Shape1(0).Height　　Shape1(1).Top = Shape1(1).Top + Label10.Caption + 60　　If Shape1(1).Top > Form1.Height Then Shape1(1).Top = 0 - Shape1(1).Height

19、;　　'撞車記錄成績與吃道具代碼：　　If car.Left + car.Width > Picture3(0).Left And car.Left < Picture3(0).Left + Picture3(0).Width And car.Top + car.Height > Picture3(0).Top And car.Top < Picture3(0).

20、Top + Picture3(0).Height Then　　Label7.Caption = Label7.Caption + 50’加分道具　　Picture3(0).Left = 9000’吃到道具后使道具消失　　End If

21、　If car.Left + car.Width > Picture3(1).Left And car.Left < Picture3(1).Left + Picture3(1).Width And car.Top + car.Height > Picture3(1).Top And car.Top < Picture3(1).Top + Picture3(1).Height Then&l

22、t;p>　　buff = 1’加速道具　　Picture3(1).Left = 9000’吃到道具后使道具消失　　End If　　For s = 0 To 2 '判斷撞車代碼　　If car.Left + car.Wid

23、th - 100 > Picture1(s).Left And car.Left + 100 < Picture1(s).Left + Picture1(s).Width And car.Top + car.Height > Picture1(s).Top + 200 And car.Top + 200 < Picture1(s).Top + Picture1(s).Height Then

24、　　Timer1.Enabled = False　　Timer3.Enabled = False　　Frame2.Visible = True　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC3.wav" '游戲結(jié)束更

25、換音效　　If mus = 0 Then '判斷背景音樂是開啟還是關(guān)閉　　WindowsMediaPlayer1.Controls.stop　　End If　　If mus = 1 Then<p&

26、gt;　　muss = 0　　mus = 0　　End If　　Label6.Caption = Label7.Caption　　If Val(Label6.

27、Caption) > Val(Labelmax.Caption) Then　　Labelmax.Caption = Label6.Caption　　Label11.Visible = True　　max = Labelmax.Caption　　Open App.Pa

28、th & "\point.txt" For Output As #1　　Write #1, max　　Close #1　　nn = InputBox("創(chuàng)造了新紀錄!請問您尊姓大名!", " ")</p

29、>　　tt = Format(Date)　　Open App.Path & "\name.txt" For Output As #1　　Write #1, nn　　Write #1, tt　　Clo

30、se #1　　End If　　If Picture1(s).BackColor = RGB(0, 200, 0) Then　　Timer1.Enabled = False　　Timer3.Enabled = Fal

31、se　　Frame2.Visible = True　　Label6.Caption = Label7.Caption　　If Val(Label6.Caption) > Val(Labelmax.Caption) Then　　Labelmax.Caption = L

32、abel6.Caption　　Label11.Visible = True　　max = Labelmax.Caption　　Open App.Path & "\point.txt" For Output As #1　　Write #1, ma

33、x　　Close #1　　nn = InputBox("創(chuàng)造了新紀錄!請問您尊姓大名!", " ")　　tt = Format(Date)　　Open App.Path & "

34、\name.txt" For Output As #1　　Write #1, nn　　Write #1, tt　　Close #1　　End If

35、;　　End If　　Picture1(s).BackColor = RGB(200, 0, 0)　　End If　　Next s　　'玩家汽車移動代

36、碼：　　If lr = "left" Then　　Label1.Caption = -55 - Val(Label10.Caption) / 10　　End If　　If lr = "leftstop&q

37、uot; Then　　If Label1.Caption < 0 Then Label1.Caption = 0　　Else: Label1.Caption = Label1.Caption　　End If　　If lr = &

38、quot;right" Then　　Label1.Caption = 55 + Val(Label10.Caption) / 10　　End If　　If lr = "rightstop" Then　　I

39、f Label1.Caption > 0 Then Label1.Caption = 0　　Else: Label1.Caption = Label1.Caption　　End If　　If car.Left < 0 Then '判斷車子是否在游戲窗口最左

40、右兩端　　Label1.Caption = 0　　car.Left = 0　　Else　　car.Left = car.Left + Label1.Caption　　End

41、If　　If car.Left + car.Width > Form1.Width Then　　Label1.Caption = 0　　car.Left = Form1.Width - car.Width　　Else</b

42、>　　car.Left = car.Left + Label1.Caption　　End If　　'隨機產(chǎn)生道路車輛：　　Picture1(0).Top = Picture1(0).Top + Label10.Capti

43、on　　If Picture1(0).Top > Form1.Height Then　　Picture1(0).BackColor = RGB(0, 200, 0)　　Picture1(0).Top = -Picture1(0).Height　　R

44、andomize　　xx = Int(4 * (Rnd + 0))　　Picture1(0).Picture = Image3(xx).Picture　　X = Int(6400 * (Rnd + 0))　　Picture1(0).Left = X&l

45、t;/p>　　End If　　Picture1(1).Top = Picture1(1).Top + Label10.Caption　　If Picture1(1).Top > Form1.Height Then　　Picture1(1).B

46、ackColor = RGB(0, 200, 0)　　Picture1(1).Top = -Picture1(1).Height　　Randomize　　xx = Int(4 * (Rnd + 0))　　Picture1(1).Pic

47、ture = Image3(xx).Picture　　X = Int(6400 * (Rnd + 0))　　Picture1(1).Left = X　　End If　　Picture1(2).Top = Picture1(2).Top

48、 + Label10.Caption　　If Picture1(2).Top > Form1.Height Then　　Picture1(2).BackColor = RGB(0, 200, 0)　　Picture1(2).Top = -Picture1(2).Height<p

49、>　　Randomize　　xx = Int(4 * (Rnd + 0))　　Picture1(2).Picture = Image3(xx).Picture　　X = Int(6400 * (Rnd + 0))　　Pictur

50、e1(2).Left = X　　End If　　Picture3(0).Top = Picture3(0).Top + Label10.Caption　　If Picture3(0).Top - 1740 > Form1.Height Then&

51、lt;p>　　Picture3(0).Top = -Picture3(0).Height　　Randomize　　X = Int(6400 * (Rnd + 0))　　Picture3(0).Left = X

52、　End If　　Picture3(1).Top = Picture3(1).Top + Label10.Caption　　If Picture3(1).Top - 1740 > Form1.Height Then　　Picture3(1).Top = -Picture3(1).Heig

53、ht　　Randomize　　X = Int(6400 * (Rnd + 0))　　Picture3(1).Left = X　　End If<b&g

54、t;　　End Sub　?、谟嫹峙c記錄系統(tǒng)功能：　　此部分功能，計分功能通過定時器不斷進行加法運算即可，而記錄系統(tǒng)，則通過讀、寫外部文件的功能實現(xiàn)，當玩家查看紀錄時，或者結(jié)束游戲時，程序會讀取外部TXT文件中的內(nèi)容，里面記錄著紀錄及其時間等信息，然后顯示。如果游戲結(jié)束時，分數(shù)大于文件中記錄的紀錄，那么會出發(fā)INPUTBOX窗口，讓玩家

55、輸入其信息，從新寫入紀錄數(shù)據(jù)，代碼如下：　　'初始化，清零全局變量，讀取外部紀錄文件數(shù)據(jù)與背景音樂　　Private Sub Form_Load()　　a = 0　　b = 0</p

56、>　　buff = 0　　Open App.Path & "\point.txt" For Input As #1　　Input #1, max　　Close #1

57、;　　Labelmax.Caption = max　　Label10.Caption = 50　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC1.wma"　　End Sub</

58、p>　　基于TIMER1功能：　　For s = 0 To 2’判斷是否撞車代碼　　If car.Left + car.Width - 100 > Picture1(s).Left And car.Left + 100 < Picture1(s).Left + Picture1(s).Width And car.T

59、op + car.Height > Picture1(s).Top + 200 And car.Top + 200 < Picture1(s).Top + Picture1(s).Height Then　　Timer1.Enabled = False　　Timer3.Enabled = False

60、Frame2.Visible = True　　Label6.Caption = Label7.Caption ‘Label6為記錄紀錄用，Label7為計分用　　If Val(Label6.Caption) > Val(Labelmax.Caption) Then　　Labelmax.Caption = L

61、abel6.Caption　　Label11.Visible = True’新紀錄紅色NEW字樣　　max = Labelmax.Caption　　Open App.Path & "\point.txt" For Output As #1 ‘寫文件<p&g

62、t;　　Write #1, max　　Close #1　　nn = InputBox("創(chuàng)造了新紀錄!請問您尊姓大名!", " ")　　tt = Format(Date)　　Open App.P

63、ath & "\name.txt" For Output As #1　　Write #1, nn　　Write #1, tt　　Close #1　　End If<

64、/p>　　If Picture1(s).BackColor = RGB(0, 200, 0) Then　　Timer1.Enabled = False　　Timer3.Enabled = False　　Frame2.Visible = True

65、　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC3.wav"　　If mus = 0 Then '判斷背景音樂是開啟還是關(guān)閉　　WindowsMediaPlayer1.Controls.stop　　End If<

66、;/b>　　If mus = 1 Then　　muss = 0　　mus = 0　　End If　　Label

67、6.Caption = Label7.Caption　　If Val(Label6.Caption) > Val(Labelmax.Caption) Then　　Labelmax.Caption = Label6.Caption　　Label11.Visible = True<

68、p>　　max = Labelmax.Caption　　Open App.Path & "\point.txt" For Output As #1　　Write #1, max　　Close #1

69、nn = InputBox("創(chuàng)造了新紀錄!請問您尊姓大名!", " ")　　tt = Format(Date)　　Open App.Path & "\name.txt" For Output As #1　　Write #1, nn</p&

70、gt;　　Write #1, tt　　Close #1　　End If　　End If　　Private Sub Maxp_Click(

71、)’打開紀錄面板　　Form2.Show　　End Sub　　紀錄面板FORM2代碼：　　Dim Name1 '紀錄者姓名　　Dim Time '紀錄時間

72、　　Dim max '紀錄分數(shù)　　Private Sub Command1_Click()　　Unload Form2　　End Sub　　Private Sub Form_Load()

73、　　Open App.Path & "\name.txt" For Input As #1　　Input #1, Name1　　Input #1, Time　　Close #1　　La

74、bel2.Caption = Name1　　Label4.Caption = Time　　Open App.Path & "\point.txt" For Input As #1　　Input #1, max　　Close #

75、1　　Label3.Caption = max　　End Sub　?、圮噹煜到y(tǒng)：　　此部分功能為提供兩種萌萌的外貌的車體供玩家選擇=。=：<p&g

76、t;　　'車體外貌選擇：　　Private Sub Command5_Click()　　car.Picture = Picture2(0).Picture　　Frame3.Visible = False　　E

77、nd Sub　　Private Sub Command6_Click()　　car.Picture = Picture2(1).Picture　　Frame3.Visible = False　　End Sub<

78、;/p>　　④道具系統(tǒng)：　　游戲途中會隨機出現(xiàn)兩種道具，一種為加分道具，一種為加速道具，代碼如下：　　基于TIMER1吃道具代碼：　　If car.Left + car.Width > Picture3(0).Left And car.Lef

79、t < Picture3(0).Left + Picture3(0).Width And car.Top + car.Height > Picture3(0).Top And car.Top < Picture3(0).Top + Picture3(0).Height Then　　Label7.Caption = Label7.Caption + 50’計分系統(tǒng)，吃了道具+50

80、分　　Picture3(0).Left = 9000’ 吃到道具后使道具消失　　End If　　If car.Left + car.Width > Picture3(1).Left And car.Left < Picture3(1).Left + Picture

81、3(1).Width And car.Top + car.Height > Picture3(1).Top And car.Top < Picture3(1).Top + Picture3(1).Height Then　　buff = 1　　Picture3(1).Left = 9000’ 吃到道具后使道

82、具消失　　End If　　游戲速度越來越快的代碼，吃了道具會加快增速：　　Private Sub Timer3_Timer()　　If buff = 0 Then　　Label10.Capti

83、on = Label10.Caption + 5　　ElseIf buff = 1 Then　　Label10.Caption = Label10.Caption + 15　　buff = 0　　End If<

84、/b>　　If Label10.Caption > 200 Then　　Label10.Caption = 200　　End If　　End Sub<p&

85、gt;　　⑤背景音樂系統(tǒng)：　　在主菜單會有背景音樂，開始游戲后與游戲結(jié)束時均會有不同的音效，并且在菜單中可以選擇開啟音樂或者關(guān)閉，代碼如下：　　'初始化，清零全局變量，讀取外部紀錄文件數(shù)據(jù)與背景音樂　　Private Sub Form_Load()

86、　　a = 0　　b = 0　　buff = 0　　mus = 1　　muss

87、= 1　　Open App.Path & "\point.txt" For Input As #1　　Input #1, max　　Close #1　　Labelmax.Caption

88、= max　　Label10.Caption = 50　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC1.wma"　　End Sub　　'

89、;音樂循環(huán)　　Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)　　If NewState = 1 And mus = 1 Then　　WindowsMediaPlayer1.Controls.play

90、　　End If　　End Sub　　'打開背景音樂：　　Private Sub OPENMUSIC_Click()<p

91、>　　WindowsMediaPlayer1.Controls.play　　mus = 1　　End Sub　　'關(guān)閉背景音樂：　　Privat

92、e Sub CLOSEMUSIC_Click()　　WindowsMediaPlayer1.Controls.stop　　mus = 0　　End Sub　　‘結(jié)束時音效：<

93、;/b>　　For s = 0 To 2　　If car.Left + car.Width - 50 > Picture1(s).Left And car.Left + 50 < Picture1(s).Left + Picture1(s).Width And car.Top + car.Height > Picture1(s).

94、Top + 50 And car.Top + 50 < Picture1(s).Top + Picture1(s).Height Then　　Timer1.Enabled = False　　Timer3.Enabled = False　　Frame2.Visible = True&l

95、t;p>　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC3.wav"　　If mus = 0 Then　　WindowsMediaPlayer1.Controls.stop　　End If</

96、p>　　If mus = 1 Then　　muss = 0　　mus = 0　　End If　　‘再來一次時重啟背景音樂</

97、p>　　Private Sub Command4_Click()　　…………　　If mus = 0 And muss = 0 Then　　mus = 1<b&g

98、t;　　muss = 1　　End If　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC2.mp3"　　If mus = 0 Then　　Wi

99、ndowsMediaPlayer1.Controls.stop　　End If　　四、使用說明書　　在主界面上單擊“開始游戲”即可進行游戲，使用鍵盤上左右方向鍵操作賽車躲避途中的車輛，撞到其他車輛游戲結(jié)束。隨著游戲進行車速會越來越快，得分

100、也會越來越高，系統(tǒng)將會記錄最高分，最高分可以通過窗口左上角菜單中的“紀錄”選項查詢，同時背景音樂的開與關(guān)可以通過菜單中的音樂選項選擇。。車庫中有兩種車體外貌供玩家選擇。游戲途中會隨機出現(xiàn)兩種道具，吃到他們會產(chǎn)生不同的效果。左上方菜單中還可以重新啟動游戲或者退出游戲。　　五、總結(jié)及進一步完善建議　　雖然只經(jīng)過短短的三天時間學(xué)習VB語言，但是由于其精簡的風格

101、，我已經(jīng)掌握了其一些基本的語法及其編程思想，可以編寫出一些比較基礎(chǔ)的小程序。由于學(xué)過C、匯編等語言，不難發(fā)現(xiàn)，其實不同的編程語言在其編程思想、邏輯與語法等方面都有相似之處，結(jié)合之前對C和匯編語言的一些學(xué)習與理解，在學(xué)習與運用VB語言上，還是較為上手的。　　當然，由于是第一次較為嚴格、深入地去接觸與學(xué)習VB語言，難免在一開始會感到不適與遇到一些困難，但是這也是編程的樂趣之一。在遇到困難與問題時，通

102、過不斷地對程序進行調(diào)試與修改，并通過網(wǎng)絡(luò)查詢信息與資料，最終解決問題，這不僅對自己是一種鍛煉，也是一種能力的提高。　　在排查與解決程序問題中，我自身感覺，單步運行與調(diào)試是很好的一種辦法，通過單步運行與調(diào)試，觀察程序運行的邏輯、變量的值或者其他效果，對比自身的期望與程序出現(xiàn)的錯誤情況，便能很快地找出問題所在，對癥下藥，去修改與完善程序。同時，在編寫程序的時候，命名與備注十分重要，無論是變量或者控件

103、的命名，都會有助于后期的測試與修改。　　在制作本次的課程設(shè)計中，其實有過不同的版本程序，如圖：　　游戲整體風格與外貌沒有最后版本的好看和萌=。= ，功能也沒有如今豐富，一開始并沒有加入紀錄系統(tǒng)與道具系統(tǒng)，總體感覺比較山寨。　　其實學(xué)習也就是這樣一個過程，在過程中不斷克服困難，而后又不斷產(chǎn)生好玩甚至瘋狂的想法，然后

104、再努力去實現(xiàn)，自己都會感覺很開心（/ 3 \）。　　完善的建議，我覺得可以加入更多的道具與車體，甚至可以加入不懂難度的賽道供玩家選擇，使游戲更加有趣，同時，由于TXT文件外部讀入并不是非常合適，可以使用數(shù)據(jù)庫替換，使玩家不能輕易更改紀錄。　　六．參考資料　　1.《Visual

105、 Basic程序設(shè)計教程（第3版）》　　2.百度知道　　附：　　源程序完全代碼：　　Dim lr '左右控制變量<p&g

106、t;　　Dim ud '上下控制變量　　Dim a '游戲開始倒計時變量　　Dim b '調(diào)試變量　　Dim max '最高分記錄系統(tǒng)變量　　Dim buff '道具系統(tǒng)變量　　Dim mu

107、s '音效變量　　Dim muss '音效變量　　'主界面四個按鈕代碼：　　Private Sub anniu1_Click()　　a = 0　　b

108、= 0　　Frame1.Visible = False　　Label10.Caption = 50　　Timer2.Enabled = True　　WindowsMediaPlayer1.URL = App.Path & "\MUSI

109、C2.mp3"　　If mus = 0 Then　　WindowsMediaPlayer1.Controls.stop　　End If　　End Sub<p

110、>　　Private Sub anniu1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)　　anniu1.Picture = an1　　End Sub　　Private

111、Sub anniu2_Click()　　Frame3.Visible = True　　End Sub　　Private Sub anniu2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Si

112、ngle)　　anniu2.Picture = an3　　End Sub　　Private Sub anniu3_Click()　　Unload Form1　　End Sub

113、　　Private Sub anniu3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)　　anniu3.Picture = an5　　End Sub<

114、/p>　　Private Sub anniu4_Click()　　Frame4.Visible = True　　End Sub　　Private Sub anniu4_MouseMove(Button As Integer, Shift As In

115、teger, X As Single, Y As Single)　　anniu4.Picture = an7　　End Sub　　'關(guān)閉背景音樂：　　Private Sub CLOSEMU

116、SIC_Click()　　WindowsMediaPlayer1.Controls.stop　　mus = 0　　End Sub　　Private Sub Command8_Click()<

117、/p>　　Frame4.Visible = False　　End Sub　　'初始化，清零全局變量，讀取外部紀錄文件數(shù)據(jù)與背景音樂　　Private Sub Form_Load()

118、　　a = 0　　b = 0　　buff = 0　　mus = 1　　muss = 1</p&

119、gt;　　Open App.Path & "\point.txt" For Input As #1　　Input #1, max　　Close #1　　Labelmax.Caption = max<

120、;p>　　Label10.Caption = 50　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC1.wma"　　End Sub　　'再來一次按鈕代碼&

121、lt;/p>　　Private Sub Command4_Click()　　Frame2.Visible = False　　Label11.Visible = False　　Label7.Caption = 0　　Picture1(0).Top

122、 = 240　　Picture1(0).Left = 1920　　Picture1(1).Top = 2520　　Picture1(1).Left = 9000　　Picture1(2).Top = 5160　　Picture1(

123、2).Left = 9000　　Picture3(0).Top = 4560　　Picture3(0).Left = 9000　　Picture3(1).Top = 7680　　Picture3(1).Left = 9000　　L

124、abel2.Caption = 3　　Label1.Caption = 0　　Label10.Caption = 50　　b = 0　　a = 0　　La

125、bel2.Visible = True　　Timer2.Enabled = True　　If mus = 0 And muss = 0 Then　　mus = 1　　muss = 1</p&

126、gt;　　End If　　WindowsMediaPlayer1.URL = App.Path & "\MUSIC2.mp3"　　If mus = 0 Then　　WindowsMediaPlayer1.Controls.st

127、op　　End If　　End Sub　　'車體外貌選擇：　　Private Sub Command5_Click()<

128、p>　　car.Picture = Picture2(0).Picture　　Frame3.Visible = False　　End Sub　　Private Sub Command6_Click()　　car.Picture

129、= Picture2(1).Picture　　Frame3.Visible = False　　End Sub　　Private Sub Exit_Click()　　Unload Form1&l

130、t;b>　　End Sub　　'鍵盤控制：　　Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyLeft Then lr = &

131、quot;left"　　If KeyCode = vbKeyRight Then lr = "right"　　If KeyCode = vbKeyUp Then ud = "down"　　If KeyCode = vbKeyDown Then ud = "

132、;up"　　End Sub　　Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyLeft Then lr = "leftstop"<

133、;/p>　　If KeyCode = vbKeyRight Then lr = "rightstop"　　If KeyCode = vbKeyUp Then ud = ""　　If KeyCode = vbKeyDown Then ud = ""

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計-- 基于vb語言的賽車小游戲

文檔簡介

溫馨提示

最新文檔

評論

vb課程設(shè)計-- 基于vb語言的賽車小游戲

文檔簡介

溫馨提示

最新文檔

評論

免費下載