第７話 足し算＋引き算プログラム
Dim w As Double, v As Double, ty As Byte
Private Sub CommandButton0_Click()
w = 10 * w
TextBox1.Text = w
End Sub
Private Sub CommandButton1_Click()
w = 10 * w + 1
TextBox1.Text = w
End Sub
Private Sub CommandButton2_Click()
w = 10 * w + 2
TextBox1.Text = w
End Sub
Private Sub CommandButton3_Click()
w = 10 * w + 3
TextBox1.Text = w
End Sub
Private Sub CommandButton4_Click()
w = 10 * w + 4
TextBox1.Text = w
End Sub
Private Sub CommandButton5_Click()
w = 10 * w + 5
TextBox1.Text = w
End Sub
Private Sub CommandButton6_Click()
w = 10 * w + 6
TextBox1.Text = w
End Sub
Private Sub CommandButton7_Click()
w = 10 * w + 7
TextBox1.Text = w
End Sub
Private Sub CommandButton8_Click()
w = 10 * w + 8
TextBox1.Text = w
End Sub
Private Sub CommandButton9_Click()
w = 10 * w + 9
TextBox1.Text = w
End Sub
Private Sub CommandButtonCE_Click()
w = 0
TextBox1.Text = ""
End Sub
Private Sub CommandButtonT_Click()
v = TextBox1.Text
w = 0
ty = 1
End Sub
Private Sub CommandButtonH_Click()
v = TextBox1.Text
w = 0
ty = 2
End Sub
Private Sub CommandButtonE_Click()
If ty = 1 Then TextBox1.Text = w + v
If ty = 2 Then TextBox1.Text = v - w
v = 0
w = 0
End Sub
参考ダウンロード添付ファイル
次は、
と
のコーティングをして、簡易電卓を完成させましょう。
