Hi,
Ich hab nun nach einer 2 Jährigen Pause wiedern angefangen zu Programmieren und musste mich natürlich erstmal wieder einfinden
Also wollte ich einen kleinen Taschenrechner Schreiben und hab mich gleich an die Arbeit gemacht.
Ich weis das die Methode die ich gewählt habe SEHR aufwendig ist und eig. total überflüssig aber trotzdem wüsste ich gern wo mein Logikfehler ist, aber hier erstmal die Beschriftungen:
Hier der Code:
Ich hoffe ihr könnt meine Denkweise nachvollziehen und mir Helfen
lg Eric
Ich hab nun nach einer 2 Jährigen Pause wiedern angefangen zu Programmieren und musste mich natürlich erstmal wieder einfinden
Also wollte ich einen kleinen Taschenrechner Schreiben und hab mich gleich an die Arbeit gemacht.
Ich weis das die Methode die ich gewählt habe SEHR aufwendig ist und eig. total überflüssig aber trotzdem wüsste ich gern wo mein Logikfehler ist, aber hier erstmal die Beschriftungen:
Hier der Code:
VB.NET-Quellcode
- Class Form4
- Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
- Me.Hide()
- Form1.Show()
- End Sub
- Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
- Textbox1.Clear()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Textbox1.Text = (Textbox1.Text) + ("1")
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Textbox1.Text = (Textbox1.Text) + ("2")
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Textbox1.Text = (Textbox1.Text) + ("3")
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Textbox1.Text = (Textbox1.Text) + ("4")
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Textbox1.Text = (Textbox1.Text) + ("5")
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- Textbox1.Text = (Textbox1.Text) + ("6")
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- Textbox1.Text = (Textbox1.Text) + ("7")
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- Textbox1.Text = (Textbox1.Text) + ("8")
- End Sub
- Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
- Textbox1.Text = (Textbox1.Text) + ("9")
- End Sub
- Private Sub Form4_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
- Form1.Close()
- End Sub
- Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Textbox2.Hide()
- TextBox3.Hide()
- TextBox4.Hide()
- TextBox5.Hide()
- TextBox6.Hide()
- TextBox7.Hide()
- TextBox8.Hide()
- TextBox9.Hide()
- End Sub
- Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
- Textbox2.Text = Textbox1.Text
- Textbox1.Clear()
- End Sub
- Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
- TextBox3.Text = Textbox1.Text
- Textbox1.Clear()
- End Sub
- Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
- TextBox4.Text = Textbox1.Text
- Textbox1.Clear()
- End Sub
- Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
- TextBox5.Text = Textbox1.Text
- Textbox1.Clear()
- End Sub
- Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
- If Textbox2.Text = Not "0" Then
- TextBox9.Text = Textbox1.Text
- Textbox1.Text = (Textbox2.Text) + (TextBox9.Text)
- End If
- If TextBox3.Text = Not "0" Then
- TextBox6.Text = Textbox1.Text
- Textbox1.Text = (TextBox3.Text) - (TextBox6.Text)
- End If
- If TextBox4.Text = Not "0" Then
- TextBox8.Text = Textbox1.Text
- Textbox1.Text = (TextBox4.Text) / (TextBox8.Text)
- End If
- If TextBox5.Text = Not "0" Then
- TextBox7.Text = Textbox1.Text
- Textbox1.Text = (TextBox5.Text) * (TextBox7.Text)
- End If
- End Sub
- End Class
Ich hoffe ihr könnt meine Denkweise nachvollziehen und mir Helfen
lg Eric