Taschenrechner...

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von XD3000000.

    Taschenrechner...

    Hi,

    Ich hab nun nach einer 2 Jährigen Pause wiedern angefangen zu Programmieren und musste mich natürlich erstmal wieder einfinden :D
    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

    1. Class Form4
    5. Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
    6. Me.Hide()
    7. Form1.Show()
    9. End Sub
    12. Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
    13. Textbox1.Clear()
    15. End Sub
    19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    21. Textbox1.Text = (Textbox1.Text) + ("1")
    24. End Sub
    29. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    30. Textbox1.Text = (Textbox1.Text) + ("2")
    31. End Sub
    34. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    35. Textbox1.Text = (Textbox1.Text) + ("3")
    37. End Sub
    39. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    40. Textbox1.Text = (Textbox1.Text) + ("4")
    41. End Sub
    43. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    44. Textbox1.Text = (Textbox1.Text) + ("5")
    45. End Sub
    47. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    48. Textbox1.Text = (Textbox1.Text) + ("6")
    49. End Sub
    51. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    52. Textbox1.Text = (Textbox1.Text) + ("7")
    53. End Sub
    55. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    57. Textbox1.Text = (Textbox1.Text) + ("8")
    58. End Sub
    60. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    61. Textbox1.Text = (Textbox1.Text) + ("9")
    62. End Sub
    64. Private Sub Form4_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    65. Form1.Close()
    67. End Sub
    72. Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    74. Textbox2.Hide()
    75. TextBox3.Hide()
    76. TextBox4.Hide()
    77. TextBox5.Hide()
    78. TextBox6.Hide()
    79. TextBox7.Hide()
    80. TextBox8.Hide()
    81. TextBox9.Hide()
    86. End Sub
    88. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    90. Textbox2.Text = Textbox1.Text
    91. Textbox1.Clear()
    93. End Sub
    96. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    97. TextBox3.Text = Textbox1.Text
    98. Textbox1.Clear()
    100. End Sub
    102. Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
    103. TextBox4.Text = Textbox1.Text
    104. Textbox1.Clear()
    106. End Sub
    108. Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    109. TextBox5.Text = Textbox1.Text
    110. Textbox1.Clear()
    112. End Sub
    117. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    119. If Textbox2.Text = Not "0" Then
    121. TextBox9.Text = Textbox1.Text
    122. Textbox1.Text = (Textbox2.Text) + (TextBox9.Text)
    124. End If
    126. If TextBox3.Text = Not "0" Then
    128. TextBox6.Text = Textbox1.Text
    129. Textbox1.Text = (TextBox3.Text) - (TextBox6.Text)
    131. End If
    133. If TextBox4.Text = Not "0" Then
    135. TextBox8.Text = Textbox1.Text
    136. Textbox1.Text = (TextBox4.Text) / (TextBox8.Text)
    138. End If
    140. If TextBox5.Text = Not "0" Then
    142. TextBox7.Text = Textbox1.Text
    143. Textbox1.Text = (TextBox5.Text) * (TextBox7.Text)
    145. End If
    151. End Sub
    154. End Class


    Ich hoffe ihr könnt meine Denkweise nachvollziehen und mir Helfen

    lg Eric

    Statt ein Bild und Code zu posten, könntest du doch einfach die Projektmappe bereitstellen. Dann müssten wir uns keine Oberfläche zusammenklicken und könnten uns schneller mit deinem Problem befassen.

    lg SeriTools
    | Keine Fragen per PN oder Skype.

Facebook
Telefonspende