taschenrechner

henny · Beiträge: 126

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 · Beiträge: 59

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 · Beiträge: 126

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 · Beiträge: 51 Win XP Home Delphi 7 PE

Ich geh mal von 3 Edits aus:
Edit1: Operator 1
Edit2: Operator 2
Edit3: Ergebnis

So könnte ein Aufruf aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var a,b: Double;
begin
  // Text in eine Kommazahl wandeln
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  // Kommazahl in Text wandeln
  Edit3.Text := FloatToStr(a+b);
end;

elundril · Verfasst: 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 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

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

nabbl · Beiträge: 51 Win XP Home Delphi 7 PE

Naja. Dann halt statt

markieren

Delphi-Quelltext

1:	Edit3.Text := ...

ein

markieren

Delphi-Quelltext

1:	Label1.Caption := ...

Ein bisschen Knobeln sollte er aber auch

elundril · Verfasst: 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

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

henny · Beiträge: 126

Mein button1 hat die aufschrift + und meine procedure sieht so aus:

markieren

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 · Beiträge: 51 Win XP Home Delphi 7 PE

lies dir mal meinen beitrag weiter oben durch...

henny · Beiträge: 126

Vielen dank für eure vielen beiträge ich habe es jetzt geschafft!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme