今天學習了劉金玉老師零基礎VB教程的第70-71期,學習的主要內容是貪吃蛇游戲開發第六、七節,記分和游戲暫停控制vb按下按鈕停止時間,以及故障排除。
一、排除重新開始游戲存在的問題
前面開發的貪吃蛇程序在游戲重新開始時通過回車鍵選擇重新開始,貪吃蛇蛇身會一節節重復疊在一起不運動。通過分析,是因為鍵盤的回車鍵值也輸入到方向控制變量中,導致方向無法確定,從而各節蛇身停止運動。通過在If Abs( - ) 2 Then = 代碼中增加條件And Abs( - ) < 4完美地解決了上面的問題。
二、增加游戲計分功能
申明一個計分變量score為long,利用label控件的屬性來顯示score,score的計分規則為score=score+1,在碰撞事件中添加score=score+1和. = "得分:" & score兩個函數,即可達到計分的效果。
2.補充知識move函數,移動控件的位置函數,表達為:
Move 參數1,參數2,參數3,參數4(參數1代表left值,參數2代表top值,參數3代表width值vb按下按鈕停止時間,參數4代表值)
三、游戲暫停功能
通過鍵盤的空格鍵來控制timer控件的屬性,從而達到游戲的暫停與開始效果。
Sub ( As )
If = 32 And . = True Then
. = False
Else
. = True
End If
End Sub
四、貪吃蛇完美運行成功效果
詳見視頻。