打地鼠vb課程設(shè)計

1、<p><b>　　目 錄</b></p><p>　　第1章 課程設(shè)計目的與要求1</p><p>　　1.1 課程設(shè)計目的1</p><p>　　1.2 課程設(shè)計的實驗環(huán)境1</p><p>　　1.3 課程設(shè)計的預(yù)備知識1</p><p>　　1.4 課程設(shè)計要求1&l

2、t;/p><p>　　第2章 課程設(shè)計內(nèi)容2</p><p>　　2.1 游戲介紹2</p><p>　　2.2 游戲設(shè)計3</p><p>　　2.3 游戲?qū)崿F(xiàn)12</p><p>　　第3章 課程設(shè)計總結(jié)14</p><p><b>　　參考文獻15</b>&l

3、t;/p><p><b>　　課程設(shè)計目的與要求</b></p><p>　　1.1 課程設(shè)計目的</p><p>　　本課程的課程設(shè)計實際是學生學習完《可視化編程技術(shù)》課程后，進行的一次全面的綜合訓練，其目的在于加深對可視化編程技術(shù)基本知識的理解，掌握運用VB開發(fā)應(yīng)用程序的基本方法及基本技巧。</p><p>　　1.2

4、課程設(shè)計的實驗環(huán)境</p><p>　　硬件要求能運行Windows 9.X操作系統(tǒng)的微機系統(tǒng)。</p><p>　　軟件：Microsoft Visual Basic 6.0</p><p>　　1.3 課程設(shè)計的預(yù)備知識</p><p>　　熟悉Visual Basic 6.0程序設(shè)計的基本語法知識及常用技巧。</p>&l

5、t;p>　　1.4 課程設(shè)計要求</p><p>　　按課程設(shè)計指導書提供的課題，每個小組設(shè)計一個完整的小游戲應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計游戲的具體要求，按照應(yīng)用程序的設(shè)計步驟和VB的基本知識應(yīng)用程序的分析與實現(xiàn)。應(yīng)根據(jù)后面給出的基本學時分配合理安排設(shè)計時間，并獨立完成各方面的設(shè)計。選擇同一題目的同學，可以共同協(xié)作完成一個應(yīng)用程序的開發(fā)任務(wù)。要求書寫詳細的設(shè)計說明書，對有復雜的代碼段和程序段的部分，應(yīng)畫出程序

6、流程圖，寫出全部的代碼。在界面設(shè)計中，需畫出每個窗體的布局，進行屬性說明，杜絕雷同。</p><p><b>　　課程設(shè)計內(nèi)容</b></p><p><b>　　2.1游戲介紹</b></p><p>　　2.1.1 游戲規(guī)則</p><p>　　打地鼠是一種非常有趣的益智游戲。游戲進行時，地鼠不

7、斷從洞中探出頭再縮回去，當?shù)厥箢^在洞外時，可以通過按鍵的方式打擊地鼠，時間到時游戲結(jié)束，打中地鼠次數(shù)越多得分越高，擊錯、逃跑數(shù)越多得分越低。在英雄榜中保留前五名最高得分信息。</p><p>　　2.1.2 游戲說明</p><p>　　進入“游戲”選擇“打地鼠”， 選擇“開始/幫助/英雄榜”，按ok 鍵確認選項， 鼠標左鍵敲打地鼠。</p><p>　　鼠標左右鍵

8、都可打擊想、要能更快的打到地鼠連續(xù)打擊左右鍵，那能加快打地鼠的次數(shù)。</p><p><b>　　2.2游戲設(shè)計</b></p><p>　　2.2.1 界面設(shè)計：</p><p>　　打開標準EXE工程，先添加一個Label控件，屬性為“得分”，然后再添加一個時間控件Timer，然后在添加5個圖片控件，分別為Image1，Image2，Ima

9、ge3，Image4，Image5。然后在在5個圖片控件中分別添加。</p><p><b>　　如下圖2.1所示。</b></p><p>　　圖2.1 游戲開始界面</p><p>　　2.2.2 屬性設(shè)置</p><p>　　Command1的屬性設(shè)置為：開始</p><p>　　Comm

