Delphi Taschenrechner

Guten Tag,
ich habe mich jetzt man dran gesetzt und versucht ein bisschen Delphi zu lernen. Mein erstes Projekt war ein Taschenrechner. Leider funktioniert der Code nicht und ich wüsste gerne warum.

Code:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Zahl, Zahl2, ergebnis: integer;
  Zahl3: String;
  n: Integer;
  z: Integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Repeat
if n = 10 then
 Zahl := StrToInt(Edit1.Text);
 Zahl2 := StrToInt(Edit2.Text);
 ergebnis:=Zahl+Zahl2;
 Zahl3 :=IntToStr(ergebnis);
 ShowMessage(Zahl3);
if n = 20 then
  Zahl := StrToInt(Edit1.Text);
  Zahl2 := StrToInt(Edit2.Text);
  ergebnis:=Zahl-Zahl2;
  Zahl3 :=IntToStr(ergebnis);
  ShowMessage(''+Zahl3);
  z := 0
 until z <= 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Label2.Caption:='+';
 n := 10
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label2.Caption:='-';
 n := 20
end;

end.

---

Was willst du mit dem "repeat ... until z <= 1" machen? Ein Taschenrechner der Plus und Minus rechnet braucht das nicht.
Wenn du in Delphi Codeblöcke haben möchtest, dann musst du sie mit "begin ... end" einschließen.
Zum Beispiel:

Code:

---

if n = 10 then
begin
 Zahl := StrToInt(Edit1.Text);
 Zahl2 := StrToInt(Edit2.Text);
 ergebnis:=Zahl+Zahl2;
 Zahl3 :=IntToStr(ergebnis);
 ShowMessage(Zahl3);
end;

---

Ja, bin ja gerade erst am Anfang. Hab einfach bisschen ausprobiert. Hast du ein gutes Tutorial für mich? Oder ein Programm das sie einfach verwirklichen lässt?

Tipps & Tricks - Delphi-Treff
Willkommen auf Delphi-lernen.de
guck dich da ma um

Das "Jetzt lerne ich Delphi" EBook ,dass ich hier vor kurzem geuppt habe ist ebenfalls recht gut für den Anfang.

http://free-hack.com/delphi/67040-%5...phi-ebook.html

LG
-vin-

Habt ihr Ideen was für ein Programm ich coden könnte?

@Agent_Smith
Das sind die ersten Tutorials die bei Google kommen. -.-'

Habe vor einiger Zeit auch mit Delphi/Lazarus angefangen und auch einen Rechner gemacht vllt hilft dir der Code ein wenig.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ed_summand1: TEdit;
ed_summand2: TEdit;
ed_summe: TEdit;
Label1: TLabel;
Label2: TLabel;
bt_rechne: TButton;
GroupBox1: TGroupBox;
rb_addieren: TRadioButton;
rb_subtrahieren: TRadioButton;
rb_multiplikation: TRadioButton;
rb_division: TRadioButton;
procedure bt_rechneClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure rb_addierenClick(Sender: TObject);
procedure rb_subtrahierenClick(Sender: TObject);
procedure rb_multiplikationClick(Sender: TObject);
procedure rb_divisionClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
bo_addition, bo_subtraktion, bo_multiplikation, bo_division: Boolean;

implementation

{$R *.DFM}

procedure TForm1.bt_rechneClick(Sender: TObject);
var str_summand1, str_summand2: string ;
int_summand1, int_summand2, int_ergebnis: double ;
begin
str_summand1 := ed_summand1.Text;
str_summand2 := ed_summand2.Text;

int_summand1 := strtofloat(str_summand1);
int_summand2 := strtofloat(str_summand2);

if bo_addition then
begin
int_ergebnis := int_summand1+int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_addition := false;
end;

if bo_subtraktion then
begin
int_ergebnis := int_summand1-int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_subtraktion := false;
end;

if bo_multiplikation then
begin
int_ergebnis := int_summand1*int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_multiplikation := false;
end;

if bo_division then
begin
int_ergebnis := int_summand1/int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_division := false;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bo_addition := false;
bo_subtraktion := false;
bo_multiplikation := false;
bo_division := false;
end;

procedure TForm1.rb_addierenClick(Sender: TObject);
begin
bo_addition := true ;
label1.Caption := '+' ;
end;

procedure TForm1.rb_subtrahierenClick(Sender: TObject);
begin
bo_subtraktion := true ;
label1.Caption := '-' ;
end;

