Taschenrechner (anfänger)

[PascalJansen]

Hallo,

Habe erst vor ungefär 4 Tagen mit Delphi angefangen und wollte euch mein erstes Ergebnis zeigen :thumb:

[smallsmoker]

willkomen in der DP :dp:

dein taschenrechner funzt einwandfrei :)

viel spaß beim weiterlernen !

mfg smallsmoker

[SimStar001]

Joah Hallöchen und herzlich willkommen,

dein Taschenrechner ist nicht schlecht, funktioniert schonmal gut!


als weiterentwicklung würde ich dir nun folgende Dinge vorschlagen:

1: nimm nur ein Edit und versuche das Operatinszeichen(+, -, *, /) darin auszulesen und dann eine entsprechende Rechnung durchzuführen
2: versuche das ganze nun mit mehrerern Operanden, also Kettenaufgaben unter berücksichtigung von opunkt vor strichrechnung(TIP --> rekursiv programmieren)
3: baue zusätzluiche Operanten wie ^ oder Wurzel oder klammern ein.



falls du dabei Hilfe brauchst, einfach bei mir melden, kann dir da weiterhelfen.

kannst dir ja mal dieses hier anschauen, ist ein funktionsplotter für Mathe LK11 - 12

http://easy-funktionsplotter.de.vu


LG Marco

[PascalJansen]

Hallo,

folgendes zu

1: nimm nur ein Edit und versuche das Operatinszeichen(+, -, *, /) darin auszulesen und dann eine entsprechende Rechnung durchzuführen

Wie soll ich das denn anstellen :? ich hab keine ahnung wie.. vieleicht könnt ihr mir vieleicht einen kleinen SourceCode für den anfang geben... Wer echt nett :)

Danke

MfG
Pascal

[SimStar001]

Also alles was im Edit steht ist text:

Bsp: 234+586

jetzt kannst du nach einem bestimmten zeichen in einer Zeichenkette(string) mit folgender Funktion suchen

Delphi-Quellcode:

var Aufgabe : string;
Zahl1, Zahl2, Ergebnis : extended;
OperantenPosition : integer;

...

Aufgabe := edit1.text;
OperantenPosition := Pos('+',Aufgabe);
// wenn es das Zeichen nicht gibt, wird 0 zurückgegeben

jetzt musst du den string(Aufgabe) nur noch Auspalten, in das was vor dem zeichen steht und das was dahinter steht

Delphi-Quellcode:

Zahl1 := StrToInt(copy(Aufgabe,1,OperantenPosition - 1));
Zahl2 := StrToInt(copy(Aufgabe,OperantenPosition + 1,length(Aufgabe)));

Ergebnis := Zahl1 + Zahl2;

im Prinzip ganz einfach.


Zur Funktion

Delphi-Quellcode:

copy(String,Start,Ende)

Diese Funktion kopiert dir einen string von a nach b, also gibt man dort als ersten Parameter den zu kopierenden String, als zweiten Parameter die Startposition, und als letzten Parameter die Endposition an.


Probier einfach mal weiter.

falls du zu zweitens fragen hast immer zu!


Wenn du möchtest kann ich dir auch meine DLL zur Verfügung stellen, mit der du alles machen kannst, z.B. diese Aufgabe Lösen: sin(x²) * e^(x-1) + 3x -4 und dann einen Funktionswert für x ausrechnen.

Aber mit viel Übung kannste deinen taschenrechner im Prinzip auch irgendwann so programmieren

[PascalJansen]

Hi,

So doof es jetzt klingen mag, aber ich les mir jetzt nochmal was toturial durch , weil ich es einfach nicht raffe was du da schreibst xD :)

[SimStar001]

ok, mach das, aber immer schreib was du nicht verstehst, dann helfen wir dir sehr gerne weiter.

bis dann lg marco

[BullsEye]

@SimStar:
Dein Easy Plotter ist vllt schön und gut (soll jetzt nicht abwertend sein!!!) aber ich denke, das ist für einen Anfänger etwas (viel) zu hoch gesetzt.

Vllt kannst du dir hier noch ein paar Tutorials durchlesen, das hilft ;)


http://www.delphi-treff.de/tutorials/