10、and2的屬性設(shè)置為：結(jié)束</p><p>　　計時器（Timer）的屬性設(shè)置為：</p><p>　　Enabled設(shè)置為：Fslse</p><p>　　Interval設(shè)置為：700</p><p><b>　　編程思路及代碼</b></p><p>　　Dim 鼠X As Single&l

11、t;/p><p>　　Dim 鼠Y As Single</p><p>　　Dim 地鼠 As Byte</p><p>　　Dim 對數(shù) As Integer</p><p>　　Dim 總數(shù) As Integer</p><p>　　Sub 判斷(X, Y)</p><p>　　Select C

12、ase 地鼠</p><p>　　Case 0, 1, 2</p><p><b>　　X = 地鼠</b></p><p><b>　　Y = 0</b></p><p>　　Case 3, 4, 5</p><p>　　X = 地鼠 - 3</p><

13、p><b>　　Y = 1</b></p><p>　　Case 6, 7, 8</p><p>　　X = 地鼠 - 6</p><p><b>　　Y = 2</b></p><p>　　End Select</p><p><b>　　End Sub&l

14、t;/b></p><p>　　Private Sub Form_Load()</p><p><b>　　Randomize</b></p><p><b>　　Show</b></p><p><b>　　Print</b></p><p>　

15、　For 地鼠 = 0 To 8</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p><b>　　Next</b></p><p&g

16、t;<b>　　總數(shù) = 1</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　Randomize</b></p><p><b>　　Show</b>

17、;</p><p><b>　　Print</b></p><p>　　For 地鼠 = 0 To 8</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 105

18、0 * Y</p><p><b>　　Next</b></p><p><b>　　總數(shù) = 1</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_MouseMove(Button As Integer, Shi

19、ft As Integer, X As Single, Y As Single)</p><p>　　Image1.Move X - Image1.Width / 2, Y - Image1.Height / 2</p><p>　　鼠X = Image1.Left</p><p>　　鼠Y = Image1.Top</p><p>　　Ti

20、mer1.Enabled = True</p><p>　　Label2.Caption = "運行中..."</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As

21、Single, Y As Single)</p><p>　　Image1.Picture = Image3.Picture</p><p><b>　　xy = 99</b></p><p>　　If 鼠X > 800 And 鼠X < 1850 Then</p><p>　　If 鼠Y + 1500 &g

22、t; 1600 And 鼠Y + 1500 < 2350 Then xy = 0</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 3</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 6</p><

23、;p><b>　　End If</b></p><p>　　If 鼠X > 1850 And 鼠X < 2900 Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 1</p><p>　　If 鼠Y + 1500 > 2650

24、And 鼠Y + 1500 < 3400 Then xy = 4</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 7</p><p><b>　　End If</b></p><p>　　If 鼠X > 2900 And 鼠X < 3950

25、Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 2</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 5</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y +

26、 1500 < 4450 Then xy = 8</p><p><b>　　End If</b></p><p>　　If 地鼠 = xy Then</p><p>　　對數(shù) = 對數(shù) + 1</p><p>　　Label1.Caption = "打中次數(shù) :" & 對數(shù)</p

27、><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image6.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p><b>　　End If</b></p><p><b>　　End Sub

28、</b></p><p>　　Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image1.Move 鼠X - (Image1.Width / 2 - X), 鼠Y - (Image1.Height / 2 - Y)<

29、/p><p>　　鼠X = Image1.Left</p><p>　　鼠Y = Image1.Top</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single

30、, Y As Single)</p><p>　　Image1.Picture = Image2.Picture</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　總數(shù) = 總數(shù) + 1</p><p>

31、;<b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　地鼠 = Int(Rnd * 9)</p><p><b>　　判斷 X, Y</b></p>

32、<p>　　Form1.PaintPicture Image4.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 總數(shù) > 100 Then</p><p>　　Timer1.Enabled = False</p><p><b>　　判斷 X, Y</b></p

33、><p>　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 對數(shù) > 100 Then</p><p>　　msg = MsgBox("恭喜" + Chr(13) + "你以經(jīng)爆機了，還要繼續(xù)嗎？", vbYe

34、sNo, "地鼠娛樂部")</p><p><b>　　Else</b></p><p>　　msg = MsgBox("你以經(jīng)過關(guān)了，您打中了" & 對數(shù) & "次。還要繼續(xù)嗎?", vbYesNo, "地鼠娛樂部")</p><p><b&

