劉金玉的零基礎VB教程068期： 貪吃蛇遊戲開發第四節 隨機生成彩色食物

  • 2020 年 3 月 26 日
  • 筆記

影片講解https://v.qq.com/x/page/y0935wgouhg.html

文字講解：

劉金玉的零基礎VB教程068期：貪吃蛇遊戲開發第四節

隨機生成彩色食物

食物生成

1、用到RGB函數

2、RND隨機數

3、食物可以當做一個對象，那麼我們可以定義一顆食物的類型，擁有坐標X，Y，顏色R,G,B

4、RGB顏色也可以定義一個類型

5、生成的食物必須在窗口內

課堂總結

1、畫食物的程式碼寫到哪裡？每一次蛇的運動實際上是把介面給cls清除，我們只有每次清除後再畫出來，才能看到我們的食物

2、如何保證食物生成後的位置不變？保證食物的數據位置是在全局變數中，才能保證食物位置不變

介面效果：

源程式碼： 

Private Type Node '每一節蛇身      D As Integer '37左38上39右40下      X As Single 'left      Y As Single 'top  End Type  Dim W As Integer '每一節蛇身寬度  Dim sno() As Node '聲明一條蛇，是動態數組  Dim currentDirect As Integer '代表蛇運動的當前方向    Private WithEvents timer1 As Timer  '定義顏色類型  Private Type Color        R As Integer      G As Integer      B As Integer  End Type  '定義食物類型  Private Type Food      X As Single      Y As Single      C As Color  End Type  '聲明食物  Dim goods As Food  '初始化一條蛇的各個參數  Function init()  AutoRedraw = True '自動重繪  W = 200  currentDirect = 39 '默認向右運動  ReDim sno(5) As Node    '初始化各個坐標點  Dim i As Long  For i = 0 To UBound(sno) Step 1        sno(i).D = currentDirect      sno(i).X = ScaleWidth / 2 + i * W      sno(i).Y = ScaleHeight / 2  Next i    '初始化食物數據  Call rndFood    End Function    '隨機生成食物數據  Function rndFood()  Randomize  goods.X = Int(Rnd * (ScaleWidth - W))  goods.Y = Int(Rnd * (ScaleHeight - W))  goods.C.R = Int(Rnd * 256)  goods.C.G = Int(Rnd * 256)  goods.C.B = Int(Rnd * 256)  End Function  '畫食物  Function drawFood()  Line (goods.X, goods.Y)-(goods.X + W, goods.Y + W), RGB(goods.C.R, goods.C.G, goods.C.B), BF  End Function    '畫一條蛇  Function drawSnake()  Cls  Dim i As Long    For i = 0 To UBound(sno) Step 1        Line (sno(i).X, sno(i).Y)-(sno(i).X + W, sno(i).Y + W), vbBlue, BF    Next i    End Function    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)  If Abs(currentDirect - KeyCode) <> 2 Then currentDirect = KeyCode  End Sub    Private Sub Form_Load()  Call init  Call drawSnake    '對時鐘控制項進行初始化  Set timer1 = Controls.Add("vb.timer", "timer1")  timer1.Interval = 100  timer1.Enabled = True        End Sub    '運動思路：插入頭結點，刪除尾節點  Function sport()    Dim i As Long  '將每一個節點數據向前移動一位  For i = 1 To UBound(sno) Step 1        sno(i - 1) = sno(i)    Next i    '將頭結點，也就是數組的最後一位重新複製  If currentDirect = 37 Then      sno(UBound(sno)).X = sno(UBound(sno)).X - W  ElseIf currentDirect = 38 Then      sno(UBound(sno)).Y = sno(UBound(sno)).Y - W  ElseIf currentDirect = 39 Then      sno(UBound(sno)).X = sno(UBound(sno)).X + W  ElseIf currentDirect = 40 Then      sno(UBound(sno)).Y = sno(UBound(sno)).Y + W  End If    End Function    Private Sub timer1_Timer()  Call sport  Call drawSnake  '判斷是否撞到窗體邊緣  If isCrashWall Then      If MsgBox("GAME OVER ！是否重新開始？", vbYesNo, "遊戲結束") = vbYes Then          Call init      Else          End      End If  End If    '畫食物  Call drawFood    End Sub    '是否撞到窗體邊緣，撞到返回true，否則就是false  Function isCrashWall() As Boolean    isCrashWall = False    If sno(UBound(sno)).X + W > ScaleWidth _    Or sno(UBound(sno)).X < 0 _    Or sno(UBound(sno)).Y < 0 _    Or sno(UBound(sno)).Y + W > ScaleHeight Then      isCrashWall = True '撞到了  End If    End Function

VirMach 便宜 VPS

QNews

QNews