Hallo Leute, ich möchte ein Programm schreiben bei dem der Computer zwei zufällige Zahlen generieren soll, und man dan z.B über ein Edit-Feld die Summe der beiden Zahlen eingeben muss, wobei dann entsprechend eine Antowrt RICHTIG, oder FALSCH angezeigt wird.
Delphi-Quellcode:
unit AUFGABEN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Label5: TLabel;
XPManifest1: TXPManifest;
Label3: TLabel;
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a, b, c : Integer;
implementation
{$R *.dfm}
procedure TForm1.Label1Click(Sender: TObject);
begin
randomize;
a := random(100);
b := random(100);
Label2.Caption := IntToStr(a);
Label5.Caption := IntToStr(b);
Label1.Caption := '
Hol dir eine neue Aufgabe oder wähle die Rechenart';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
edit1.Text:=IntToStr(c);
if (c = (a+b))
then Label3.Caption := '
RICHTIG !!!'
else Label3.Caption := '
FALSCH !!!';
except
Label3.Caption := '
Gib nur Zahlen ein !!!';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
edit1.Text:= IntToStr(c);
if (c = (a-b))
then Label3.Caption := '
RICHTIG !!!'
else Label3.Caption:= '
FALSCH !!!';
except
Label3.Caption:= '
Gib nur Zahlen ein';
end;
end;
end.
also wenn man auf Label1 klickt werden die Zahlen generiert, so weit klappt es , wenn ich jedoch das Ergebnis eingbe und auf z.b + klicke , dann wird die Eingabe zu null und FALSCH wir angezeigt. Beim ersten Bild habe ich das Programm gestartet beim zweiten habe ich die Zahlen generieren lassen, und in 3 habe ich die Summe eingegeben, im vierten Bild habe ich bereits auf + geklickt, und das geschah dann so. Bitte ich brauche dringend Hilfe, was mache ich falsch, ich denke schon seit über einer Stunde nach was ich tun kann aber nichts klappt mfg.