Einzelnen Beitrag anzeigen

LDProgrammierer

Registriert seit: 16. Aug 2010
10 Beiträge
 
Delphi 7 Enterprise
 
#1

Brauche dringend Hilfe

  Alt 24. Aug 2010, 15:00
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.
Miniaturansicht angehängter Grafiken
1.jpg   2.jpg   3.jpg   4.jpg  

Geändert von LDProgrammierer (24. Aug 2010 um 15:16 Uhr)
  Mit Zitat antworten Zitat