プログラミングチャレンジスクエア - 第 3 章公式計算プログラムを作ってみよう VB 編

第 3 章公式計算プログラムを作ってみよう

※ また、サンプルプログラムは、あらかじめ Visual Basic 2005 Express Edition と同じパソコンにインストールしておいてください。
設定方法はこちら

この章でやること
・円形、三角形、四角形の公式計算プログラムを完成させます。
・変数の作り方と、変数に対する値の代入方法について体験します。

	第 3 章公式計算プログラムを作ってみよう
	面積を計算するコードを確認する
	三角形用のコードを書いてみよう
	四角形用のコードを書いてみよう

健一さんが加わって、気分も新たに三人でプログラミングの勉強を進めることになった翔太君と美咲さんですが、第 3 章のタイトルを見て、翔太君は少し不安な様子です。

翔太	：今度は計算プログラムか。計算って得意じゃないんだよな。
美咲	：その計算を代わりにやってくれるプログラムなんだから、翔太君にはありがたい話なんじゃないの？
翔太	：でも、なんとなく抵抗があるなぁ。難しいことはすべてコンピュータ任せでも、プログラミングでコンピュータに計算させるためには、自分が理解してなきゃいけないんじゃないかな？
健一	：翔太君が抵抗を感じるのも無理はないかもしれないな。プログラミング自体が初めてで難しそうなのに、苦手な計算をやらせるんだからね。でも、プログラムで公式を書いてしまえば、計算自体はコンピュータがやってくれるんだから、とても便利だよ。公式を覚えるのは大変でも、書き写すくらいはできるだろう？　後の難しいことは、コンピュータに任せてしまえばいい。
翔太	：そう考えるとやれそうな気がしてきた。
美咲	：それじゃやってみましょうよ。
翔太	：よし、がんばってみよう。

二人は入門マニュアルの第 3 章を開きました。すると、まずサンプルのプロジェクトファイルを開いた画面が紹介されています。

翔太	：まず、サンプルを開いて、っと。

プログラムメニューから Visual Basic 2005 Express Edition を立ち上げて、サンプルファイルフォルダの中の Part3_VB\Part3_Base フォルダにある Part3.sln を開きます。[ソリューションエクスプローラ] から、[Form1.vb] を開きます。

このとき、フォームには、いくつかのコントロールが貼り付けられています。上から 4 つのブロックに分けられ、最上段の○、△、□の図形ボタングループ、二段目の計算式グループ、三段目の計算ボタン、そして四段目の計算結果の表示領域、の順番になります。

健一	：まず、デバッグボタンをクリックして、動作を確認してみよう。

プログラムが立ち上がるので、まず円形の面積を求めるテストをしてみましょう。

翔太	：最初は円形の面積を求める公式が表示されてるんだね。公式のところに数値を入れればいいのか。半径を二箇所に入れて、計算ボタンを押すと・・・

美咲	：ちゃんと答えが表示されたわ。数値は直接入力しても、テキストボックスの横の上下ボタンを押しても入力できるようね。円周率は変更できないみたい。
翔太	：なるほど。次は、三角形をやってみようか。図形のところがボタンになってるからクリックしてみよう。
美咲	：三角形の面積の公式が表示されたわ。今度は私が数値を入れてみるわね。
翔太	：・・・あれ？　計算ボタンを押しても結果が表示されないぞ。四角形も同じだ。公式は表示されるけど、計算はできないんだね。
健一	：これがこの章の課題みたいだね。公式の計算をどうやっているのか、ボタンによって公式をどう切り替えるのか、入門マニュアルを見ながらじっくり勉強していこう。

＜面積を計算するコードを確認する＞

健一	：まず、デバッグ中のプログラムを終了させて、今度は、[Form1.vb] のデザイナ画面で、[計算] ボタンのプロパティを表示させるんだ。どうすればいいか覚えてるかい？
美咲	：右下のプロパティウィンドウが最初から開いていれば、コントロールをクリックするだけでいいけど、開いてなければあらかじめ [表示] メニューの [プロパティウィンドウ] を選択して開いておけばいい、だったわよね。
健一	：そのとおり。他にも右クリックメニューで [プロパティ] を選ぶ方法もある。プロパティの開き方はもう大丈夫だね。それじゃ早速プログラムの内容を考えていくことにしよう。[計算] ボタンをクリックしたときに計算が行われるので、クリックしたときの動作を確認する必要がある。今度は、プロパティウィンドウの [イベント] アイコンをクリックしてイベントの一覧を表示してみよう。

