Rechner

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Carl.

      Rechner

      Hallo Comm,
      ich habe mir gedacht, ich mach mal einen Rechner ohne VB Code zu kompilieren und mit der Rechenreihenfolge:
      - Klammern
      - Punkt vor Strich
      - Links nach Rechts

      wiegesagt es funktioniert völlig ohne den VB kompiler, da war ja auch mal ein Beispiel.
      Naja hier der Code:

      VB.NET-Quellcode

      1. Option Strict On
      3. Public Class Form1
      5. Function CalcNormal(ByVal MatheExp As String) As Double
      7. Dim Splitter As String() = MatheExp.Split(CChar(" "))
      9. Dim Zahlen As New List(Of Double)
      10. Dim Operanten As New List(Of Char)
      12. For Each aSpl As String In Splitter
      13. If IsNumeric(aSpl) Then
      14. Zahlen.Add(CDbl(aSpl))
      15. Else
      16. Operanten.Add(CChar(aSpl))
      17. End If
      18. Next
      20. If MatheExp.Contains("-") Or MatheExp.Contains("+") Or MatheExp.Contains("*") Or MatheExp.Contains("/") Or MatheExp.Contains("^") Then
      21. Dim Ergebnis As Double
      22. For i As Integer = 0 To Zahlen.Count - 1
      23. If i = 0 Then
      24. Ergebnis += Zahlen(i)
      25. Else
      26. Dim Op As Char = Operanten(i - 1)
      27. Dim Za As Double = Zahlen(i)
      28. Select Case Op
      29. Case CChar("+") : Ergebnis += Za
      30. Case CChar("-") : Ergebnis -= Za
      31. Case CChar("/") : Ergebnis /= Za
      32. Case CChar("*") : Ergebnis *= Za
      33. Case CChar("^") : Ergebnis ^= Za
      34. End Select
      35. End If
      36. Next
      38. Return Ergebnis
      39. Else
      40. Return CDbl(MatheExp.Trim)
      41. End If
      44. End Function
      46. Function Calc(ByVal MathExp As String) As Double
      47. Dim ToCalc As String = MathExp
      49. 'Prüfen auf Klammer
      50. If MathExp.Contains("(") Then
      52. Dim kSplitter As String() = MathExp.Split(CChar("("))
      54. For Each kSpl As String In kSplitter
      56. If kSpl.Contains(")") Then
      57. Dim Inner As String = kSpl.Split(CChar(")"))(0)
      58. ToCalc = ToCalc.Replace("(" & Inner & ")", CalcNormal(Inner).ToString)
      59. End If
      61. Next
      63. End If
      65. ToCalc = ToCalc.Replace(")", "").Replace("(", "")
      67. 'Punkt vor Strich Rechnung beachten
      68. Dim Splitter As String() = ToCalc.Split(CChar(" "))
      70. Dim Zahlen As New List(Of Double)
      71. Dim Operanten As New List(Of Char)
      73. For Each aSpl As String In Splitter
      74. If IsNumeric(aSpl) Then
      75. Zahlen.Add(CDbl(aSpl))
      76. Else
      77. Operanten.Add(CChar(aSpl))
      78. End If
      79. Next
      81. ToCalc = ToCalc.Trim & " "
      82. ToCalc = ToCalc.Replace(",0 ", " ")
      84. For i As Integer = 0 To Zahlen.Count - 1
      85. If Not i = 0 Then
      86. Dim Op As Char = Operanten(i - 1)
      87. Dim Za2 As String = Zahlen(i).ToString
      88. Dim Za1 As String = Zahlen(i - 1).ToString
      90. Dim gen As String = Za1.ToString & " " & Op & " " & Za2.ToString
      91. If Op = "*" Or Op = "/" Or Op = "^" Then
      92. ToCalc = ToCalc.Replace(gen, CalcNormal(gen).ToString)
      93. End If
      94. End If
      95. Next
      97. 'Rechts nach Links Rechnung
      98. Return CalcNormal(ToCalc)
      100. End Function
      102. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      103. Try
      104. Dim Ergebnis As Double = Calc(TextBox1.Text.Trim)
      105. MsgBox(Ergebnis.ToString)
      106. Catch ex As Exception
      107. MsgBox(ex.Message)
      108. End Try
      109. End Sub
      111. End Class


      die Form könnte wie im Anhang aussehen
      die Rechnung muss zB folgend aussehen:

      Quellcode

      1. 1 + 2 + 3 + 4 * (5 + 6)

      das ergebnis ist hier 50, nach beachtung von klammern
      aber das tut nicht zur Sache ^^

      wenn keine Leerzeichen zwischen Operanten und Zahlen bzw. Klammern sind wird es Fehler geben ;)
      ihr könnt ja eine kleine Funktion dazuschreiben die das erledigt und überprüft (falls etwas zusammengeschrieben sein sollte).

      EDIT: Bug bei Punkt vor Strich Rechnung (*, / oder ^) behoben

      progglord
      Bilder

      • calc.jpg

        10,12 kB, 474×110, 352 mal angesehen

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

      ???

      Bei mir funzt das Programm nicht! Es kommt bei jeder Rechnung 0 heraus, gibt man nur eine Zahl ein, stimmt es aber. Als Meldung kommt:Eine Ausnahme (erste Chance) des Typs "System.FormatException" ist in mscorlib.dll aufgetreten."
      [/i]Hat da jemand 'ne Erklärung???

      Rot ist für Mods! MfG gs93

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

      In VBS

      Ich habe einen Taschenrechner in VBScript programmiert. Einfach in eine Textdatei mit der Endung ".vbs" einfügen.

      Quellcode

      1. t=1
      2. y="((5+2.546)*9-6.5)/7^2"
      3. do until t=0
      4. x = inputbox("Geben Sie eine Rechenaufgabe ein."&VbCr&"Bitte benutze für Kommazahlen einen Punkt, kein Komma.", "Taschenrechner by Jannes Höke", ""&y&"")
      5. If x = cancel then
      6. exit do
      7. end if
      8. y = x
      9. x = eval(x)
      10. if x > 99999999 Then
      11. msgbox "Das Ergebnis ist zu groß.", vbcritical + vbOKOnly, "Fehler"
      12. exit do
      13. end if
      14. z = inputbox("Das Ergebnis von "&y&" steht unten im Feld.", "Ergebnis", ""&x&"")
      15. if z= cancel then
      16. exit do
      17. end if
      18. loop

      Borg schrieb:

      Ich habe einen Taschenrechner in VBScript programmiert. Einfach in eine Textdatei mit der Endung ".vbs" einfügen.

      Quellcode

      1. t=1
      2. y="((5+2.546)*9-6.5)/7^2"
      3. do until t=0
      4. x = inputbox("Geben Sie eine Rechenaufgabe ein."&VbCr&"Bitte benutze für Kommazahlen einen Punkt, kein Komma.", "Taschenrechner by Jannes Höke", ""&y&"")
      5. If x = cancel then
      6. exit do
      7. end if
      8. y = x
      9. x = eval(x)
      10. if x > 99999999 Then
      11. msgbox "Das Ergebnis ist zu groß.", vbcritical + vbOKOnly, "Fehler"
      12. exit do
      13. end if
      14. z = inputbox("Das Ergebnis von "&y&" steht unten im Feld.", "Ergebnis", ""&x&"")
      15. if z= cancel then
      16. exit do
      17. end if
      18. loop
      Was soll an diesem so gut sein?