1、.：.；編程高手之路vb入門和游戲編寫VB 貪吃蛇 單人版游戲(二)Private blnStartGame As Boolean 標(biāo)志能否曾經(jīng)開場 新游戲T游戲曾經(jīng)開場Private blnPause As Boolean 標(biāo)志當(dāng)前能否處于暫停形狀T暫停Private blnThroughWall As Boolean 標(biāo)志能否為穿墻方式T可以穿墻Private blnOnKeyEvents As Boolean 標(biāo)志能否可以 接納鍵盤事件T可以接納，此變量可防止 Form_KeyDown()事件反復(fù)執(zhí)行Private Map_Width As Integer 地圖寬度象素Private M

2、ap_Height As Integer 地圖高度象素Private Map_Empty_Color 地圖空白地顏色Private Map_Bomb_Color 地圖炸彈顏色Private Map_Food_Color 地圖食物顏色Private MapProperty() As Integer 記錄地圖各個(gè)網(wǎng)格的屬性Private curEatCount As Integer 記錄 每次出現(xiàn)獎(jiǎng)品之前，一共吃進(jìn)多少物品包括食物和炸彈，獎(jiǎng)品不計(jì)，當(dāng)獎(jiǎng)品出現(xiàn)后，此變量值變?yōu)?零0，然后進(jìn)入下一次統(tǒng)計(jì)Private curLevel As Integer 當(dāng)前級別Private P1 As theP

3、layerInfo 記錄Player1 的信息Private Snake_P1() As thePosition 記錄蛇身坐標(biāo)Private PrizePos As thePosition 記錄獎(jiǎng)品的坐標(biāo)Private Record(9) As theRecord 存放前十名的 得分記錄信息Option ExplicitPrivate Sub cmdHelp_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 假設(shè)游戲正在進(jìn)展，那么發(fā)送“暫停按鍵事件，暫停游戲 frmHelp.Show End Sub開場新游戲Pri

4、vate Sub cmdNewGame_Click() Dim i As Integer Randomize 重新生成隨機(jī)數(shù)列 blnStartGame = Not blnStartGame If blnStartGame Then cmdNewGame.Caption = 停頓 Else cmdNewGame.Caption = 新游戲 End If 中止游戲 If blnStartGame = False Then 假設(shè)上一次的獎(jiǎng)品還沒有消逝以 PrizeRemain 0 為標(biāo)志，就先去除舊的獎(jiǎng)品，然后才顯示新的獎(jiǎng)品 If PrizeRemain 0 Then Call ShowPrize

5、(False) picDisplay.Cls P1.Score = 0 玩家的初始分?jǐn)?shù) P1.Food = 0 P1.Bomb = 0 curEatCount = 0 PrizeRemain = 0 blnPause = False lblPause.Visible = False lblScore.Caption = P1.Score lblFoodCount.Caption = P1.Food lblBombCount.Caption = P1.Bomb P1.blnGameOver = True HscrLevel.Enabled = True tmrMove.Enabled = Fal

6、se Exit Sub End If blnThroughWall = True 穿墻方式 blnOnKeyEvents = True 暫時(shí)運(yùn)用默許填充色 Map_Bomb_Color = BOMB_COLOR Map_Empty_Color = EMPTY_COLOR Map_Food_Color = FOOD_COLOR P1.BodyColor = BODY_COLOR P1.HeadColor = HEAD_COLOR 地圖初始化 ReDim MapProperty(MAX_COL_INDEX, MAX_ROW_INDEX) Map_Width = (MAX_COL_INDEX + 1

7、) * MAP_SCALE Map_Height = (MAX_ROW_INDEX + 1) * MAP_SCALE picDisplay.Cls picDisplay.Width = Map_Width + 2 picDisplay.Height = Map_Height + 2 picDisplay.Line (0, 0)-Step(Map_Width, Map_Height), Map_Empty_Color, BF FoodCount_AtOneTime = 2 地圖上同時(shí)存在的 食物數(shù)量 BombCount_AtOneTime = 1 地圖上同時(shí)存在的 炸彈數(shù)量 EatCountPe

