level 11
lm357cn1
楼主
Call 横向自上往下背包遍历(5,28,6,300,300,30,30)//调用例子
Sub
横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高)
For i = 开始格数-1
To 结束格数-1
MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \
背包总列数) * 每格高
TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) *
每格宽)&","&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高)
Delay 500
//移动到这格后，这里写你在这格要做的事情的代码
Next
End Sub
代码如上，常规的要嵌套循环才能做到整个背包的遍历，此方法只用一个循环就能做到，而且可以做到任意设定自己想从第几格开始，第几格结束，具有很大的自由度
byto:wbxxxbw
2013年10月13日 11点10分
1
Sub
横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高)
For i = 开始格数-1
To 结束格数-1
MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \
背包总列数) * 每格高
TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) *
每格宽)&","&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高)
Delay 500
//移动到这格后，这里写你在这格要做的事情的代码
Next
End Sub
代码如上，常规的要嵌套循环才能做到整个背包的遍历，此方法只用一个循环就能做到，而且可以做到任意设定自己想从第几格开始，第几格结束，具有很大的自由度
byto:wbxxxbw
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
LZV5
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
![[勉强]](/static/emoticons/u52c9u5f3a.png)