AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Tutorials Delphi Taschenrechner
Tutorial durchsuchen
Ansicht
Themen-Optionen

Taschenrechner

Ein Tutorial von pirscher · begonnen am 14. Sep 2009 · letzter Beitrag vom 14. Sep 2009
 
pirscher
(Gast)

n/a Beiträge
 
#1

Taschenrechner

  Alt 14. Sep 2009, 17:36
Hallo,

Ich glaube zwar nicht, dass das in diese Kategorie passt, jedoch habe ich keine Forumssparte gefunden, in die man als Anfänger seine Programme zwecks Verbesserungsvorschlägen posten kann.

Deswegen poste ich das Programm mal hier rein.

PROGRAMMTEXT :

procedure addieren ;
begin
c:= a+b ;
end;
procedure subtrahieren;
begin
c:= a-b ;
end;
procedure multiplizieren ;
begin
c:= a*b ;
end;
procedure dividieren ;
begin
c:= a/b ;
end;
procedure TForm1.FormCreate(Sender: TObject);

begin
edit1.clear;
label1.caption:= ' Taschenrechner ' ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a:= strtoint(edit1.text);
addi:= true ;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:= strtoint(edit1.text);
subt:= true ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
a:= strtoint(edit1.text);
divi:= true ;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
a:= strtoint(edit1.text);
multi:= true ;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
b:= strtoint(edit1.text);
if addi = true then begin
addieren
end;
if subt = true then begin
subtrahieren
end;
if multi = true then begin
multiplizieren
end;
if divi = true then begin
dividieren
end;
edit1.text:= inttostr (c) ;
end;[/b]


Anmerkungen:

Das Formular besitzt ein Editfeld und 5 buttons: +,-,*,/,=
Zuerst wird im Editfeld der erste Wert(a) eingegeben, dann die Rechenoperation ausgewählt,
dannach der zweite Wert(b) eingegeben und zum Schluss das ergebnis über den = Button ausgerechnet.

...ich wüsste außerdem gerne, wie man das als Dateianhang an den Post hängen kann :/

Danke!
mfg pirscher
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz