簡易計算機

今回は簡易計算機のコードです。計算の際に演算子を選ぶことができます。オーバーフローには対応していません。このプログラムに関してはご自由に改変・再配布などどうぞ。まあ簡素なプログラムだからそんなことする人いないかな。。。

演算子を選択して Submit というボタンを押すと計算します。

まず以下のようにインターフェイスをつくります。

一番上の空欄は TextBox1 です。二番目のが TextBox2 です。一番下にあるのが TextBox3 です。3つ目にあるのがコンボボックスで、ここから演算子を選びます。4つ目のが計算を開始する Submit ボタンです。

コードは以下。
---------------------------------------------------------------------
Dim NumResult As Double

Private Sub TextBox1_Change()

If IsNumeric(TextBox1.Value) = False Then
TextBox1.Value = ""
End If

End Sub

Private Sub TextBox2_Change()

If IsNumeric(TextBox2.Value) = False Then
TextBox1.Value = ""
End If

End Sub

Private Sub UserForm_Initialize()
TextBox1.SetFocus
TextBox2.SetFocus


ComboBox1.AddItem "+"
ComboBox1.AddItem "-"
ComboBox1.AddItem "/"
ComboBox1.AddItem "multiply"
   
TextBox3.Value = NumResult

End Sub
Private Sub CommandButton1_Click()
Dim Num1 As Double
Dim Num2 As Double

Num1 = TextBox1.Value
Num2 = TextBox2.Value

If ComboBox1.Value = "+" Then
        NumResult = Num1 + Num2
        TextBox3.Value = NumResult
ElseIf ComboBox1.Value = "-" Then
    NumResult = Num1 - Num2
    TextBox3.Value = NumResult
ElseIf ComboBox1.Value = "/" Then
    TextBox3.Value = (Num1 / Num2)
ElseIf ComboBox1.Value = "multiply" Then
    NumResult = Num1 * Num2
    TextBox3.Value = NumResult
End If


End Sub