タイトル : Re^5: 渦巻き回りの座標移動アルゴリズム 投稿日 : 2010/10/01(Fri) 16:20 投稿者 : にっちも
アドバイス、ありがとうございました。 以下のような方法で期待の動作を実現できました! もし、もっと良い方法があれば後学のために、教えてください。 While iCount < mAll If iCount <> 0 Then For i = 0 To 2 If bEndFlg Then Exit For End If If i = 0 Then For j = 1 To iMove If iXToggle Mod 2 <> 0 Then Move(-1, 0) Else Move(1, 0) End If iCount = iCount + 1 If iCount = mAll Then bEndFlg = True Exit For End If Next j ElseIf i = 1 Then For j = 1 To iMove If iXToggle Mod 2 <> 0 Then Move(0, 1) Else Move(0, -1) End If iCount = iCount + 1 Next j End If Next i End If Wend |