Simpler Taschenrechner

    • VB.NET

    Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Annonator.

      Simpler Taschenrechner

      16 Buttons und eine TextBox werden benötigt

      Quelle: Hat jemand vor 1 Jahr für mich gecodet, weiß nicht mehr wer :huh:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim rechenzeichen As Char
      4. Dim ersterOperand As Integer
      5. Dim zweiterOperand As Integer
      6. Dim indexOfRechenzeichen As Integer
      7. Dim ergebnis As Integer
      9. Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click
      10. If Me.TextBox.Text.Length > 0 Then
      11. Me.TextBox.AppendText("0")
      12. Else
      13. Me.TextBox.Text = "0"
      14. End If
      15. End Sub
      17. Private Sub one_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles one.Click
      18. If Me.TextBox.Text.Length > 0 Then
      19. Me.TextBox.AppendText("1")
      20. Else
      21. Me.TextBox.Text = "1"
      22. End If
      23. End Sub
      25. Private Sub two_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles two.Click
      26. If Me.TextBox.Text.Length > 0 Then
      27. Me.TextBox.AppendText("2")
      28. Else
      29. Me.TextBox.Text = "2"
      30. End If
      31. End Sub
      33. Private Sub three_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles three.Click
      34. If Me.TextBox.Text.Length > 0 Then
      35. Me.TextBox.AppendText("3")
      36. Else
      37. Me.TextBox.Text = "3"
      38. End If
      39. End Sub
      41. Private Sub four_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles four.Click
      42. If Me.TextBox.Text.Length > 0 Then
      43. Me.TextBox.AppendText("4")
      44. Else
      45. Me.TextBox.Text = "4"
      46. End If
      47. End Sub
      49. Private Sub five_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles five.Click
      50. If Me.TextBox.Text.Length > 0 Then
      51. Me.TextBox.AppendText("5")
      52. Else
      53. Me.TextBox.Text = "5"
      54. End If
      55. End Sub
      57. Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click
      58. If Me.TextBox.Text.Length > 0 Then
      59. Me.TextBox.AppendText("6")
      60. Else
      61. Me.TextBox.Text = "6"
      62. End If
      63. End Sub
      65. Private Sub seven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seven.Click
      66. If Me.TextBox.Text.Length > 0 Then
      67. Me.TextBox.AppendText("7")
      68. Else
      69. Me.TextBox.Text = "7"
      70. End If
      71. End Sub
      73. Private Sub eight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eight.Click
      74. If Me.TextBox.Text.Length > 0 Then
      75. Me.TextBox.AppendText("8")
      76. Else
      77. Me.TextBox.Text = "8"
      78. End If
      79. End Sub
      81. Private Sub nine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nine.Click
      82. If Me.TextBox.Text.Length > 0 Then
      83. Me.TextBox.AppendText("9")
      84. Else
      85. Me.TextBox.Text = "9"
      86. End If
      87. End Sub
      89. Private Sub point_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles point.Click
      90. TextBox.Paste(".")
      91. End Sub
      93. Private Sub mal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mal.Click
      94. rechenzeichen = "*"c
      95. ersterOperand = Integer.Parse(Me.TextBox.Text)
      96. Me.TextBox.AppendText("*")
      97. End Sub
      99. Private Sub geteilt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geteilt.Click
      100. rechenzeichen = "/"c
      101. ersterOperand = Integer.Parse(Me.TextBox.Text)
      102. Me.TextBox.AppendText("/")
      103. End Sub
      105. Private Sub minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minus.Click
      106. rechenzeichen = "-"c
      107. ersterOperand = Integer.Parse(Me.TextBox.Text)
      108. Me.TextBox.AppendText("-")
      109. End Sub
      111. Private Sub plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plus.Click
      112. rechenzeichen = "+"c
      113. ersterOperand = Integer.Parse(Me.TextBox.Text)
      114. Me.TextBox.AppendText("+")
      115. End Sub
      117. Private Sub gleich_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gleich.Click
      118. indexOfRechenzeichen = Me.TextBox.Text.IndexOf(rechenzeichen)
      120. Me.ersterOperand = Integer.Parse(Me.TextBox.Text.Substring(0, indexOfRechenzeichen))
      121. Me.zweiterOperand = Integer.Parse(Me.TextBox.Text.Substring(indexOfRechenzeichen + 1))
      123. Me.TextBox.Clear()
      125. Select Case rechenzeichen
      126. Case "+"c
      127. ergebnis = ersterOperand + zweiterOperand
      128. Me.TextBox.Text = ergebnis.ToString()
      129. Exit Select
      130. Case "-"c
      132. ergebnis = ersterOperand - zweiterOperand
      133. Me.TextBox.Text = ergebnis.ToString()
      134. Exit Select
      135. Case "*"c
      137. ergebnis = ersterOperand * zweiterOperand
      138. Me.TextBox.Text = ergebnis.ToString()
      139. Exit Select
      140. Case "/"c
      142. ergebnis = ersterOperand / zweiterOperand
      143. Me.TextBox.Text = ergebnis.ToString()
      144. Exit Select
      145. End Select
      146. End Sub
      147. End Class

      Hallo Entenmann
      Habe gerade Deinen Code getestet. Funktioniert so weit, aber da Du alles auf Integer aufgebaut hast, natürlich nur für Ganze Zahlen.

      Jetzt frage ich mich natürlich, wofür die Schaltfläche POINT mit dem Punkt drauf gut ist?

      mfg, Adi

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Adi“ ()

    Facebook