Delphi Taschenrechner

[Progman]

Naja, für einen Taschenrechner als Anfängerproject wäre ein Formelparser sicher zu happig
Aber (@Dr34m) man sollte sich mal den Ablauf durchdenken:
Zahl eingeben (kann auch mehrstellig sein)
bei Eingabe eines Operationszeichens Zahl sich irgendwo merken und Edit leer machen,
Operator ebenfalls merken,
neue Zahl eingeben
bei drücken von "=" neue Zahl und gemerkte Zahl mit durch den Operator vergegebener Operation verrechnen,
Edit leer machen, Ergebnis reinschreiben.
UPN lässt grüßen

[inherited]

So schwer ist es nicht, nur für Anfänger ist es ziemlich schwierig, vor allem die Vorstellung dahinter wie man es umsetzen kann und vor allem warum ist nicht einfach.

Wenn du es wirklich machen möchtest, solltest du dir eine komplizierte Rechnung aufschreiben und diese Zerlegen, also zB
34+2*9*(39/3+(1+5))^2
Allerdings sollten wir erstmal ohne Klammern anfangen, zB mit 1+5*8+1
Jetzt durchsuchst du wiederholt den string von vorne nach hinten einem * oder / bis keins mehr vorhanden ist, weil es ja punkt vor strich ist. hast du eins gefunden, hier an position4, sucht du ab position 4 rückwärts bis zum Anfang des Strings nach dem nächsten rechenzeichen, klammer oder string-anfang und nimmst den teil als linke seite der rechnung, hier wäre das das + zwischen 1 und 5, die linke seite ist also 5. Das gleiche machst du ab der 4 aufwärts bis Rechenzeichen, Klammer oder Stringende, hier wäre das das + zwischen 8 und 1, also ist die rechte seite die 8. Jetzt hast du die rechenoperation (*) und beide seiten und kannst es ausrechnen, 5*8 ist 4, und den gesamten teil "5*8" mit dem Ergebnis ersetzen.
Bleibt noch 1+40+1
Jetzt gibt es weder / noch * und wir gehen weiter, suchen nach + und - von vorne nach hinten
wir finden das vordere +, gehen nach links bis zum string-anfang, vorher gibt es kein rechenzeichen: linker teil ist also 1. Rechts weiter, wir finden das +, rechter Teil ist 40. Ausrechnen: kommt 41 raus
Bleibt noch 41+1
es ist noch + und - vorhanden, machen das gleiche Spielchen nochmal usw usf.

Mit Klammern ist das ganze ein wenig komplexer,
das heisst: Zuerst musst du ja die Klammern ausrechen. Eine möglichkeit ist die letzte ( zu finden, hier die vor 1, und den gesamten klammerinhalt zu nehmen und deine Funktion die das ding berechnet damit rekursiv aufzurufen, dann den ganzen teil inklusive der Klammern mit dem ergebnis erstzen.

Der von mir beschriebene Lösungsansatz ist auf Verständlichkeit optimiert, das ganze kann man sicher noch Optimieren und ein paar Bugs sind auch drin.
Viel glück

[Dr34m]

Und wie durchsuche ich?!
mit if... then?

bitte mal ein beispiel, falls es if... then ist wie das dann in der unit aussieht.

[inherited]

Benutze mal die Forensuche, Nach Zeichen suchen kannst du mit Pos und PosEx, Teile eines Stringskopieren mit Copy

[quendolineDD]

Ich weiß nicht, ob in Delphi 3 die Unit StrUtils vorhanden ist, doch dort gibt es nützliche Funktionen wie zum Beispiel LeftStr und RightStr welche du dir mal anschauen könntest

Kannst natürlich auch auf ganz normalen Wegen wie im Beitrag darüber geschrieben über Pos und Copy arbeiten.

[SubData]

Zitat von Dr34m:

Und wie durchsuche ich?!
mit if... then?

bitte mal ein beispiel, falls es if... then ist wie das dann in der unit aussieht.

Ohne das jetzt böse zu meinen, solltest du bei solchen Fragen lieber nochmal ganz genau darüber nachdenken, ob du jetzt schon dazu fähig bist einen eigenen Parser zu entwickeln...

[Dr34m]

Argh! What the hell ist "Substr: String" und was "S: String"

wie muss ich das denn da eingeben wenn ich ne rechnung von 18+3 im editfeld hab?
ich versteh nur noch bahnhof!

[Progman]

OMG.... Dr34m, du solltest dich erst mal mit den Grundlagen der Delphi-Programmierung befassen

[quendolineDD]

Bei '18+3' wäre das dann ungefähr so:

Delphi-Quellcode:

s:= '18+3';
a:= copy(s, 0, pos('+', s)-1);
delete(s, 1, pos('+', s));
b:= copy(s, 0, length(s));

Zu deiner Frage. Substr bezeichnet den gesuchten String, und s ist der String, in dem nach Substr gesucht wird.

[mdiehlz]

Zitat von Dr34m:

Argh! What the hell ist "Substr: String" und was "S: String"

wie muss ich das denn da eingeben wenn ich ne rechnung von 18+3 im editfeld hab?
ich versteh nur noch bahnhof!

Die richtigen Pascalbefehle?

Dir fehlt noch Basiswissen. Ohne das geht es nicht!

Einen Taschenrechner zu programmieren ist relativ einfach, aber für den Anfänger nicht trivial. Es gibt da einiges zu beachten.
Meine Praktikanten müssen da auch durch.

Kleiner Tip: Bevor Du dich an den Taschnenrechner machst, solltest Du er paar kleinere Übungen durchziehen.

Übung 1
3 Editfelder auf das Form ziehen und 4 Buttons für +,-,*,/
Geplante funktionsweise: In den ersten 2 Editfelder jeweils Zahlen eingeben und nach drücken eines Buttons das Ergebnis im dritten Editfeld anzeigen lassen.

Wenn du das selbst gemacht und verstanden hast, weisst Du was ein String und was reele Zahlen sind.

Übung 2
Prüfen ob der Benutzer wirklich gültige Zahlen eingibt und keine Texte.
Mit dem lässt sich so schwer rechnen!


Übung 4
Nur noch 1 Editfeld ist erlaubt!
Einen Button für = hinzufügen
Erfasse erste Zahl diese in einer Variable merken
Button drücken, was gerechnet werden soll und diesen merken
Erfasse zweite Zahl und diese in einer Variable merken
= Button drücken und das Ergebnis anzeigen

Geht schon Richtung Taschenrechner

Und wenn du einen richtigen Taschenrechner programmiert hast, solltest Du dich an den Parser wagen.
Der ist kniffeliger.....

Viel Spaß beim Üben

Martin