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