35、gt;　　End If</b></p><p>　　If msg = vbYes Then</p><p><b>　　總數(shù) = 1</b></p><p><b>　　對數(shù) = 0</b></p><p>　　Timer1.Enabled = True</p><p

36、><b>　　Else</b></p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</

37、b></p><p>　　Private Sub 犯得上_Click(Index As Integer)</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 關(guān)于_Click()</p>&l

38、t;p>　　MsgBox " 地鼠娛樂部" + Chr(13) + Chr(13) + "這是一個基于Windows98以上操作系統(tǒng)下" + Chr(13) + _</p><p>　　"用VB編寫的程序", , "地鼠娛樂部"</p><p><b>　　End Sub</b>&l

39、t;/p><p>　　Private Sub 使用_Click()</p><p>　　MsgBox "歡迎來到地鼠娛樂部" + Chr(13) + "使用說明:" + Chr(13) + "鼠標左右鍵都可打擊" _</p><p>　　+ "想要能更快的打到地鼠連續(xù)打擊左右鍵，" + Ch

40、r(13) + "那能加快打地鼠的次數(shù)", , "地鼠娛樂部"</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</p&g

41、t;<p>　　Image1.Move X - Image1.Width / 2, Y - Image1.Height / 2</p><p>　　鼠X = Image1.Left</p><p>　　鼠Y = Image1.Top</p><p>　　Timer1.Enabled = True</p><p>　　Label2

42、.Caption = "運行中..."</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image

43、1.Picture = Image3.Picture</p><p><b>　　xy = 99</b></p><p>　　If 鼠X > 800 And 鼠X < 1850 Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 0</

44、p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 3</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 6</p><p><b>　　End If</b></p><

45、;p>　　If 鼠X > 1850 And 鼠X < 2900 Then</p><p>　　If 鼠Y + 1500 > 1600 And 鼠Y + 1500 < 2350 Then xy = 1</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 4</p>&

46、lt;p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 7</p><p><b>　　End If</b></p><p>　　If 鼠X > 2900 And 鼠X < 3950 Then</p><p>　　If 鼠Y + 1500 > 160

47、0 And 鼠Y + 1500 < 2350 Then xy = 2</p><p>　　If 鼠Y + 1500 > 2650 And 鼠Y + 1500 < 3400 Then xy = 5</p><p>　　If 鼠Y + 1500 > 3700 And 鼠Y + 1500 < 4450 Then xy = 8</p><p>

48、<b>　　End If</b></p><p>　　If 地鼠 = xy Then</p><p>　　對數(shù) = 對數(shù) + 1</p><p>　　Label1.Caption = "打中次數(shù) :" & 對數(shù)</p><p><b>　　判斷 X, Y</b></

49、p><p>　　Form1.PaintPicture Image6.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Ima

50、ge1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image1.Move 鼠X - (Image1.Width / 2 - X), 鼠Y - (Image1.Height / 2 - Y)</p><p>　　鼠X = Image1.Left</p>&

51、lt;p>　　鼠Y = Image1.Top</p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　Image1.Pict

52、ure = Image2.Picture</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　總數(shù) = 總數(shù) + 1</p><p><b>　　判斷 X, Y</b></p><p&g

53、t;　　Form1.PaintPicture Image5.Picture, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　地鼠 = Int(Rnd * 9)</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image4.Picture, 10

54、00 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 總數(shù) > 100 Then</p><p>　　Timer1.Enabled = False</p><p><b>　　判斷 X, Y</b></p><p>　　Form1.PaintPicture Image5.Pictu

55、re, 1000 + 1050 * X, 1000 + 1050 * Y</p><p>　　If 對數(shù) > 100 Then</p><p>　　msg = MsgBox("恭喜" + Chr(13) + "你以經(jīng)爆機了，還要繼續(xù)嗎？", vbYesNo, "地鼠娛樂部")</p><p><

56、b>　　Else</b></p><p>　　msg = MsgBox("你以經(jīng)過關(guān)了，您打中了" & 對數(shù) & "次。還要繼續(xù)嗎?", vbYesNo, "地鼠娛樂部")</p><p><b>　　End If</b></p><p>　　If m

