課題２（パラシュート）概略解説

• 分かりにくい部分があるかとはおもいますが、しっかりとそして分かるまで何回も資料や教科書を読みましょう。
• プログラムの流れがきちんと追えていなさそうな人もいらっしゃるようです。
  自分がコンピュータになったつもりで作成したプログラムを一文一文実行される順番に追っていける必要があります。
• エラーが出ていないからといってあっているわけではありません。使い方が不明な命令（ステートメント）については、必ずきちんと確かめましょう。
• プログラミングは、きちんと動くことがまず大事です。きちんと動かないのに次々と次のことを考えても全く仕方がありません。
• プログラムは、方法を考えて、それを文法に従って書いていく作業です。よって、まずどのような処理をさせるのかを自分で考え、それを正確な文法で表現していきます。1行1行、そしてどこに書くかその順番などについて、自分で全てのことが把握できていないといけないです。
  動くことが大事とはいっても、なぜ動いているのかがわからないのは、できていないと同じことです。
• じっくりと処理方法について考え、論理的に組み立てる！
• 資料などを参照し正確な文法できちんと書く！

○課題「２人のパラシュート早く降下するのはどれ？競争」

設定；２人がパラシュートで上空から降下してきます。先に地面についた者を勝ちとします。

1. 基礎部分のプログラム
• 横に動かした例題と基本的には同じ構造でよいはずです。
• 横に動かすには、ピクチャーボックスのLeftプロパティを変えていけばよいだけです。
• 座標系については紙に書くとわかりやすいはずです。
• 二つを動かすからといって、ループ（Doループ）が二つ必要なわけではありません。
• ループは繰り返し処理するというだけです。
• 二つを動かします。これを条件になるまで繰り返すと考えましょう。
• 実際には二つを同時に動かせないのですが、二つを続けて動かせば同時に動かせたことになります。
• 複雑な条件を書く場合、And や Or が必要となります。文法及び利用例についてはきちんと確認しましょう。
• コメントだらけで見にくいかもしれませんが、以下にきちんと動くプログラム例を示します。長くみえますが、コメントを除いて、より簡単に書けばわずか10行程度です。
  但し、正解は一つではありませんので、必ずしも同じ必要はありません。

        '基礎部分のプログラム例

        '変数の宣言
        Dim d1, d2, k
        Randomize() 'ランダムを使うための準備；1回だけ実行されるように最初に書く

        'ピクチャーボックス二つを一番上に移動する
        PictureBox1.Top = 0
        PictureBox2.Top = 0

        'ループ；一つのループの中で二つのピクチャーボックスを動かせばよい。
        'ループを二つ作ってもこの場合全く意味がない。
        '二重ループは一つの外側のループ一回の中で内側のループが回り切る。これが外側のループが終了するまで繰り返される。
        'ループ内の処理は、正しくは移動位置を計算→移動させるという順番にすべきである。
        '例えば次のような処理順番はよくない。
        'Do
        '  PictureBox1.Top = x
        '  x = x + Int(Rnd(1) * 6 + 1)
        'Loop Until XXXXX（xを使った条件）

        Do
            d1 = Int(Rnd(1) * 6 + 1) 'さいころ１；ピクチャー１用
            d2 = Int(Rnd(1) * 6 + 1) 'さいころ２；ピクチャー２用

            PictureBox1.Top = PictureBox1.Top + d1 'ピクチャー１を現在の位置からさいころ１の目の分だけ進める
            PictureBox2.Top = PictureBox2.Top + d2 'ピクチャー２を現在の位置からさいころ２の目の分だけ進める
            '*** 勿論 PictureBox1.Top = PictureBox1.Top + Int(Rnd(1) * 6 + 1) のようにしてもよい
            '*** 一方、分解して次のようにしてもよい。
            'ny1 = PictureBox1.Top
            'y1 = ny1 + d1
            'PictureBox1.Top = y1
            'ここで重要なことは、さいころを振って、その目だけ進めるという順番にすること。

            '空のfor文；　上記でピクチャー１，２を進めたら、ちょっと休む
            For k = 0 To 200000  'この数字は適当。大きくすればいっぱい休むことになるのでゆっくりになる
            Next k

        Loop Until ((PictureBox1.Top + PictureBox1.Height) >= (Me.Size.Height - 30 - 4)) Or ((PictureBox2.Top + PictureBox2.Height) >= (Me.Size.Height - 30 - 4))
        '*** 判定条件は二つ
        '***　一つは「ピクチャー１が着くまで」、もう一つは「ピクチャー２が着くまで」
        '*** これら条件二つの関係は、どちらかの条件になるまでなので、条件１もしくは条件２になるまで、
        '***　となり、条件１ Or 条件２とする。
        '*** 条件１「ピクチャー１が着くまで」は、「Picturebox1.Top = Me.Size.Height」がベースとなる。
        '*** Me.Size.Height（もしくはMe.Height）は、フォームウィンドウの外側全体のの高さ（長さ）を
        '*** 意味しており、タイトルバー及びウィンドウ枠の太さも、考慮すべきである。
        '***　またピクチャー１の上部分の高さが画面の高さと等しくなれば、ということになり、
        '***　ピクチャー１が画面の下に隠れてしまう。
        '***　そこでピクチャー１の下部分が画面下に着くまでと変えるには、ピクチャー１の高さを考慮する。
        '***　(Picturebox1.Top + Picturebox1.Height)は下までの高さとなる。
        '*** これをウィンドウの高さと比べればよい。
        '***  ウィンドウ枠等の太さを考慮したウィンドウ内（内側）の高さは、
        '*** (Me.Size.Height-30-4)となり、これら二つを比べればよい。
        '*** 条件において比較を「=」としているが、これではまずい。無限ループを招く可能性が高い。
        '***　さいころの目は１〜６までであり、もし後２マスでゴールの場合、もし６の目が出たら、
        '***　ゴールを４つ通り越してしまう。つまりゴールにぴったりとなるとは限らない。
        '***　そこで、条件を、「同じもしくは超えたら」として、「>=」としなければならない。
        '*** Loopの条件が複雑（長く）なってしまうのを嫌うのであれば、
        '***　  p1b = Picturebox1.Top + Picturebox1.Height
        '***    wh = Me.Size.Height-30-4
        '*** とループの中であらかじめ計算しておき、
        '*** Loop Until ((p1b >= wh )... などのようにしてもよい。
        '*** また、(Picturebox1.Top + Picturebox1.Height) >= (Me.Size.Height-30-4))ではなく、
        '*** (Picturebox1.Top >= ((Me.Size.Height-30-4) - Picturebox1.Height))などのようにしても
        '***　全く問題ない。

        '次に判定を行う
        '　判定はループが終了した後、つまりどちらかが先にゴールに着いた直後、
        '改めて二つのピクチャーの現在位置を調べ、どちらが下にいるのかを
        '比べればよい。つまりループの終了条件とは別に考えなければならない。
        '　この比較条件は、「(PictureBox1.Top > PictureBox2.Top)」をベースとして考える。
        '但しこれでは下部分が先に進んでいるではなく、上部分がどちらが下にあるとなっている。
        'そこで正確にピクチャーの下が先に進んでいるかを比べる必要がある。
        'なおもしたまたま二つのピクチャーボックスの高さ（大きさ）が同じ場合は
        '上記の条件でもよいわけである。
        If ((PictureBox1.Top + PictureBox1.Height) > (PictureBox2.Top + PictureBox2.Height)) Then
            Label1.Text = "Pic１の勝ち"
        Else
            'Elseの後ろに条件を書いてはいけない！またそれ以外なのだから必要もない。
            Label1.Text = "Pic２の勝ち"
        End If

拡張は一つ一つを吟味していけば何とかなるはず。。。

上記プログラムで分からない部分があったら、必ず何回もコメントを読み、また必要な資料を読んだ上で、気軽に尋ねてください。

少なくとも分からないことのないようにしておくべきです。

拡張部分についても、アイデアが分からないや、自分で作成したプログラムについてコメントして欲しいなどがあったら、こちらも気軽に尋ねてください。

---

[「Ｃ班」プログラミング基礎のTopに戻る]