電卓を作成していて、テキスト ボックスに値 (実行時に最初の変数に割り当てられた値) と演算子 [+,-,*,/] を上の行に表示したいと考えています。
次に、2 行目に入力された値が 2 番目の変数に割り当てられます。
次に、equal(=) ボタンを押すと、必要な操作が実行されます。つまり、最初の変数と 2 番目の変数が追加されます。
私は少しやったが、例えば正しい答えを提供していない:
- 3 を入力して Add(+) ボタンをクリックすると、カーソルが下の行に移動します
- 5 を入力して等号ボタンを押すと、テキスト ボックスの結果に 8 ではなく 6 が表示される
等々。
ここにコードがあります
Private Sub ButtonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAdd.Click
Operand1 = Val(TextBox1.Text)
TextBox1.Text = Operand1 & "+" & Environment.NewLine & Operand2
TextBox1.Focus()
[Operator] = "+"
End Sub
Private Sub ButtonEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEqual.Click
Dim Result As Double
Operand2 = Val(TextBox1.Text)
Select Case [Operator]
Case "+"
Result = Operand1 + Operand2
TextBox1.Text = Result
Case "-"
Result = Operand1 - Operand2
TextBox1.Text = Result
Case "*"
Result = Operand1 * Operand2
TextBox1.Text = Result
Case "/"
Result = Operand1 / Operand2
TextBox1.Text = Result
End Select
TextBox1.Text = Result
End Sub