作者changjeimin (小張)
看板Visual_Basic
標題[VB6 ] 小精靈程式範例問題
時間Sun Jul 11 17:53:20 2010
請教各位大大
我照著 如下網址
https://www.youtube.com/watch?v=AHKdRBrXxCc&feature=related
跟著他key .
才跟到第二篇影片
他影片中可以很正常的執行
而我跟著他key 卻 陷入無限迴圈?!
以下是我打得程式碼（跟著他key)
有一段for 註解掉 那段就是死因
Dim tile(20, 20) ' 0 = open , 1 = wall , 2 = 小點 , 3 = 大力丸
Dim tilea(20, 20)
Dim tileb(20, 20)
Dim a, b
Dim d ' 1 = 上 , 2 = 下 , 3 =左 4= 右
Dim d2
Dim ani ' 小精靈 0 = 3
Dim ga(4)
Dim gb(4)
Dim gd(4)
Dim gani(4)
Dim gc(4) '鬼 0= 死 , 1 = 活
Dim score
Dim selecta
Dim selectb
Dim dying ' 0 = 活 , # = 死
Dim starting ' 紀錄鬼移動？
Dim super ' 紀錄正常模式 與 吃下大力丸情況
Private Sub Command1_Click()
'For z = 1 To 20
'For w = 1 To 20
tile(z, w) = 1
tilea(z, w) = 1
tileb(z, w) = 0
Call drawscreen
'Next w
'Next z
End Sub
Public Sub drawscreen()
'繪製畫面
For z = 1 To 20
For w = 1 To 20
Call drawtile(z, w)
Next w
Next z
End Sub
Public Sub drawtile(z, w)
Call Picture1.PaintPicture(Picture2.Image, (z - 1) * 30, (w - 1) * 30, 60,
30, tilea(z, w) * 30, tileb(z, w) * 30, 60, 30)
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.52.84
1F：→ x000032001:Call drawscreen位置放錯 call了400次=.= 07/11 20:06
2F：→ changjeimin:謝謝前輩的指教，我真的沒注意到.@_@ 07/12 06:42