hallo ich muss bis ende diese woche einen kleinen taschenrechner programieren.
ich habe alles was ich machen konnte gemacht aber immerhin möchte ich dass es besser ist.
1. Möchte ich gern das die angaben in Felder zu sehen sind
2.Großte problem ist es dass es auch punkt vor strich fähig sein !
3. kleinere problem wie mache ich die Klammern ??
Danke im Vorraus
Ps:ich habe das programm mit Visual Studio 2012 soweit geschrieben !! meine taschenrechner ist als anhang dabei .
und hier als Code
*Anhang mit EXE entfernt*
ich habe alles was ich machen konnte gemacht aber immerhin möchte ich dass es besser ist.
1. Möchte ich gern das die angaben in Felder zu sehen sind
2.Großte problem ist es dass es auch punkt vor strich fähig sein !
3. kleinere problem wie mache ich die Klammern ??
Danke im Vorraus
Ps:ich habe das programm mit Visual Studio 2012 soweit geschrieben !! meine taschenrechner ist als anhang dabei .
und hier als Code
Visual Basic-Quellcode
- Public Class Form1
- Dim zahl As String
- Dim rechenart As String
- Dim Antwort As Double
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button1.Click
- TextBox1.Text += "1"
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- TextBox1.Text += "2"
- End Sub
- Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
- TextBox1.Text += "3"
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- TextBox1.Text += "4"
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- TextBox1.Text += "5"
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
- TextBox1.Text += "6"
- End Sub
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
- TextBox1.Text += "7"
- End Sub
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
- TextBox1.Text += "8"
- End Sub
- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
- TextBox1.Text += "9"
- End Sub
- Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click
- TextBox1.Text += "0"
- End Sub
- Private Sub Button400_Click(sender As Object, e As EventArgs) Handles Button400.Click
- TextBox1.Text = "."
- End Sub
- Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Plus.Click
- zahl = TextBox1.Text
- rechenart = "addieren"
- TextBox1.Text = ""
- End Sub
- Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Minus.Click
- zahl = TextBox1.Text
- rechenart = "subtrahieren"
- TextBox1.Text = ""
- End Sub
- Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Mal.Click
- zahl = TextBox1.Text
- rechenart = "multiplizieren"
- TextBox1.Text = ""
- End Sub
- Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Geteiltdurch.Click
- zahl = TextBox1.Text
- rechenart = "dividieren"
- TextBox1.Text = ""
- End Sub
- Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Löschen.Click
- TextBox1.Text = ""
- TextBox2.Text = ""
- zahl = ""
- End Sub
- Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Ergibnis.Click
- If rechenart = "addieren" Then
- TextBox2.Text = zahl & " + " & TextBox1.Text
- TextBox1.Text = CDbl(zahl) + CDbl(TextBox1.Text)
- ElseIf rechenart = "subtrahieren" Then
- TextBox2.Text = zahl & " - " & TextBox1.Text
- TextBox1.Text = CDbl(zahl) - CDbl(TextBox1.Text)
- ElseIf rechenart = "multiplizieren" Then
- TextBox2.Text = zahl & " * " & TextBox1.Text
- TextBox1.Text = CDbl(zahl) * CDbl(TextBox1.Text)
- ElseIf rechenart = "dividieren" Then
- TextBox2.Text = zahl & " : " & TextBox1.Text
- TextBox1.Text = CDbl(zahl) / CDbl(TextBox1.Text)
- If CDbl(zahl) / 0 Then
- TextBox1.Text = "fehler"
- End If
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
- End Sub
- Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
- zahl = TextBox1.Text * -1.0
- End Sub
- Private Sub Button500_Click(sender As Object, e As EventArgs) Handles Button500.Click
- TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
- End Sub
- Private Sub Button20_Click(sender As Object, e As EventArgs)
- TextBox1.Text = ""
- End Sub
- Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
- zahl = TextBox1.Text ^ (1 / 2)
- End Sub
- End Class
*Anhang mit EXE entfernt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()