procedure TForm1.rb_multiplikationClick(Sender: TObject);
begin
bo_multiplikation := true ;
label1.Caption := '*' ;
end;

procedure TForm1.rb_divisionClick(Sender: TObject);
begin
bo_division := true ;

Nen Tut hatte ich leider nicht was etwas getaugt hatte aber konnte einiges durch rumprobieren lernen und habe einen Bekannten, Buddy die zur Stelle sind mit Rat und tat.
Das kann ich eher empfehlen als nen Tut.
Hoffe das hilft.

ps: sry das es net richtig eingerückt ist xD

Zitat:

---

Zitat von heretic

Habe vor einiger Zeit auch mit Delphi/Lazarus angefangen und auch einen Rechner gemacht vllt hilft dir der Code ein wenig.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ed_summand1: TEdit;
ed_summand2: TEdit;
ed_summe: TEdit;
Label1: TLabel;
Label2: TLabel;
bt_rechne: TButton;
GroupBox1: TGroupBox;
rb_addieren: TRadioButton;
rb_subtrahieren: TRadioButton;
rb_multiplikation: TRadioButton;
rb_division: TRadioButton;
procedure bt_rechneClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure rb_addierenClick(Sender: TObject);
procedure rb_subtrahierenClick(Sender: TObject);
procedure rb_multiplikationClick(Sender: TObject);
procedure rb_divisionClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
bo_addition, bo_subtraktion, bo_multiplikation, bo_division: Boolean;

implementation

{$R *.DFM}

procedure TForm1.bt_rechneClick(Sender: TObject);
var str_summand1, str_summand2: string ;
int_summand1, int_summand2, int_ergebnis: double ;
begin
str_summand1 := ed_summand1.Text;
str_summand2 := ed_summand2.Text;

int_summand1 := strtofloat(str_summand1);
int_summand2 := strtofloat(str_summand2);

if bo_addition then
begin
int_ergebnis := int_summand1+int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_addition := false;
end;

if bo_subtraktion then
begin
int_ergebnis := int_summand1-int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_subtraktion := false;
end;

if bo_multiplikation then
begin
int_ergebnis := int_summand1*int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_multiplikation := false;
end;

if bo_division then
begin
int_ergebnis := int_summand1/int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_division := false;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bo_addition := false;
bo_subtraktion := false;
bo_multiplikation := false;
bo_division := false;
end;

procedure TForm1.rb_addierenClick(Sender: TObject);
begin
bo_addition := true ;
label1.Caption := '+' ;
end;

procedure TForm1.rb_subtrahierenClick(Sender: TObject);
begin
bo_subtraktion := true ;
label1.Caption := '-' ;
end;

procedure TForm1.rb_multiplikationClick(Sender: TObject);
begin
bo_multiplikation := true ;
label1.Caption := '*' ;
end;

procedure TForm1.rb_divisionClick(Sender: TObject);
begin
bo_division := true ;

Nen Tut hatte ich leider nicht was etwas getaugt hatte aber konnte einiges durch rumprobieren lernen und habe einen Bekannten, Buddy die zur Stelle sind mit Rat und tat.
Das kann ich eher empfehlen als nen Tut.
Hoffe das hilft.

ps: sry das es net richtig eingerückt ist xD

---

Wie kann ich den Source-Code in Delphi einfach reinpasten? Wenn ich C&P mache sagt er immer das ihm die ganzen Forms und so fehlen. Muss ich die selber erstellen?

Ich bin auch nicht so für Tutorials deswegen wollte ich ja wissen was für ein Programm ich coden soll.

Einfach C&P geht leider nicht, wenn du willst kann ich dir das auch schicken.

Zitat:

---

Zitat von heretic

Einfach C&P geht leider nicht, wenn du willst kann ich dir das auch schicken.

---

Nein, ist schon okay. Möchte das ja selber schaffen. :D
Also ich habe jetzt einen neuen Taschenrechner gemacht. Mit 4 RadioButtons für die Rechenarten. Und ein Button um die Rechnung zu lösen. Jetzt möchte ich das wenn einer der RadioButtons gedrückt wird das sich einfach nur eine Variable ändert:

Code:

---

procedure TForm1.RadioButtonAdditionClick(Sender: TObject);
begin
rechenoperator:=+;

---

und dann einfach beim klicken auf den "Gleich" Button benutzt wird:

Code:

---

procedure TForm1.Gleich1Click(Sender: TObject);
begin
a:=StrToInt(Zahlenfeld1a.Text);
b:=StrToInt(Zahlenfeld1b.Text);
int_ergebnis := a[VARIABLE]b;
Loesung1.Text := FloatToStr(int_ergebnis);

