物理の授業で出てくる波の方程式を理解させるには実際にVBなどでグラフを描くのがいいと思います。ここでは物理の授業で実践した波の方程式（y=振幅*sin(t/周期-x/波長)）を理解させるためのプログラミングを紹介します。

• 波の方程式の波長、振幅を変化させるとどうなるかを理解させる。
• 波の重ね合わせの原理を理解させる。
• うなりのしくみを理解させる。

（１）フォームにPicture1とCommand1を置きます。

• Picture1
• Command1

（２）コード〜「Command1」ボタンをダブルクリックして以下のコードを打ち込む。

Private Sub Command1_Click() 　Dim x, y1 As Single 　Picture1.Line (0, 1000)-(10000, 1000), QBColor(4) 　For x = 0 To 10000 　　y1 = 500 * Sin(x / 30) 　　Picture1.PSet (x, y1 + 1000), QBColor(9) 　Next x End Sub

１行目　コマンド１をクリックしたらEndSubまでのプログラムを実行すますよ。 ２行目　xとy1の２つの変数を使いますよ。 ３行目　x軸を引きます。色は４番（赤）にしましょう。 ４行目　For to 〜Nextの範囲を、xの値が１から１万になるまで繰り返します。 ５行目　y1 = 振幅* Sin(x / 波長) ６行目　指定された座標に点を打ちます。

（３）実行結果

（４）発展〜波長と周期をいろいろ変えてプログラムを実行しましょう。

（１）コード（赤字が課題１に追加した部分）

Private Sub Command1_Click() 　Dim x, y1, y2 As Single 　Picture1.Line (0, 1000)-(10000, 1000), QBColor(4) 　For x = 0 To 10000 　y1 = 500 * Sin(x / 30) 　y2 = 500 * Sin(x / 29) 　Picture1.PSet (x, y1 + 1000), QBColor(9) 　Picture1.PSet (x, y2 + 1000), QBColor(10) 　Picture1.PSet (x, y1 + y2 + 1000), QBColor(14) 　Next x End Sub

（２）実行結果

黄色の波形が合成波。うなり（振幅の強弱）が観測できる。