作者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