---

Wie füge ich die Variable korrekt ein?

EDIT:

Habe mal in einem Delphi Forum nachgefragt. Hab jetzt einen bessere Lösung:

Code:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    RadioAddition: TRadioButton;
    RadioSub: TRadioButton;
    RadioMulti: TRadioButton;
    RadioDiv: TRadioButton;
    Button1: TButton;
    Loesung1: TEdit;
    Zahlenfeld1b: TEdit;
    Zahlenfeld1a: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure RadioAdditionClick(Sender: TObject);
    procedure RadioSubClick(Sender: TObject);
    procedure RadioDivClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioMultiClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  rechenoperator: Char;
  a, b: integer;
      int_ergebnis: Double;

implementation

{$R *.DFM}

procedure TForm1.RadioAdditionClick(Sender: TObject);
begin
rechenoperator := '+';
Label1.caption := '+';
end;

procedure TForm1.RadioSubClick(Sender: TObject);
begin
rechenoperator := '-';
Label1.caption := '-';
end;

procedure TForm1.RadioDivClick(Sender: TObject);
begin
rechenoperator := '/';
Label1.caption := '/';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  a := StrToInt(Zahlenfeld1a.Text);
  b := StrToInt(Zahlenfeld1b.Text);
  case Rechenoperator of  //Fallunterscheidung welche Rechenoperation gewählt wurde, kann auch mit if-abfragen realisiert werden
    '+': int_ergebnis := a + b;
    '-': int_ergebnis := a - b;
    '*': int_ergebnis := a * b;
    '/': int_ergebnis := a / b;
  end;
  Loesung1.Text := FloatToStr(int_ergebnis);
end;

procedure TForm1.RadioMultiClick(Sender: TObject);
begin
    rechenoperator := '*';
Label1.caption := '*';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
rechenoperator := '+';
Label1.caption := '+';
end;

end.

---

Such aber immernoch Vorschläge dafür was ich als nächtes coden soll.

Zuersteinmal kannst du nicht einfach nen Rechenoperator in eine Variable packen :D Das würde dir verdammt viele Komplikationen bereiten, wie z.b. beim Teilen durch 0.

Du kannst deine Variable 'rechenoperator' als 'char' deklarieren (rechenoperator: Char; ) und da dann ein Zeichen wie z.b. +, -, * und / drin speichern (z.B. rechenoperator := '+'; ).

Beim Klick auf den Rechnen-Button musst du dann halt abfragen, welches Rechenzeichen die Variable rechenoperator hat. Das geht so:

Code:

---


case rechenoperator of
    '+': ergebnis := a + b;
    '-': ergebnis := a - b;
    '*': ergebnis := a * b;
    '/':
    begin
        if b <> 0 then
        ergebnis := a / b
    else
        showmessage('Division by Zero!');

end;

---

Dieser Code soll dir nur zeigen, wie man das nutzt. Wenn die Variable 'ergebnis' ein int ist, wirst du beim Dividieren ein weiteres Problem bekommen (Gleitkommazahlen ist das Stichwort ;))

So, und nun viel Spass weiterhin beim Lernen :D

Edit: Da warste wohl schneller :) aber gib bei deinem Taschenrechner mal 4 und 3 ein und dividier das ;) oder 3 und 0. Solche Fehler zu erkennen und zu entfernen ist mMn eine wesentlich bessere Übung, als ein Progrämmchen nach dem anderen "hinzuschmieren". (Ist nett böse gemeint)

Warum kriege ich so viele Fehler wenn ich versuche deinen Code reinzupasten?

http://s13.directupload.net/images/101027/undjo8y7.jpg

Aber trotzdem Danke für den Tipp!

weil du nicht meinen Code da reingenommen hast :D

Code:

---

  '/':
    begin
        if b <> 0 then
        ergebnis := a / b
    else

---

Schau dir das mal genau an ;) Der Lerneffekt wird sich dann sicher stark bemerkbar machen, was die Syntax der Case of-Bedingung angeht.

Ausserdem musst du die Variable, die bei mir ergebnis heisst, in deine Ergebnis-beimhaltende Variable umbenennen ;)

Bekomme immer noch Fehler:

http://s10.directupload.net/images/101027/5rtypflk.jpg

Immoment tue ich mich noch ziemlich schwer mit der Reihenfolge daher auch diese ganzen "XXX expected but XXX found"
Irgendwie jemand ein gutes Tutorial zum Aufbau von Delphi?