一覧にある [Click] の右にあるコンボボックスに「btnEqual_Click」と入力されているので、[Click] をダブルクリックします。

翔太	：Form1.vb のコードエディタが開いたよ。なんだかずいぶんたくさんあるなぁ。
健一	：図形ボタンのコードも入ってるからね。でもカーソルが表示されてるのは、今回開いた「btnEqual_Click」イベントに関する部分のはずだから、まずはそこを見てほしい。

コードエディタの「btnEqual_Click」イベントに関する部分には、リスト 3-1-1 に紹介するようなコードが表示されます。

リスト 3-1-1


    Private Sub btnEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEqual.Click

        ' 面積の変数を用意
        Dim Menseki As Double = 0

        Select Case intMode
            Case 0  '円形
                ' 半径１と半径２の変数を用意
                Dim Hankei1 As Double
                Dim Hankei2 As Double
                ' 指定した値を変数に代入
                Hankei1 = nudValue1.Value
                Hankei2 = nudValue2.Value
                ' 円形の面積を求める
                Menseki = Hankei1 * Hankei2 * 3.14
            Case 1  '三角形

            Case 2  '四角形

        End Select

        ' 求めた面積を表示するテキスト ボックス(txtAnswer) の Text プロパティに
        ' 求めた面積の値 (Double) を文字列型 (String) に変換して代入する
        txtAnswer.Text = Menseki.ToString

    End Sub

翔太	：Dim とか Select とか新しい単語がいくつか出てきてるね。
美咲	：でも、Menseki とか、Hankei などはそれぞれ面積や半径のことじゃない？　この辺りはわかりやすいみたいだけど。
健一	：いいところに気が付いたね。Menseki や Hankei とあるのは、確かにそれぞれ面積や半径のことなんだ。今回のプログラムでは、面積は毎回計算する内容によって変わるし、半径はどういう値を入れるかで変わってくる。プログラミングの世界では、このように中身が変わる可能性があるものを入れておく入れ物を作っておくんだ。この入れ物のことを変数と呼ぶんだよ。
翔太	：変数か・・・　“数” って言うくらいだから数字が入るの？
健一	：なかなか鋭いね。変数には数字（この場合は数値というんだ）だけじゃなくて、文字も入れることができるんだ。変数の種類の話はここまでにして、とりあえず、ここで出てくる変数を上げてみてごらん。
美咲	：えーっと・・・、次の 3 つかしら。

Menseki

Hankei1

Hankei2

翔太	：Hankei1 と Hankei2 は別のものなの？
美咲	：1 と 2 でそれぞれ記述があるから・・・、健一さん、違った？
健一	：美咲ちゃんの答えで正解だよ。変数の名前は自由につけられるんだけど、プログラムを書いた本人以外が見てもわかりやすい名前をつけるのが一般的なんだ。でも、それだと同じ名前を使いたい場合がどうしても出てくる。そこで、同じ名前の変数を使いたいときに、番号をつけて違いを表すようにしてるんだよ。
翔太	：そうなんだ。そういえば、円の面積の公式には半径が二つ出てくるから、それで Hankei という変数が 2 つ必要なんだね。それでこの 3 つの変数を使って、このコードではなにがおこなわれているの？
健一	：順を追って簡単に説明していこう。まず 1 行目はこのコードがどこで使われるかを説明しているところなので、特に気にする必要はない。問題はその次の行だ。ここで最初の変数が出てくる。

リスト 3-1-2


        ' 面積の変数を用意
        Dim Menseki As Double = 0