57、sg = vbYes Then</p><p><b>　　總數(shù) = 1</b></p><p><b>　　對數(shù) = 0</b></p><p>　　Timer1.Enabled = True</p><p><b>　　Else</b></p><p&g

58、t;<b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 犯得上_Clic

59、k(Index As Integer)</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 關(guān)于_Click()</p><p>　　MsgBox " 地鼠娛樂部" + Chr(13) + C

60、hr(13) + "這是一個基于Windows98以上操作系統(tǒng)下" + Chr(13) + _</p><p>　　"用VB編寫的程序", , "地鼠娛樂部"</p><p><b>　　End Sub</b></p><p>　　Private Sub 使用_Click()</

61、p><p>　　MsgBox "歡迎來到地鼠娛樂部" + Chr(13) + "使用說明:" + Chr(13) + "鼠標左右鍵都可打擊" _</p><p>　　+ "想要能更快的打到地鼠連續(xù)打擊左右鍵，" + Chr(13) + "那能加快打地鼠的次數(shù)", , "地鼠娛樂部&qu

62、ot;</p><p><b>　　End Sub</b></p><p><b>　　2.3 游戲?qū)崿F(xiàn)</b></p><p>　　2.3.1程序調(diào)試及測試：</p><p>　　程序調(diào)試的操作步驟如下：</p><p>　?。?）建立一標準EXE工程，將這一模塊程序添加到

63、工程中。如果你是通過雙擊標準模塊程序Model1.BAS進入Visual Basic系統(tǒng)的，則首先需要添加一個窗體模塊。</p><p>　?。?）將該標準模塊程序Model1.BAS中代碼的指定的錯誤修改正確或在指定的空位填上適當?shù)恼Z句，并在窗體模塊中編寫代碼（常常寫在窗體的Click()事件中）調(diào)用標準模塊中的Sub過程或用戶自定義函數(shù)（如果在標準模塊程序Model1.BAS有多個過程或函數(shù)，要注意調(diào)用的先后

64、順序，否則得不到正確結(jié)果），調(diào)試運行程序，使其能輸出正確結(jié)果。</p><p>　?。?）按要求保存工程</p><p><b>　　程序功能測試如下：</b></p><p>　　經(jīng)過代碼測試正確的程序只是基本上驗證了程序邏輯上的正確性，但并不能驗證程序是否滿足程序說明書中定義的功能，也不能驗證測試數(shù)據(jù)本身是否完備。程序功能測試則面向程序應(yīng)用

65、環(huán)境，把程序看做一個“黑匣子”，認為程序只要滿足應(yīng)用功能上的需求，就是可行的。</p><p><b>　　2.3.2游戲運行</b></p><p>　　此圖是為進入游戲界面，單擊開始按鈕，游戲開始運行，此時單擊鼠標左鍵進行游戲，如果中途放棄，單擊結(jié)束按鈕。如圖2.3 所示： </p><p>　　圖2.2 游戲運行界面</p>

66、<p>　　此圖為運行中圖片，單擊左鍵進行操作，用鼠標控制懸空的小錘砸地鼠，砸到就加分，依次累計，分高則過關(guān)。</p><p><b>　　如圖2.4 所示：</b></p><p>　　圖2.3游戲運行中界面</p><p>　　此圖為游戲結(jié)束界面，在游戲中會對打擊地鼠次數(shù)進行累計并顯示在操作界面上，分數(shù)達到一定時就過關(guān)。<

67、;/p><p><b>　　如圖2.5 所示：</b></p><p>　　圖2.4 游戲結(jié)束界面</p><p><b>　　課程設(shè)計總結(jié)</b></p><p>　　通過一個學期的學習，我認為要學好vb語言程序設(shè)計這門課程，不僅要認真閱讀課本知識，更重要的是要通過上機實踐才能增強和鞏固我得知識。特別

