Type ZahlT
   Field Typ
   Field Wert
End Type

Global Search,Weiter


Print Formel("(5*8) + 10 - (13 * (4/2))-(2/2)")

Function Formel(Formel$)
Formel = Formel + " "
   For x = 1 To Len(Formel)
      Zeichen$ = Mid(Formel,x,1)
      ;Schauen für Operanden und Klammern
      Select Zeichen$
      Case "+"
         z.ZahlT = New ZahlT
         Z\Typ = 1:z\Wert = 0
      Case "-"
         z.ZahlT = New ZahlT
         Z\Typ = 1:z\Wert = 1
      Case "*"
         z.ZahlT = New ZahlT
         Z\Typ = 1:z\Wert = 2
      Case "/"
         z.ZahlT = New ZahlT
         Z\Typ = 1:z\Wert = 3
      Case "("
         z.ZahlT = New ZahlT
         Z\Typ = 2;:z\Wert = 0
      Case ")"
         z.ZahlT = New ZahlT
         Z\Typ = 3;:z\Wert = 0
      End Select
      ;Schauen für Zahl
      If Instr("0123456789",Zeichen$) >= 1 Then
         Zahl$ = Zahl$ + Zeichen$
         If Instr("0123456789",Mid(Formel,x+1,1)) = 0 Then
            z.ZahlT = New ZahlT
            Z\Typ = 4:z\Wert = Int(Zahl$)
            Zahl$ = ""
         End If
      End If
   Next
   Return Ausrechnen()
End Function



Function Ausrechnen()
   For z.ZahlT = Each ZahlT
      If Search Then z.ZahlT = Object.ZahlT(Weiter):Search = 0:Goto Forward
      If z\Typ = 2 Then
         Search = 1
         Weiter = Handle(z.ZahlT)
         z\Wert = Ausrechnen()
         z\Typ = 4
      End If
      If z\Typ = 3 Then
         Search = 1
         weiter = Handle(z.ZahlT)
         Return Ergebnis
      End If
      If z\Typ = 1 Then Operator = z\Wert
      If z\Typ = 4 Then
         Select Operator
         Case 0
            Ergebnis = Ergebnis + z\Wert
         Case 1
            Ergebnis = Ergebnis - z\Wert
         Case 2
            Ergebnis = Ergebnis * z\Wert
         Case 3
            Ergebnis = Ergebnis / z\Wert
         End Select
      End If
      .Forward
   Next
   Return Ergebnis
End Function