美咲	：Menseki という変数は分かるけど、Double と 0・・・？
健一	：これは変数を作るための命令なんだ。Dim や As についてはここでは気にしなくていい。ただ、Double というのは変数の種類を表す単語で、さっき話した数字（数値）を入れることができる種類の名前なんだ。だから、ここでは Double 型という種類として変数 Menseki を作成している、ということになる。
翔太	：その後の 0 は？
健一	：これは変数 Menseki の最初の値（初期値）を 0 に設定しているんだよ。Menseki はその名の通り、計算結果の面積の値を入れておくところだけど、最初は計算する前だから、とりあえず 0 を入れてある。ちなみに、これまでにもこうした「＝」を使う文が出てきたけど、プログラムの世界では、「＝」を使うと右側の値が左側の変数などに設定されるという決まりになっているんだ。これを代入という。これも、この機会に覚えておくといいよ。
翔太	：変数を設定するのも手間がかかるんだね。
健一	：でも文にすると一行しかないだろう？　慣れてしまえばたいした手間じゃなくなるさ。
翔太	：ふーん。そういうものなんだ。
健一	：さあ、次の行に行こう。Select から始まる部分というのは、実は図形ボタンをクリックしたときの動作を表している。Select という命令の役割などはここでは気にしなくていい。それよりも、その下の「Case 0 '円形」から始まる行を見てごらん。

リスト 3-1-3


                ' 半径１と半径２の変数を用意
                Dim Hankei1 As Double
                Dim Hankei2 As Double
                ' 指定した値を変数に代入
                Hankei1 = nudValue1.Value
                Hankei2 = nudValue2.Value
                ' 円形の面積を求める
                Menseki = Hankei1 * Hankei2 * 3.14

美咲	：最初に、円形と書いてあるってことは、ここでは円形の面積を求めようとしてるの？
健一	：そのとおり。ちなみに、この円形と書いてあるところは 2 章で紹介したコメント文だよ。このように、命令文と同じ行にコメントを入れることもできるんだ。
翔太	：「'」から後ろがコメントってことだね。
健一	：そういうこと。さて、リスト 3-1-3 を見てほしい。まず Hankei1 と Hankei2 という変数を Menskei とおなじ Double 型で作成しているのがわかるかな？
翔太	：うん。でも、ここでは 0 は入れてないんだね。
健一	：そう、この二つの変数には、ユーザーが指定した数値を入れることになるから、ここでは入れてない。その代わり、すぐ次の行で、それぞれの変数に代入が行われているだろう？
美咲	：Hankei1 に nudValue1.Value を代入・・・って、これは数値なの？
健一	：さっきの [Form1.vb] のデザイナ画面で、テキストボックスの横に上下ボタンが付いていたのを覚えてる？

健一	：この上下ボタン付きのテキストボックスを数値アップダウンコントロールというんだ。ツールボックスでは「NumericUpDown」と表記されている。nudValue1.Value というのは、そのコントロールで指定された値のことで、この場合は数値ということになる。
翔太	：これも 1 と 2 があるのは、画面に半径を入力するところが 2 つあったからだね。
健一	：そうだよ。それぞれの半径の変数（Hankei1 とHankei2）に、コントロールからの値を代入してるんだ。そして・・・

リスト 3-1-4


                ' 円形の面積を求める
                Menseki = Hankei1 * Hankei2 * 3.14

美咲	：半径と半径と 3.14 ということは、* は掛け算の × という意味？　じゃ、変数を使って計算してるんだ。
健一	：そう、それがここで最も重要なことなんだ。変数はただの入れ物じゃなくて、いろんな使い方ができるんだよ。
翔太	：計算をしてその結果を代入できるんだね。普通の計算だと、左側の計算式の結果が右側に出てくるものだけど、プログラムの世界は逆なんだ。

健一	：それが代入の特徴でもある。かならず右側の値が左側に代入されるということを覚えておこう。それでは、少し飛ばして終わりの方の次の 3 行を見てごらん。

リスト 3-1-5


        ' 求めた面積を表示するテキスト ボックス(txtAnswer) の Text プロパティに
        ' 求めた面積の値 (Double) を文字列型 (String) に変換して代入する
        txtAnswer.Text = Menseki.ToString

翔太	：Menseki が使われてるね。
健一	：実はここでは、Menseki の内容を表示させるための処理を行っているんだ。txtAnswer というのは、フォームの面積と書かれたところにあるテキストボックスの名前で、ここでは Text プロパティに Menseki の値を代入している。