8、rShowPrize = 5 設(shè)置 蛇每吃進(jìn)多少物品包括食物和炸彈，獎(jiǎng)品不計(jì)才顯示一次獎(jiǎng)品 curLevel = HscrLevel.Value AddScorePerFood = curLevel 每吃進(jìn)一個(gè) 食物，所添加的分?jǐn)?shù)當(dāng)前的級別值 AddScorePerBomb = -curLevel * 2 每吃進(jìn)一個(gè) 炸彈，所扣掉的分?jǐn)?shù) P1.Score = Abs(AddScorePerBomb) + 1 玩家的初始分?jǐn)?shù)每吃進(jìn)一個(gè) 炸彈，所扣掉的分?jǐn)?shù)1 P1.Food = 0 P1.Bomb = 0 PrizeRemain = 0 P1.blnGameOver = False lblScor

9、e.Caption = P1.Score lblFoodCount.Caption = P1.Food lblBombCount.Caption = P1.Bomb 初始化P1蛇身 ReDim Snake_P1(START_SNAKE_LENGTH) For i = 0 To UBound(Snake_P1) 設(shè)定蛇身各段的起始位置 Snake_P1(i).X = MAX_COL_INDEX - UBound(Snake_P1) + i Snake_P1(i).Y = MAX_ROW_INDEX 初始化挪動(dòng)方向 P1.X_Way = -1 P1.Y_Way = 0 MapProperty(Sn

10、ake_P1(i).X, Snake_P1(i).Y) = MAP_SNAKE picDisplay.Line (Snake_P1(i).X * MAP_SCALE, Snake_P1(i).Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), BODY_COLOR, BF Next 運(yùn)用蛇頭顏色 重新繪畫蛇頭 picDisplay.Line (Snake_P1(0).X * MAP_SCALE, Snake_P1(0).Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), HEAD_COLOR, BF 放置食物 For i =

11、1 To FoodCount_AtOneTime Call AddFood Next 放置炸彈 For i = 1 To BombCount_AtOneTime Call AddBomb Next lblPause.Visible = False lblScore.Caption = P1.Score lblFoodCount.Caption = P1.Food lblBombCount.Caption = P1.Bomb P1.blnGameOver = False HscrLevel.Enabled = False 游戲進(jìn)展期間不能改動(dòng)級別 tmrMove.Enabled = TrueEn

12、d Sub顯示得分榜Private Sub cmdShowScoreList_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 假設(shè)游戲正在進(jìn)展，那么發(fā)送“暫停按鍵事件，暫停游戲 frmScoreList.Show End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If P1.blnGameOver Or blnStartGame = False Or blnOnKeyEvents = False Then Exit Sub

13、以下情況游戲終了、游戲還沒有開場、禁用擊鍵事件不接納按鍵操作。 按“Numpad 5鍵暫停/繼續(xù) If KeyCode = KEY_PAUSE Then blnPause = Not blnPause lblPause.Visible = blnPause tmrMove.Enabled = Not blnPause Exit Sub End If If blnPause Then Exit Sub 在暫停形狀下不接受“ESC外的其它按鍵 Select Case KeyCode Case KEY_LFUP blnOnKeyEvents = False If P1.X_Way 0 Then P1

14、.X_Way = 0 P1.Y_Way = -1 ElseIf P1.Y_Way 0 Then P1.X_Way = -1 P1.Y_Way = 0 End If Case KEY_LFDN blnOnKeyEvents = False If P1.X_Way 0 Then P1.X_Way = 0 P1.Y_Way = 1 ElseIf P1.Y_Way 0 Then P1.X_Way = -1 P1.Y_Way = 0 End If Case KEY_RTUP blnOnKeyEvents = False If P1.X_Way 0 Then P1.X_Way = 0 P1.Y_Way =

15、 -1 ElseIf P1.Y_Way 0 Then P1.X_Way = 1 P1.Y_Way = 0 End If Case KEY_RTDN blnOnKeyEvents = False If P1.X_Way 0 Then P1.X_Way = 0 P1.Y_Way = 1 ElseIf P1.Y_Way 0 Then P1.X_Way = 1 P1.Y_Way = 0 End If 當(dāng)蛇以 程度 方向挪動(dòng)時(shí)，LF 和 RT 按鍵無效 Case KEY_LF blnOnKeyEvents = False If P1.X_Way = 0 Then P1.X_Way = -1 P1.Y_Way = 0 End If Case KEY_RT blnOnKeyEvents = False If P1.X_Way = 0 Then P1.X_Way = 1 P1.Y_Way = 0 End If 當(dāng)蛇以 垂直 方向挪動(dòng)時(shí)，UP 和 DN 按鍵無效 Case KEY_UP blnOnKeyEvents = False If P1.Y_Way = 0 Then P1.X_Way = 0