第21講 電卓の作成
第８話 簡易電卓の完成
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 CommandButtonK_Click()
　　v = TextBox1.Text
　　w = 0
　　ty = 3
End Sub
Private Sub CommandButtonW_Click()
　　v = TextBox1.Text
　　w = 0
　　ty = 4
End Sub
Private Sub CommandButtonE_Click()
　　If ty = 1 Then TextBox1.Text = w + v
　　If ty = 2 Then TextBox1.Text = v - w
　　If ty = 3 Then TextBox1.Text = v * w
　　If ty = 4 Then TextBox1.Text = v / w
　　v = 0
　　w = 0
End Sub
参考ダウンロード添付ファイル

一様完成したとはいえ、
四則の計算しか出来ませんし、
また、メモリーがないために
25×36＋48÷2にような計算も出来ませんから、
まだまだ、改善が必要ですが、
それは後の講の課題です。
電卓も魔方陣や数独やｎ進数演算のように何度も戻ってくるテーマになります。
簡易電卓の完成を持って、第21講は終了します。
第22講では、完全数探索に挑戦します。

第７話へ　第22講第１話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