美咲	：その横の ToString って？
健一	：実はプロパティにも扱える内容の種類が決まっていて、Text プロパティは String 型という文字を表示させるための型が設定されているんだ。Menseki は何型だった？
翔太	：数値を扱う Double 型、だったよね。
健一	：そう、だからそのままだとお互いに型が違うから使えないんだ。そこで、ToString と変数の後ろにつけることで、変数の中身を String 型に変換してから代入してるんだよ。
美咲	：へぇー。型の変換もできるんだ。
翔太	：それも代入するときに変換なんてすごいね。
健一	：さぁ、ここまでが円形の面積を求めるためのコードになる。大体、何をやってるか理解できたかな？
美咲	：はい。まず変数を作って、そこにユーザーに指定してもらった数値を入れて、計算するのよね。
翔太	：そしてそれをテキストボックスのプロパティに入れて表示させるんだ。
健一	：そのとおり。ちなみに、最後のテキストボックスのプロパティに値を入れるところは、円形だけじゃなくてほかの図形でも共通して使うことになるので、ここで設定してあれば、あとは変更する必要はないんだよ。
翔太	：だから他の命令よりも下に書いてあるんだね。
健一	：よし、それでは残りの三角形と四角形のコードを実際に書いてみよう。

＜三角形用のコードを書いてみよう＞

健一	：まず、ここで使う変数を決めよう。
翔太	：三角形の面積を求める公式は、「底辺」掛ける「高さ」割る 2。最後の 2 は円周率と同じでそのまま使うとして、Teihen と Takasa の 2 つの変数があれば間に合いそうだな。
美咲	：それぞれ、Double 型で最初に作っておくのよね。こんな書き方でいいのかしら。

リスト 3-2-1


                ' 底辺と高さの変数を用意
                Dim Teihen As Double
                Dim Takasa As Double

健一	：よく出来ました。でも、これをどこに入れればいいと思う？
翔太	：さっきの円形のときに、「Case 0 '円形」の下だったから、今度は・・・「Case 1 '三角形」の次の行？
健一	：正解！　続けて、残りの行も考えてみよう。
美咲	：Teihen と Takasa にそれぞれ数値を代入しないといけないんだから、さっきと同じように・・・

リスト 3-2-2


                ' 指定した値を変数に代入
                Teihen = nudValue1.Value
                Takasa = nudValue2.Value

美咲	：これを続けて書けばいいんじゃない？
健一	：そう。そして、最後に公式に当てはめていけばいい。掛け算は * を使うけど、割り算は / を使うんだよ。
翔太	：それじゃ、これでいいのかな。

リスト 3-2-3


                ' 三角形の面積を求める
                Menseki = Teihen * Takasa / 2

健一	：いいぞ。だんだんわかってきたみたいだね。それじゃ、デバッグボタンをクリックして、三角形の計算を試してみよう。

デバッグボタンをクリックし、プログラムを実行します。そして、三角形ボタンをクリックして、公式を三角形の面積を求める公式に切り替えてください。数値を入力後、[計算] ボタンをクリックして計算結果が表示されれば成功です。

健一	：それでは、ここまで書いたコードをもう一度確認しておこう。コードエディタを見てほしい。次のリスト 3-2-4 のようなコードが表示されていれば正解だ。もしデバッグボタンを押したときに動作がおかしければ、どこかで書き間違いがないか確認してみよう。

リスト 3-2-4


    Private Sub btnEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEqual.Click

        ' 面積の変数を用意
        Dim Menseki As Double

        Select Case intMode
            Case 0  '円形
                ' 半径１と半径２の変数を用意
                Dim Hankei1 As Double
                Dim Hankei2 As Double
                ' 指定した値を変数に代入
                Hankei1 = nudValue1.Value
                Hankei2 = nudValue2.Value
                ' 円形の面積を求める
                Menseki = Hankei1 * Hankei2 * 3.14
            Case 1  '三角形
                ' 底辺と高さの変数を用意
                Dim Teihen As Double
                Dim Takasa As Double
                ' 指定した値を変数に代入
                Teihen = nudValue1.Value
                Takasa = nudValue2.Value
                ' 三角形の面積を求める
                Menseki = Teihen * Takasa / 2
            Case 2  '四角形

        End Select

        ' 求めた面積を表示するテキスト ボックス(txtAnswer) の Text プロパティに
        ' 求めた面積の値 (Double) を文字列型 (String) に変換して代入する
        txtAnswer.Text = Menseki.ToString

    End Sub

＜四角形用のコードを書いてみよう＞

健一	：今度は四角形だ。三角形のときと同じように、最初に変数を決めておこう。
美咲	：四角形の面積を求める公式は、「縦」掛ける「横」だから、Tate と Yoko の2 つの変数にしましょうか。
翔太	：それを、Double 型で最初に作るんだよね。「Case 2 '四角形」の次の行に、追加して・・・

