やさしい電卓 整数値の入力 [VB 2010]

ラベルに入力数値を表示する

たとえば、BtnTwo、BtnOne、BtnThreeの順に押したら、213と表示するようにプログラムを修正します。

前回と同様にボタンは三つのままでも良いですが、0～9まで用意しても同じになるので、時間がある方は、ボタンを追加してみてください。

各ボタンとラベルのプロパティを表のように設定してください。LblAnserのTextプロパティは0に設定しておきます。

数字1ボタンを選択してダブルクリックすると、図のように[BtnOne]と[Click]の画面が表示されます。ほかのボタンも同様に[BtnTwo]と[Click]、[BtnThree]と[Click]のようになります。ここにクリック時に実行したいプログラムを記述します。

たとえば、数字2、数字1、数字3の順にクリックして表示する213は、プログラム内部では数値としてではなく、文字列として認識しています。したがって、数字ボタンを押せば、現在LblAnserに表示中の文字列に押したボタンの文字3を連結することになります。つまりプログラムでは、現在LblAnserのTextプロパティが保持している文字列に、押したボタンの数字の文字を、文字列連結演算子を使って連結することになります。

  Private Sub BtnOne_Click(ByVal ...........) Handles BtnOne.Click

      LblAnser.Text = LblAnser.Text & "1"

  End Sub

上のプログラムは、複合代入演算子を使って、LblAnser.Text &= "1" のようにも書けます。

BtnTwoも同様なプログラムになります。

  Private Sub BtnTwo_Click(ByVal ...........) Handles BtnTwo.Click

      LblAnser.Text = LblAnser.Text & "2"

  End Sub

BtnThreeも同様なプログラムになります。以下同様に各数字ボタンに対応するようにプログラムを作成していきます。

  Private Sub BtnThree_Click(ByVal ...........) Handles BtnThree.Click

      LblAnser.Text = LblAnser.Text & "3"

  End Sub

これで今回のプログラムは完成です。プログラムを実行してみましょう。押したボタン順に数字が並んで表示されれば、プログラムは完成です。

次回から、いよいよ簡易電卓プログラムの作成です。

■ 整数の加算ができる簡易電卓プログラム