Taschenrechner

[Enten Mann]

Hallo ich lerne grade Delphi und möchte mir eine Taschenrechner Programmieren, leider habe ich en Prob mit dem Input und was da rein soll.

Also ich möchte es so:

user drückt button
zahl erscheint

user drückt button
zeichen erscheint(+, -, *, etc)

user drückt button
nächste zahl erscheint

user drückt = button dann erscheint ergebnis

Wie mache ich das?

Ich schaffe das einfach nicht, hier mal mein Code.

Delphi-Quellcode:

unit Unit1; {Name der Unit}

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Edit1: TEdit;
    Image12: TImage;
    procedure Button1Click(Sender: TObject);
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1; //Hier werden die Globalen Variablen definiert

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); //Unser OnClick-Ereignis
var
  zahl1, zahl2, ergebnis: integer; //Unsere Variablen
begin
  zahl1:=StrToInt(Edit1.Text);
  zahl2:=StrToInt(Edit1.Text);
  ergebnis:=zahl1+zahl2;
  Edit1.Caption:=IntToStr(ergebnis);
end;

end.

[Larsi]

speichere den inhalt der textbox doch in ne variable!

[rawsoul]

Delphi-Quellcode:

  zahl1:=StrToInt(Edit1.Text); 
  zahl2:=StrToInt(Edit1.Text); 
  ergebnis:=zahl1+zahl2; 
  Edit1.Caption:=IntToStr(ergebnis);

Huch, warum denn so umständlich? Und was soll eine Caption eines Editfeldes sein?
Wie wäre es hiermit:

Delphi-Quellcode:

Edit1.Text:=IntToStr(2*StrToInt(Edit1.Text))

//Edit: Wieso funktionieren denn die Delphitags nicht?


[edit=Matze]Der Haken "BBCode in diesem Beitrag deaktivieren" war gesetzt. ;) ich habe ihn soeben entfernt. MfG, Matze[/edit]

[Enten Mann]

Mein Code sieht jetzt aus

Delphi-Quellcode:

unit Unit1; {Name der Unit}

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Edit1: TEdit;
    Image12: TImage;
    procedure Button1Click(Sender: TObject);
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1; //Hier werden die Globalen Variablen definiert

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); //Unser OnClick-Ereignis
var
  zahl1, zahl2, ergebnis: integer; //Unsere Variablen
begin
Edit1.Text:=IntToStr(2*StrToInt(Edit1.Text))
end;

end.

Wo kann ich nachlesen wie ich das mache wenn man auf eine zahl oder ein Symbol drückt das ins Input kommt?

[rawsoul]

Zeig doch mal einen Screenshot, damit man sich überhaupt etwas unter deinem Vorhaben vorstellen kann. Ich weiß bisher nur, dass du eine Zahl mit 2 multiplizieren möchtest und diese ausgeben willst.

[dominikkv]

Sind diese "Zahlen" Buttons auf deinem Formular?
Wenn ja dann einfach im onClick-Event zB schreiben:

Delphi-Quellcode:

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
  edInput.Text := edInput.Text + '-'; // edInput ist das Edit
end;

edit: Es werden wohl Images sein... aber die haben auch ein onClick :zwinker:

[Enten Mann]

Hier ein Screen


http://www1.picfront.org/picture/pEM...img/Screen.gif



Hier noma mein Code hab Bezeichnungen geändert

Delphi-Quellcode:

unit Unit1; {Name der Unit}

interface

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

type
  TForm1 = class(TForm)
    Image0: TImage;
    Image1: TImage;
    Image2: TImage;
    Image8: TImage;
    Image5: TImage;
    Image3: TImage;
    Image7: TImage;
    Image6: TImage;
    Image4: TImage;
    Image10: TImage;
    Image11: TImage;
    Mal: TImage;
    Back: TImage;
    Geteilt: TImage;
    Gleich: TImage;
    Plus: TImage;
    Punkt: TImage;
    Rechts: TImage;
    Links: TImage;
    Minus: TImage;
    Edit1: TEdit;
    PI: TImage;

    { Procedure Starts }
    procedure Button1Click(Sender: TObject);
  { Procedure Ends }
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1; //Hier werden die Globalen Variablen definiert

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); //Unser OnClick-Ereignis
var
  zahl1, zahl2, ergebnis: integer; //Unsere Variablen
begin
  Edit1.Text:=IntToStr(2*StrToInt(Edit1.Text))
end;

end.

[Enten Mann]

Gut alles funtz jetzt muss ich n ur noch wissen wie man PI rechnet und schauen ob er es auch ausrechnet

Weiß jemand wie man PI ausrechnet per Delphi kanns net ma im richtigen leben :D

[Klaus01]

Hallo,

muß man nicht errechnen, es gibt eine Funktion dafür:

Zitat:

Zitat von DelphiHilfe

Unit

System

Category

arithmetic routines

function Pi: Extended;

Description

Use Pi in mathematical calculations that require pi, the ratio of a circle's circumference to its diameter. Pi is approximated as 3.1415926535897932385.

.. und wenn Du es unbedingt berechnen willst, hilft ein Blick bei Wikipedia.

Grüße
Klaus

[Enten Mann]

Wo find ich Infos zu dieser Function?