VB: Taschenrechner Problem
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:
Code:
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.
AW: VB: Taschenrechner Problem
moin,
in Private Sub Button2_Click weist du der variable y und z jeweils den wert aus TextBox2.Text zu
AW: VB: Taschenrechner Problem
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:
Code:
If isNumeric(Textbox1.Text) than
x = Cint(Textbox1.Text) //oder x = Ctype(Textbox1.text, Integer)
else
Messagebox.Show("Deine Eingabe stinkt.")
End if
AW: VB: Taschenrechner Problem
ok danke jetzt gehts.
mfg.