unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ImgList, ExtCtrls;
type
TForm1 =
class(TForm)
EinsatzLbl: TLabel;
EndeBtn: TButton;
ImageList1: TImageList;
GuthabenLbl: TLabel;
EinsatzCbB: TComboBox;
Label1: TLabel;
TButton: TButton;
Image1: TImage;
Image2: TImage;
procedure EndeBtnClick(Sender: TObject);
procedure TButtonClick(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.EndeBtnClick(Sender: TObject);
begin
close;
end;
procedure TForm1.TButtonClick(Sender: TObject);
var einsatz, guthaben, wurf1, wurf2, augensumme: byte;
begin randomize;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
Image10.Visible:=false;
Image11.Visible:=false;
Image12.Visible:=false;
einsatz:=strtoint( EinsatzCbB.text );
wurf1 := random( 6 )+1;
wurf2 := random( 6 )+1;
augensumme := wurf1 + wurf2;
case augensumme
OF
2..6 :
begin
ErgebnisPanel.Caption := '
Einsatz verloren';
faktor := 0;
end;
7, 8, 9 :
begin
ErgebnisPanel.Caption := '
Einsatz zurück';
faktor := 1;
end;
10 :
begin
ErgebnisPanel.Caption := '
Einsatz verdoppelt';
faktor := 2;
end;
11 :
begin
ErgebnisPanel.Caption := '
Einsatz verdreifacht';
faktor := 3;
end;
12 :
begin
ErgebnisPanel.Caption := '
Einsatz vervierfacht';
faktor := 4;
end;
else
ErgebnisPanel.Caption := '
Würfel auf Kippe';
end;
case wurf1
OF
1:
begin
Image1.visible := true;
Image1.width := 80;
end;
2:
begin
Image2.visible := true;
Image2.width := 80;
end;
3:
begin
Image3.visible := true;
Image3.width := 80;
end;
4:
begin
Image4.visible := true;
Image4.width := 80;
end;
5:
begin
Image5.visible := true;
Image5.width := 80;
end;
6:
begin
Image6.visible := true;
Image6.width := 80;
end;
end;
case wurf2
OF
1:
begin
Image7.visible := true;
Image7.width := 80;
end;
2:
begin
Image8.visible := true;
Image8.width := 80;
end;
3:
begin
Image9.visible := true;
Image9.width := 80;
end;
4:
begin
Image10.visible := true;
Image10.width := 80;
end;
5:
begin
Image11.visible := true;
Image11.width := 80;
end;
6.
begin
Image12.visible := true;
Image12.width := 80;
end;
// of case //
Ergebnis2Panel.caption := inttostr( faktor * einsatz );
end;
end.