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

タイトル Re^4: 渦巻き回りの座標移動アルゴリズム
投稿日: 2010/10/01(Fri) 11:09
投稿者魔界の仮面弁士
2次元配列(初期値0)を作って、1〜121 の数値を入れていくとします。
http://www.vb-user.net/junk/replySamples/2010.10.01.11.05/rasen.png

・Private Cell(-5 To 5, -5 To 5) As Integer

・既に値が入っている(≠0)座標には進めない物とする。

・「現在どの方向に進んでいるか」を管理しておく。

・初回は右に進むものとする。

・移動方向に応じて、以下のようにループ処理する。
 (1) 右に移動時:下方向に 0 があれば下に曲がる。右も下も進めなければ終了。
 (2) 下に移動時:左方向に 0 があれば左に曲がる。下も左も進めなければ終了。
 (3) 左に移動時:上方向に 0 があれば上に曲がる。左も上も進めなければ終了。
 (4) 上に移動時:右方向に 0 があれば右に曲がる。上も右も進めなければ終了。

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

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