闖迷宮游戲代碼VB編程實現(xiàn)

1、迷宮游戲源代碼Const row = 22, col = 30Dim grid(row + 1, col + 1)Private Sub dmg_Click()Picture1.Left = 400初始化圖片位置Picture1.Top = 400Timer1.Enabled = True啟動時鐘End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)鍵盤控制圖片移動l = Picture1.Left 400t = Picture1.Top 400Line (l * 400, t * 400)-(400 * (l

2、 + 1), 400 * (t + 1), vbGreen, BF顯示走過的路徑Select Case KeyCode隨著鍵盤的動作來移動Case vbKeyLeftIf Picture1.Left - 400 = 400 ThenIf grid(t, l - 1) = 0 ThenPicture1.Left = Picture1.Left - 400Picture1.Top = Picture1.TopEnd IfEnd IfCase vbKeyRightIf Picture1.Left + 400 = 400 * col ThenIf grid(t, l + 1) = 0 ThenPict

3、ure1.Left = Picture1.Left + 400Picture1.Top = Picture1.TopEnd IfEnd IfCase vbKeyDownIf Picture1.Top + 400 = 400 ThenIf grid(t - 1, l) = 0 ThenPicture1.Left = Picture1.LeftPicture1.Top = Picture1.Top - 400End IfEnd IfEnd SelectIf Picturel.Top 400 = row And Picturel.Left 400 = col - 1 ThenTimerl.Enabl

4、ed = FalseMsgBox (恭喜你，成功走出迷宮！)顯示成功信息End IfEnd SubPrivate Sub Form_Load()Open 迷宮矩陣.txt For Input As #1讀取迷宮矩陣，繪制迷宮圖For i = 0 To row + 1For j = 0 To col + 1If 1 = i And i = row And 1 = j And j = col ThenInput #1, grid(i, j)If grid(i, j) = 1 Then值為1則表示障礙或墻，0則表示通道，即可行路徑Line (j * 400, i * 400)-(400 * (j +

5、 1), 400 * (i + 1), vbBlue, BF End IfElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BF End IfNextNextClose #1End SubPrivate Sub mig_Click()隨機獲取迷宮矩陣Picture1.Left = 400Picture1.Top = 400Randomizem = row * Int(20 * Rnd)Open 迷宮矩陣.txt For Input As #1讀取事先設(shè)計好的迷宮矩陣，隨機讀取一種矩陣Do While n mLi

6、ne Input #1, temp n = n + 1LoopFor i = 1 To rowFor j = 1 To colInput #1, grid(i, j)If grid(i, j) = 1 ThenLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BF ElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbWhite, B End IfNextNextClose #1End SubPrivate Sub start_Click()Pictu

7、rel.Left = 400Picture1.Top = 400Open 迷宮矩陣.txt For Input As #1初始化迷宮矩陣For i = 1 To rowFor j = 1 To colInput #1, grid(i, j)If grid(i, j) = 1 ThenLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BFElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbWhite, BEnd IfNextNextClose #1En

8、d SubPrivate Sub Timer1_Timer()使迷宮矩陣動態(tài)變化，隨機生成的迷宮可能是走不通的X = 1: Y = 1For i = 1 To rowFor j = 1 To colRandomizegrid(i, j) = Int(2 * Rnd)If grid(i, j) = 1 ThenLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbBlue, BFElseLine (j * 400, i * 400)-(400 * (j + 1), 400 * (i + 1), vbWhite, BEnd IfNextN

9、extEnd Sub設(shè)計時，只需3個picture控件和1個timer控件即可，故還是比較簡單的。 如下圖所示：氐 t_t=1t -卜 n Tm t Tc: “一ti m -二“迷宮矩陣.txt”中的內(nèi)容如下所示（自己設(shè)計一個即可）文幽F）制格式冏查看M 整的HiL L L L O 1 u 1 o n o o Q OG o _u L o D 1 _u 1 o _o ,1 o o 1 o 1L _1 IX .A- 1 Q Q o o 110-10 JI Tx _ny Jx _n_ o _u L o o o QODO o 1 o o 1 -1 _HW 1A 1 - -=* - olool o 1

10、o o o o 1 o o o 11 -u 1* 1- o 1 ux 1 rL- Tx dx or 11 I L o I o o L Q L I o- Q o o -o 3 1 o 1 1 D o Q- 1 I 0 0 110 o 1 1 o o Au _u 1L JL o 1 o o o oD- o u o o o u u 1 o oo n o D J u o o -C5 BI I 1J- -Q 1 o 1 1 1 o o o 1 o 11 -u 1 .1 ,o o 1 o 1 1 o u 1 1 D o D D D 1 L D L 1 TJ IX 41_ Jl o 1 o 1 1 o o

11、u o & al o- u 1J 1- o 1 u o 1 o口 o 0 1 1 u o o 1- o- T- _u 1 口 11 0口 1 o o D D n- o u o o o o u o 1 oo 1 o 1 1 L u o o 110-01 o o u o 1 1 o 1 o o 11 Av 1 110 0-01 o J o Q o O-U1LO o 0 u 1- iI -r-JI 1 o Q 1 o loooo o o 1 o 1一 1 o o 1 o 10-011 ,o o o L 1 llo-LO 1 1 Q o o 1 Qu IQ I 1 口 口 L olooo 10 0-00 ni Q nV o o o o o 13 1* _0T I* t-i i- i-I OY t-i 1 o I L L n o L Q oTx- .JA- 11 Aw Av D 1 n* L 1- o o o 1 1 1 1 0 011 lx- 1 o n o io L o L L o o 1 Q o IX - li o o o o o -I .1-1 1-11-1 11111 ix cz- f 1 一 4 -IX Au IL 1- 1L o 1 1 1 o IX i-l -u 1L- ax o IL I o L o o o 1 o 11 11- 1- L 1 nW IX