VB: Taschenrechner Problem

[luder]

Hi,
ich bin noch ganz am anfang mit VB.
habe mir ein buch gekauft und bin jetzt dabei einen Taschenrechner zu coden.
es kann plus,minus,mal,und geteilt rechnen.

aber manchmal rechnet er nicht richtig.
insbesondere bei minus.

wenn es z.b. 20-5-4 ausrechnet dann kommt da 10 bei raus.

da sind 3 textboxen, in jeder textbox gibt man ne tahl ein und dann wählt man wie man rechnen will und im label wird das ergebnis ausgegeben.
nicht nur bei minus rechnen macht der manchmal unsinn auch bei den anderen manchmal,
könnt ihr mir tipps geben und helfen wie es genauer geht das es richtig rechnet?


hier ist das programm und der Source code:


http://cloud.directupload.net/4Jo8


http://cloud.directupload.net/4Jo9


ich kann den source auch hier nochmal aufschreiben also:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x As Integer = TextBox1.Text
        Dim y As Integer = TextBox2.Text
        Dim z As Integer = TextBox3.Text

        Label1.Text = x + y + z


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim x As Integer = TextBox1.Text
        Dim y As Integer = TextBox2.Text
        Dim z As Integer = TextBox2.Text

        Label1.Text = x - y - z
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim x As Integer = TextBox1.Text
        Dim y As Integer = TextBox2.Text
        Dim z As Integer = TextBox3.Text

        Label1.Text = x * y * z
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim x As Integer = TextBox1.Text
        Dim y As Integer = TextBox2.Text
        Dim z As Integer = TextBox3.Text

        Label1.Text = x / y / z
    End Sub
End Class

woran kanns liegen?

mfg.

[sarex]

moin,
in Private Sub Button2_Click weist du der variable y und z jeweils den wert aus TextBox2.Text zu

[hoschi111]

Tipp am Rande: Schalte bitte Option Strict auf on. Dann lernst du von Anfang an, wie man gescheit in VB programmiert
"Dim x As Integer = TextBox1.Text" ist nämlich eine ganz böse Typenkonvertierung, die das Programm crashen lässt, wenn Textbox.Text keine zu Integer konvertierbare Eingabe enthält.
Pseudocode:

If isNumeric(Textbox1.Text) than
x = Cint(Textbox1.Text) //oder x = Ctype(Textbox1.text, Integer)
else
Messagebox.Show("Deine Eingabe stinkt.")
End if

[luder]

ok danke jetzt gehts.

mfg.