tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。