68、是作為高職生，更要注重實踐這一環(huán)節(jié)，只有這樣我們才能成為合格的電子專業(yè)人材。</p><p>　　這不，我們的動手機會來了，我們這組做的是打地鼠游戲的設(shè)計，對我來說是有一點難度的，但是通過兩周的課程設(shè)計，我有很多有關(guān)于vb課程設(shè)計方面的心得體會，當我剛剛接觸這個課程設(shè)計的時候，我感覺對我來說有些棘手，我根本不知道從何開始下手，但是在老師和同學的幫助下，我終于完成了這次課設(shè)。我想沒有他們我可能都要放棄了，因為我本人

69、對動手做vb課設(shè)也并不是很熟悉，學的東西好像它是它，我是我似的，理論聯(lián)系不了實際。以前的c語言學的就是東一半西一半的，而且這么長時間沒有接觸c語言了有些東西都還給上帝了。畢竟c語言是所有語言的基礎(chǔ)，學好c語言其他的計算機語言就會學得輕松的多了。一開始的程序這塊兒我就有一點抓狂了。因為我寫的程序得有一半是錯的。后來請教我們班的同學和我們的老師，每次跟他們一起到試驗室調(diào)試程序，看老師邊做邊給我們講解。最后在計算機上做出來的時候，雖然不是我們

70、自己寫的，但是也有我們自己思考而且做出來的成果，我也有一種分享到的成就感。</p><p>　　通過這次vb課程設(shè)計，我感覺到了課程設(shè)計是培養(yǎng)學生綜合運用所學知識,發(fā)現(xiàn),提出,分析和解決實際問題,鍛煉實踐能力的重要環(huán)節(jié),是對學生實際工作能力的具體訓練和考察過程.隨著科學技術(shù)發(fā)展的日新日異，使用各種編程語言編寫各種軟件和游戲等已經(jīng)成為當今計算機應(yīng)用中空前活躍的領(lǐng)域， 在生活中可以說得是無處不在。因此作為二十一世紀的

71、大學生來說掌握vb編程設(shè)計語言以及其他的匯編語言的開發(fā)技術(shù)是十分重要的。所以雖然課社結(jié)束了，但我會繼續(xù)學習vb編程語言教程。</p><p>　　回顧起此次vb課程設(shè)計，至今我仍感慨頗多，的確，從選題到定稿，從理論到實踐，在整整兩星期的日子里，可以說得是苦多于甜，但是可以學到很多很多的東西，同時不僅可以鞏固了以前所學過的知識，而且學到了很多在書本上所沒有學到過的知識。通過這次課程設(shè)計使我懂得了理論與實際相結(jié)合是很

72、重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結(jié)合起來，從理論中得出結(jié)論，才能提高自己的實際動手能力和獨立思考的能力。在設(shè)計的過程中遇到問題，可以說得是困難重重，難免會遇到過各種各樣的問題，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學過的知識理解得不夠深刻，掌握得不夠牢固，通過這次課程設(shè)計之后，一定把以前所學過的知識重新溫故。</p><p>　　這次課程設(shè)計終于順利完成了，在設(shè)計中遇到了很

73、多困難和問題，最后在xx老師的辛勤指導下，終于游逆而解。同時，在xx老師的身上我學得到很多實用的知識，在次我表示感謝！同時，我也要感謝給過我?guī)椭耐瑢W們，因為我們一組的同學在一起研究和思考才能完成這次課程設(shè)計。</p><p><b>　　參考文獻</b></p><p>　　1．李一金，丁偉等編寫，《Visual Basic 6.0標準教程》，北京希望電子出版社&l

74、t;/p><p>　　2．黃學中編著，《Visual Basic 6.0教程》， 北京科海集團公司</p><p>　　3．楊善林，馮光為等編著，《Visual Basic學習教程》，北京大學出版社</p><p>　　4. 趙建敏 ,《Visual Basic 6.0 程序開發(fā)指南》,航空工業(yè)出版社</p><p>　　5. 劉勝雷 , 《Vi

75、sual Basic 6.0 開發(fā)使用手冊》,機械工業(yè)出版社</p><p>　　6. 魏東 魏民 ,《Oracle 與 Visual Basic 編程指南》,電子工業(yè)出版社</p><p>　　7. 劉瑞新 ,《Visual Basic 6.0 程序設(shè)計教程》,機械工業(yè)出版社</p><p>　　8．王力華 編著，《Visual Basic 6.0時尚編程百例》，