up date:1999.9.21　荒井 良徳　

［VB授業一覧に戻る］ ［TopPageに戻る］

［前回の授業のページ に戻る］ ［次回の授業のページ に進む］

３．条件分岐(if)と論理演算及びランダム(randomize; rnd)

• 手順；問題分析→画面設計→コード（プログラム）作成→デバッグ
• どのようしたら問題を解けるのかをしっかりと考える。
• 入出力をどのようにするかなど使い方などを含めた仕様を考える。
• どのようなインタフェース（見た目）の画面にするかなどを考える。
• 詳細な解決方法を考え、プログラム化する（細かい場合フローチャートを書く）。
• 実行してみて、間違いがないか何回もテストする。
• 間違いがあるならば、プログラムを修正する。
• 条件分岐ＩＦ−ＴＨＥＮ−ＥＬＳＥ文
• 今まではプログラムは上から順番に一本道で実行されていた。
• これでは、いろいろな場合に対処できない。
• そこである条件が満たされた場合とそうではない場合に、 処理を変える方法としてこの条件分岐がある。
• 条件分岐ＩＦ文の文法（使用方法）

If 「条件」 Then
　　「条件が真（Yes)だった場合の処理」
Else
　　「それ（真）以外の場合の処理」
EndIf

• 「条件」部分には論理式を書く（次項参照）。
• またElseとその処理は省略可能。
この場合、真の場合のみ、特別な処理を行ない、そうではない場合は、 特に何も行なわない時に使用される
• 各「処理」は、正しいＶＢであれば、何をどのくらい書いても構わない。
例えば、１００行だろうと千行だろうと、またＩＦ文だろうと構わない。
• 例；年齢による若さの診断メッセージ
先週の年齢計算のプログラムに追加・修正して、 年齢によりお酒が合法的に飲めるかを判断するプログラムとしよう。
もう一つテキストボックス(text2)を用意して、そこにメッセージを出力させる。


n = InputBox("please input your bone year")
t = 1999 - n
text1.Text = t
If t < 20 Then
    text2.Text = "NG"
Else
    text2.Text = "OK"
End If

• もちろん上記プログラムはあくまでもサンプルであり、他に様々な書き方が考えられる。


• 関係演算子／論理演算子

•  >=, >, =, <, <= ［両端に値/変数を書いて比べる］

•  and, or ［両端に論理式を書いてつなげて比べる］

•  not ［右に論理式を書いて否定する］

• 使用例

•  a < b 

ａがｂ未満ならば真。
もちろんa<10などのように変数を使わなくてもよい。
［注意］a < b < c のようにすることは絶対にだめ。左右の二つしか比べられない。

•  a > 0 and a < 10 

ａが０以上かつ１０以下ならば真

•  a < 0 or a > 10 

ａが０以下もしくは１０以上ならば真


• 複数のコマンドボタンとイベントドリブン
• フォームには一つではなく複数のコマンドボタンを張り付けることができる。
そしてそれぞれのボタンに別々のプログラムを書くことができる。
但し注意しなければいけないのは、それらのプログラム間は基本的には無関係。
• 正確には、それらボタンがClickされた時などにそのプログラムが実行される。
このように複数のプログラムを用意しておき、何かのイベント（例えばマウスがClickされるなど） が起きた時に起動されるような環境をイベントドリブンと呼ぶ。


• 余り（剰余）の計算（演算子）
• 剰余演算子 Mod
余りつまり剰余を求めるには、「Mod」演算子を用いる。
• 例えば、

c = a Mod b 

とした場合、ａ÷ｂの余りがｃに代入される。
具体的に、a=7, b=3 の場合、cには余りの「1」が代入される。


• ランダム／乱数
• ランダム／乱数とは；
でたらめ／予想がつかない数のこと。
• ＶＢで乱数を扱うことができ、うまく使うと、 このランダムによるコンピュータ上で、きまぐれや、偶然などを表すことが可能。
• ＶＢで乱数を扱うには、準備(Randomize)が必要で、その上で、「Rnd」を 実行すると、０〜１までの適当などれかの数値となる。
• 使用例；

Randomize
x = Int( Rnd * 6 ) + 1

このようにすると、xに１から６までの数値（整数）が代入される。
• Int()は、()内が無理矢理整数になる（切り捨て）。
• Rndは実行される度に０〜１までの適当などれかの数値となる。
• また、RandomizeはRndを使う場合の約束として１回だけ最初にどこかで実行させておく
• よって、上記例では、Rnd*6で０から６未満の適当な値（少数）となり、
• Int()によって０から５までの適当な整数となり、
• ＋１をすることにより、１から６までの整数となる。
• これによりコンピュータでサイコロを振ったと同じことになる。
• 例えばこのサイコロの目によって、きまぐれや、偶然などを表すことが可能。


• 例題；画像（絵）の入れ換え
• ピクチャーボックスと絵の貼り付け
ピクチャーボックスには例えばビットマップエディタなどで 自分が作った絵を貼り付けることが出来る（Copy&Paste）。
• ピクチャーボックスを二つ用意（Picture1とPicture2とする）し、 これらに別々の絵の貼り付けておこう。
• 次にもう一つ新しいピクチャーボックスを用意（Picture3とする）しておく。
• プログラム内で、例えば、次のようにすると、Picture3にPicture1の絵が表示される。

Picture3.picture = Picture1.picture 



• 挑戦してみよう！「ボタンをクリックすると絵が変わったり変わらなかったり」
ランダムとＩＦ文を組み合わせると、画像の入れ換えができる。 つまり、サイコロを振って、その目が偶数ならば１の絵を、そうでなければ２の絵を 表示させるようにすればよい。
これで、ジャンケンゲームも作れるぞ！！！

［VB授業一覧に戻る］ ［TopPageに戻る］

［前回の授業のページ に戻る］ ［次回の授業のページ に進む］