Rekenmachine werkt niet

[KobeIndemans]

Hallo ik ben pas sinds gisteren bezig met programmeren en heb juist mijn eerste programma gemaakt zonder een tutorial. Het programma werkt grotendeels alleen komt het antwoord niet in de textbox te staan. Zou iemand mij kunnen helpen met dit probleem? Hieronder is de code.

Public Class Form1
Dim Num1 As Single
Dim Num2 As Single
Dim Answer As Single




Private Sub ButtonPlus_Click(sender As Object, e As EventArgs) Handles ButtonPlus.Click
Labeloperator.Text = "+"
End Sub

Private Sub Buttonmin_Click(sender As Object, e As EventArgs) Handles Buttonmin.Click
Labeloperator.Text = "-"
End Sub

Private Sub Buttonmaal_Click(sender As Object, e As EventArgs) Handles Buttonmaal.Click
Labeloperator.Text = "x"
End Sub

Private Sub Buttongedeeld_Click(sender As Object, e As EventArgs) Handles Buttongedeeld.Click
Labeloperator.Text = "/"
End Sub

Private Sub ButtonSubmit_Click(sender As Object, e As EventArgs) Handles ButtonSubmit.Click
Num1 = TextBox1.Text
Num2 = TextBox2.Text
If Labeloperator.Text = "+" Then
Answer = Num1 + Num2
ElseIf Labeloperator.Text = "-" Then
Answer = Num1 - Num2
ElseIf Labeloperator.Text = "x" Then
Answer = Num1 * Num2
ElseIf Labeloperator.Text = "/" Then
Answer = Num1 / Num2
End If

Answer = TextBox3.Text

End Sub

Private Sub ButtonQuit_Click(sender As Object, e As EventArgs) Handles ButtonQuit.Click
Close()
End Sub

 

[leofact]

Answer = TextBox3.Text

Je geeft Answer de waarde van de textbox. Dat wil je andersom.
Mvg Leo

 

[KobeIndemans]

Bedankt Leo

 

[edmoor]

Zonder echt moeilijk te gaan doen zou ik de code voor de Submit knop toch iets anders schrijven:

Private Sub ButtonSubmit_Click(sender As Object, e As EventArgs) Handles ButtonSubmit.Click
    Num1 = TextBox1.Text
    Num2 = TextBox2.Text

    Select Case Labeloperator.Text
        Case "+"
            Answer = Num1 + Num2
        Case "-"
            Answer = Num1 - Num2
        Case "x", "X"
            Answer = Num1 * Num2
        Case "/"
            Answer = Num1 / Num2
        Case Else
            Exit Sub
    End Select

    TextBox3.Text = Answer
End Sub