Entwickler-Ecke
Sonstiges (Delphi) - taschenrechner
henny - Mi 27.05.09 10:52
Titel: taschenrechner
Ich möchte einen ganz einfachen Taschenrechner programmieren!
Wie mache ich das ?(Ich hab gerade erst das programmieren ein bisschen gelernt)
Könnte mir bitte wer helfen!
danke schonmal im voraus
gruß henny
Moderiert von 
Narses: Topic aus Dateizugriff verschoben am Mi 27.05.2009 um 11:02
curtiss - Mi 27.05.09 10:57
erstellt ne neue anwenudng, zeihst deine edit felder und buttons drauf, gibst den bezeichnungen wie + und - / usw. und packst die rechnungen dann zB. ins onClick ereignis. Fertig.
Bitte!
henny - Mi 27.05.09 11:13
Ich habe das mal ausprobiert :
Als erstes ist ein edit dann 4buttons für die rechenart und dann noch mal ein edit.
Und am Schluss kommt noch ein label für das Ergebnis.
Aber wie muss ich das programmieren das wenn man z.B. auf + drückt das dann das ergebnis kommt?
nabbl - Mi 27.05.09 11:17
Ich geh mal von 3 Edits aus:
Edit1: Operator 1
Edit2: Operator 2
Edit3: Ergebnis
So könnte ein Aufruf aussehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
var a,b: Double;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Edit3.Text := FloatToStr(a+b);
end; |
elundril - Mi 27.05.09 11:17
mit StrToInt() kann mraan einen String in einen Integer verwandeln. Mit StrToIntDef() kann man sogar noch nen extraparameter mitgeben, welche zahl er nehmen soll wenn der String keine ganze Zahl war.
Mit der Operatoren "+","-","*","div" kann man wunderbar ganze Zahlen rechnen wenn man sie im Quelltext verwendet.
Mit IntToStr() kann man eine Integerzahl in einen String verwandeln.
So, mit dem Wissen müsstest du was anfangen können. ;) Wenn dem trotzdem nicht so ist, zieh
Christian's Crashkurs [
http://www.christian-stelzmann.de/index_tutorials_crashkurs.html] zu rate, der hilft meistens bei anfängerproblemen.
//edit:
henny hat folgendes geschrieben  : |
| Und am Schluss kommt noch ein label für das Ergebnis. |
| nabbl hat folgendes geschrieben : |
| Ich geh mal von 3 Edits aus: |
warum 3 edits? genauer lesen wäre angesagt ;)
lg elundril
nabbl - Mi 27.05.09 11:25
Naja. Dann halt statt
ein
Ein bisschen Knobeln sollte er aber auch ;)
elundril - Mi 27.05.09 11:26
| nabbl hat folgendes geschrieben : |
Ein bisschen Knobeln sollte er aber auch ;) |
deswegen hab ich auch nicht den ganzen lösungsweg hingeschrieben ;)
henny - Mi 27.05.09 11:35
Mein button1 hat die aufschrift + und meine procedure sieht so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Button1Click(Sender: TObject);
begin
ergebnis := zahl1 + zahl2;
label2.Caption := inttostr (ergebnis);
end;
end. |
Aber das funkt. nicht muss ich da noch irgendwas machen?
Moderiert von Narses: Delphi-Tags hinzugefügt
nabbl - Mi 27.05.09 11:46
lies dir mal meinen beitrag weiter oben durch...
henny - Mi 27.05.09 14:20
Vielen dank für eure vielen beiträge ich habe es jetzt geschafft!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!