Thema: Delphi Taschenrechner!!??

Einzelnen Beitrag anzeigen

Axxus

Registriert seit: 3. Okt 2006
212 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Taschenrechner!!??

  Alt 6. Mär 2007, 21:42
Ehm irgenwie widersprichst du dir

erst sagst du

Zitat von Crank09:
Danke hast du dir den Rechner mal angeschaut?
So einen Rechner hab ich auch schon programmiert (sogar mit Prozent und wurzeln)
und dann



Zitat von Crank09:
Ich meine so einen Rechner wie ein taschenrechner aufgebaut also das du eine Zahl eingibtst und das wird dann in einem Label angegeben und die Operator werden dann durch Bottons angegeben und da weiß ich beim besten willen nicht, wie ich das einstellen soll das alle botoms das oben angeben dann auch noch mit Operator und so ???!!!
Crank09
Ich hoffe ich hab dich jetzt nicht falsch verstanden aber ich hab doch eine Lösung vorgeschlagen

Als Code würde ich dir nun folgendes vorschlagen (Is vll besser wenn du en anschauliches beispiel hast)

Delphi-Quellcode:
unit Taschenrechner;

interface

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

type
  TForm1 = class(TForm)
    Button_1: TButton;
    procedure Button_1Click(Sender: TObject);
    procedure Button_plusClick(Sender: TObject);
    procedure Button_gleichClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Zahl1, Zahl2, Zahlnr : integer;
  Operator1: Char;
  Ergebnis: real;
  KOntrolle_1, KOntrolle_2, KOntrolle_O: Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button_1Click(Sender: TObject);
begin
  If Zahlnr = 1 Then
  begin
    Zahl1 := '1';
    Kontrolle_1 := true;
    Label1.Caption := (inttostr(Zahl1));
  end
  else
  begin
  Zahl2 := '1';
  KOntrolle_2 := true;
  Label1.Caption := (inttostr(Zahl2));
  end;
end;

procedure TForm1.Button_plusClick(Sender: TObject);
begin
  Operator1 := '+';
  Zahlnr := 2;
  Kontrolle_O := true;
end;

procedure TForm1.Button_gleichClick(Sender: TObject);
begin
  If (Kontrolle_1 = true) and (Kontrolle_2 = true) and (Kontrolle_O = true) Then
  begin
    If Operator1 = + Then
    begin
      Ergebnis := Zahl1 + Zahl2;
    end
    .
    .
    .
  Zahl1 := '';
  Zahl2 := '';
  Operator1 := '';
  Label1.Caption := (Floattostr (Ergebnis));
  end;
end;

end.
Erklärungen kommen morgen bin jetzt zu müde dazu

Sollte ich ein paar Syntaxfehler gemacht haben bitte korrigieren bin mom ziemlich müde und hab den code nicht getestet.


@ Crank09
Wenn du dich für Informatik und für Delphi interessiert und mehr lernen möchtest als im Schulunterricht würde ich als Nachtrlektüre
1. Turbo Pascal & Delphi für kids von Hans-Georg Schumann (Verlag mitp) (isbn 3-8266-0642-6)
2. Delphi für kids von Hans-Georg Schumann (Verlag mitp) (isbn 3-8266-0643-4)

empfehlen

Die Bücher sind echt gut und erschwinglich und haben mir sehr geholfen als ich angefangen hab

Hoffe es hilft die und morgen kommt noch ne erklärung zu dem code

Axxus
  Mit Zitat antworten Zitat