編程高手之路—vb入門和游戲編寫—VB 貪吃蛇 單人版游戲(二).doc

編程高手之路vb入門和游戲編寫VB 貪吃蛇 單人版游戲(二)主窗體 FrmPlay 代碼Private blnStartGame As Boolean 標記是否已經(jīng)開始 新游戲（T游戲已經(jīng)開始）Private blnPause As Boolean 標記當前是否處于暫停狀態(tài)（T暫停）Private blnThroughWall As Boolean 標記是否為穿墻模式（T可以穿墻）Private blnOnKeyEvents As Boolean 標記是否能夠 接收鍵盤事件（T可以接收），此變量可防止 Form_KeyDown()事件重復執(zhí)行Private Map_Width As Integer 地圖寬度（象素）Private Map_Height As Integer 地圖高度（象素）Private Map_Empty_Color 地圖空白地顏色Private Map_Bomb_Color 地圖炸彈顏色Private Map_Food_Color 地圖食物顏色Private MapProperty() As Integer 記錄地圖各個網(wǎng)格的屬性Private curEatCount As Integer 記錄 每次出現(xiàn)獎品之前，一共吃進多少物品（包括食物和炸彈，獎品不計），當獎品出現(xiàn)后，此變量值變?yōu)?零0，然后進入下一次統(tǒng)計Private curLevel As Integer 當前級別Private P1 As thePlayerInfo 記錄Player1 的信息Private Snake_P1() As thePosition 記錄蛇身坐標Private PrizePos As thePosition 記錄獎品的坐標Private Record(9) As theRecord 存放前十名的 得分記錄信息Option ExplicitPrivate Sub cmdHelp_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 如果游戲正在進行，則發(fā)送“暫?！卑存I事件，暫停游戲 frmHelp.Show End Sub開始新游戲Private Sub cmdNewGame_Click() Dim i As Integer Randomize 重新生成隨機數(shù)列 blnStartGame = Not blnStartGame If blnStartGame Then cmdNewGame.Caption = 停止 Else cmdNewGame.Caption = 新游戲 End If 中止游戲 If blnStartGame = False Then 如果上一次的獎品還沒有消失（以 PrizeRemain 0 為標志），就先清除舊的獎品，然后才顯示新的獎品 If PrizeRemain 0 Then Call ShowPrize(False) picDisplay.Cls P1.Score = 0 玩家的初始分數(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 = False Exit Sub End If blnThroughWall = True 穿墻模式 blnOnKeyEvents = True 暫時使用默認填充色 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) * 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ù)量 BombCount_AtOneTime = 1 地圖上同時存在的 炸彈數(shù)量 EatCountPerShowPrize = 5 設(shè)置 蛇每吃進多少物品（包括食物和炸彈，獎品不計）才顯示一次獎品 curLevel = HscrLevel.Value AddScorePerFood = curLevel 每吃進一個 食物，所增加的分數(shù)當前的級別值 AddScorePerBomb = -curLevel * 2 每吃進一個 炸彈，所扣掉的分數(shù) P1.Score = Abs(AddScorePerBomb) + 1 玩家的初始分數(shù)每吃進一個 炸彈，所扣掉的分數(shù)1 P1.Food = 0 P1.Bomb = 0 PrizeRemain = 0 P1.blnGameOver = False lblScore.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 初始化移動方向 P1.X_Way = -1 P1.Y_Way = 0 MapProperty(Snake_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 使用蛇頭顏色 重新繪畫蛇頭 picDisplay.Line (Snake_P1(0).X * MAP_SCALE, Snake_P1(0).Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), HEAD_COLOR, BF 放置食物 For i = 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 游戲進行期間不能改變級別 tmrMove.Enabled = TrueEnd Sub顯示得分榜Private Sub cmdShowScoreList_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 如果游戲正在進行，則發(fā)送“暫?！卑存I事件，暫停游戲 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 以下情況（游戲結(jié)束、游戲還沒有開始、禁用擊鍵事件）不接收按鍵操作。 按“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 在暫停狀態(tài)下不接受“ESC”外的其它按鍵 Select Case KeyCode Case KEY_LFUP 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_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 = -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 當蛇以 水平 方向移動時，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 當蛇以 垂直 方向移動時，UP 和 DN 按鍵無效 Case KEY_UP blnOnKeyEvents = False If P1.Y_Way = 0 Then P1.X_Way = 0