unit UZahl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
EEingabe: TEdit;
BNeu: TButton;
BRaten: TButton;
PAntwort: TPanel;
ScrollBar: TScrollBar;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Label7: TLabel;
Label6: TLabel;
procedure NeueZahl(Sender: TObject);
procedure Vergleiche(Sender: TObject);
procedure BleibHier(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
Zahl: Integer;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
count : integer;
implementation
{$R *.DFM}
procedure TForm1.NeueZahl(Sender: TObject);
begin
Zahl := Random(100);
ScrollBar.Position := Zahl
end;
procedure TForm1.BleibHier(Sender: TObject);
begin
ScrollBar.Position := Zahl
end;
procedure TForm1.Vergleiche(Sender: TObject);
begin
count := count + 1;
Label4.Caption := IntToStr( count);
if count = 10
then
begin
Label4.Caption := '
Maximale Rateanzahl erreicht, die Lösung ist: , Neue runde?';
BRaten.Enabled := false ;
Label7.Caption := IntToStr ( Zahl);
end;
if StrToInt(EEingabe.Text) > Zahl
then
begin
PAntwort.Caption := '
zu groß!';
PAntwort.Color := clred
end;
if StrToInt (EEingabe.Text) < Zahl
then
begin
PAntwort.Caption := '
zu klein';
PAntwort.Color := clred
end;
if StrToInt (EEingabe.Text) = Zahl
then
begin
PAntwort.Caption := '
Richtig!';
PAntwort.Color := cllime ;
Label6.Caption := '
Ihr habt gewonnen!!! Probiert es gleich nochmal'
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
count := 0;
Randomize;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
count := 0;
BRaten.Enabled := true ;
Label4.Caption := '
' ;
Zahl := Random(100);
ScrollBar.Position := Zahl ;
Label7.Caption := '
' ;
Label6.Caption := '
'
end;
end.