リスト 3-3-1


                ' 縦と横の変数を用意
                Dim Tate As Double
                Dim Yoko As Double

美咲	：さらに数値アップダウンコントロールの値を代入する、と。

リスト 3-3-2


                ' 指定した値を変数に代入
                Tate = nudValue1.Value
                Yoko = nudValue2.Value

翔太

：最後に、公式だ。

リスト 3-3-3


                ' 四角形の面積を求める
                Menseki = Tate * Yoko

健一	：手慣れたものだね。
翔太	：だって、基本的には同じことの繰り返しじゃない。
健一	：でも、変数の名前を書くときには要注意だよ。名前を一文字違っただけで、プログラムは違う変数だと勘違いしてしまうんだ。途中で間違えるだけじゃなく、一番最初に変数を作るときに間違えてしまうことだってある。たとえば Tate という変数名をタイプミスして Tare という名前で作ってしまったら、後で Tate と正しいつもりの名前で値を代入してもエラーになってしまうんだ。
翔太	：名前の一致、というのはとても重要なんだね。
健一	：そうなんだ。それじゃ、内容があってるかどうか、デバッグボタンをクリックして、試してみよう。

デバッグボタンをクリックし、プログラムを実行します。今度は、四角形ボタンをクリックして、公式を四角形の面積を求める公式に切り替えてください。数値を入力後、計算ボタンをクリックして計算結果が表示されれば成功です。

健一	：それでは、ここまで書いたコードをもう一度確認しておこう。コードエディタを見て、次のリスト 3-3-4 のようなコードが表示されていれば正解だ。もしデバッグボタンを押したときに動作がおかしければ、どこかで書き間違いがないか確認してみよう。

リスト 3-3-4


    Private Sub btnEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEqual.Click

        ' 面積の変数を用意
        Dim Menseki As Double

        Select Case intMode
            Case 0  '円形
                ' 半径１と半径２の変数を用意
                Dim Hankei1 As Double
                Dim Hankei2 As Double
                ' 指定した値を変数に代入
                Hankei1 = nudValue1.Value
                Hankei2 = nudValue2.Value
                ' 円形の面積を求める
                Menseki = Hankei1 * Hankei2 * 3.14
            Case 1  '三角形
                ' 底辺と高さの変数を用意
                Dim Teihen As Double
                Dim Takasa As Double
                ' 指定した値を変数に代入
                Teihen = nudValue1.Value
                Takasa = nudValue2.Value
                ' 三角形の面積を求める
                Menseki = Teihen * Takasa / 2
            Case 2  '四角形
                ' 縦と横の変数を用意
                Dim Tate As Double
                Dim Yoko As Double
                ' 指定した値を変数に代入
                Tate = nudValue1.Value
                Yoko = nudValue2.Value
                ' 四角形の面積を求める
                Menseki = Tate * Yoko
        End Select

        ' 求めた面積を表示するテキスト ボックス(txtAnswer) の Text プロパティに
        ' 求めた面積の値 (Double) を文字列型 (String) に変換して代入する
        txtAnswer.Text = Menseki.ToString

    End Sub

健一	：今回は、ちょっと難しかったかな？
翔太	：変数の種類はまだよく分からないけど、値を代入するといろいろ便利な使い方ができそうだ、というのはなんとなくわかった気がするよ。
美咲	：そうね、変数がないと、その都度計算結果を具体的な値にして指定しないといけないし、変数どうしで計算できたりするのもいろいろ使い道がありそうだわ。
健一	：変数というのは、プログラミングの世界ではとてもよく使われていて、この後の章でもでてくるはずだから、この機会に、どういうものかというイメージだけでもつかんでおこう。

さて、3 章はいかがだったでしょうか。実際のサンプルプログラムには、紹介していない部分で、いろいろなことを行っていますが、ここでは変数に焦点を絞るために省略しています。なので、ほかのことは気にせず、変数とはなにか、代入によって何が行われているのか、ということについて体験したことを覚えておいてください。

そして、次の章では、変数を使って、今度は時間の話が出てきます。プログラムが時間によって動きを変えるためにはどうすればいいのか、翔太君たちと一緒に体験してみてください。

Top of Page プログラミングチャレンジスクエアへ戻る