Taschenrechner

[pirscher]

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

[Wolfgang Mix]

Erstmal herzlich willkommen in der DP

Auch wenn wir noch nicht wissen, was wir mit Deinem Quelltext anfangen sollen:
Der Code sollte hier als Delphi-Code markiert werden.

Eine besser passende Sparte wäre wohl Open-Source


Anhänge fügst Du ein über Suchen + Quelldatei auf Deiner Festplatte.

Gruß

Wolfgang

[SimStar001]

Hallo und Herzlich Willkommen!

Also als erstes einmal ist es schlecht deine variablen a, b, c als lobal zu deklarieren. Davon gehe ich mal aus, da du keine Deklaration mitgeschickt hast.
1. Vermeide also Globale Variablen. Deklariere sie entweder in der Prodedure.

2. oder schreibe dir doch gleich eine Function wie diese:

Delphi-Quellcode:

Function Addiere (const A : Integer; const B : Integer) : Integer;
begin
  result := A + B;
end;

3. Vielleicht machst du für den Anfang lieber zwei Eingabefelder, in die du jeweils eine zahl eintragen kannst, und dann per Button auswählst, welche Aktion durchgeführt werden soll.
Später kannste dich dann damit beschäftigen , alles in ein Feld einzugeben, inklusive der zeichen und dann das ganze filtern und ausrechnen, unter beachtung der Vorzeichen...



4. füge speziell Überprüfung auf Null z.B. bei der Division hinzu

Delphi-Quellcode:

Function Division (const Divisor : double; const Divident : double) : double;
begin
  if Divident = 0 then
    begin
    result := 0;
    messagegld('Division durch Null ist nicht erlaubt',mterror,[mbok],0);
    end
      else
        result := Divisor / Divident;
end;

Ich hoffe ich habe dir ersteinmal ein Paar nützliche hinweise gegeben!

LG marco!