Du hast da noch ein else drin, dem nichts folgt ausser ein 'end;'.

Nimm das else mal raus, dann sollte es gehen ;)

Du solltest dir wirklich zuerst die Grundlagen aneignen, was Code-Blöcke, Bedingungen und Schleifen in Delphi angeht.
Ein Ebook dafür wurde dir in diesem Thread schon gepostet.

Zitat:

---

Zitat von bayer

Du hast da noch ein else drin, dem nichts folgt ausser ein 'end;'.

Nimm das else mal raus, dann sollte es gehen ;)

Du solltest dir wirklich zuerst die Grundlagen aneignen, was Code-Blöcke, Bedingungen und Schleifen in Delphi angeht.
Ein Ebook dafür wurde dir in diesem Thread schon gepostet.

---

Geht immer noch nicht. :o

Bin das E-Book gerade am lesen...

Du musst das else duch ein end; ersetzen, da du ein begin immer durch ein end; abschließen musst.

Ich würde vielleicht erstmal paar Grundkenntnisse empfehlen.
Ein Taschenrechner ist das schon die richtige Wahl, allerdings solltest du paar Grundregel lernen, und die schreibweise bei Delphi nicht vergesen.

Bin jetzt gerade am E-Book durcharbeiten. Komme gut voran. Verstehe jetzt auch die Schreibweise in Delphi. Hab aber am meisten Problemen mit if-Statements:

http://s13.directupload.net/images/101028/jlombvxt.jpg

In der Zeile davor fehlt das abschliessende Semikolon ;)

Jungs Ihr bringt Ihn durcheinander.
Es fehlt in seinem Beispiel gar nichts, es sei denn er möchte es um weitere Befehle erweitern.

Beispiel

Code:

---

If IsDriveReady ('S') then
 begin
  CoolTrayIcon1.IconVisible := True;
  Application.ShowMainform := false;
  timer1.enabled := true;
  timer1.Interval := 1000;
  Sekunden := 60 ;
 end
 else
  CoolTrayIcon1.MinimizeToTray := false;
       
       
// WICHTIG!!!    Kein End nach else

---

wenn du nach else ein begin end einbauen willst weil du mehrere Befehle ausführen willst dann erst muss es mit ; enden.
Bei

Code:

---

begin
end
else
dein Befehl  ;

---

schliesst du die Schleife mit dem "dein Befehl" ab

Hier noch ein anderes Beispiel , etwas erweitert.

Code:

---

var a:integer;
begin
  if a = 1 then
    begin
    end
  else if a=2 then
    begin
    end
  else if a=3 then
    begin
    end
end;

---

@Pinkywesen In deinem Bild kann ich dein Fehler sehen.
Ich habe keine Lust dein Code zu tippen.
Fehler in deiner markierten Zeile.
Du öfnest mit beginn, bearbeitest deine Befehle, schliesst aber nicht ab die Schleife, haust aber ein else in eine Unterschleife. So geht es nicht.
Es gibt zwar viele Wege nmach Rom, eine kleine KOrrektur aber bringt dich weiter.
Tausche deine markierte Zeile mit der >Zeile
else

Schon geht es.


Zu dem Code sage ich nun nichts, du fängst gerade an, also solltest du auf die Funktionalität achten, alles Andere ist erstmal nicht so wichtig.

Noch ein paar allgemeine Hinweise:
Du kannst einen Integer-Überlauf so nicht einfach abfangen.
Das machst Du am besten mit einen try..except-Block und fängst die Exception EIntegerOverflow ab.
Dann solltest Du Dir auch noch angewöhnen lokale-Variablen zu benutzen und dein "Problem"/Aufabe in kleine Teilaufgaben (Funktionen, Prozeduren) zu unterteilen. Bei Dir bietet sich für den Rechenoperator z.B. ganz gut ein enum an und eine Funktion, welche Dir den entsprechenden Operator liefert, dann sparst du Dir auch die ganzen OnClick-Events.

Wenn du es bis jetzt immernoch nicht hinbekommen hast kann ich dir ein kleines Tut schreiben was die Grundlagen erklärt und auf einem kleinen Rabatt-Rechner basiert.
Schreib einfach ne PN bei Bedarf.

Habe jetzt den Taschenrechner fertig gecodet. Funktioniert soweit. Hat jemand Vorschläge was ich noch einbauen könnte? Oder was für ein anderes Programm ich machen könnte?

THX an alle für ihr Hilfe!