unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ImgCent1: TImage;
    ImgCent2: TImage;
    ImgCent3: TImage;
    lblKommentar: TLabel;
    ButtonMuenzwurf: TButton;
    StaticText1: TStaticText;
    BitBtn1: TBitBtn;
    BitBtnEnde: TBitBtn;
    StaticText2: TStaticText;
    Edit1: TEdit;
    StaticText3: TStaticText;
    Edit2: TEdit;
    StaticText4: TStaticText;
    Edit3: TEdit;
    GroupBox1: TGroupBox;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    gesamtwertungLbl: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ButtonMuenzwurfClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  wurfanzahl:integer;
  anzahl_richtig:integer;
  anzahl_falsch:integer;
  gesamtwertung:boolean;                                                        //Gesamtwertung verloren oder gewonnen

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  wurfanzahl:=0;                                                                //Anzahl der bereits registrierten Würfe
end;

procedure TForm1.ButtonMuenzwurfClick(Sender: TObject);

var
  muenze1:short;
  muenze2:short;
  muenze3:short;
  summe:short;

begin
  lblKommentar.Visible:=True;                                                   //Anzeige für den Kommentar sichtbar
  gesamtwertung:=false;                                                         //Aktuell habe ich verloren
  summe:=0;                                                                     //Wurfzahl auf 0 setzen
  muenze1:=random(2);                                                           //es wird für muenze1 eine Zufallszahl zwischen 0 und 1 gezogen
  muenze2:=random(2);                                                           //es wird für muenze2 eine Zufallszahl zwischen 0 und 1 gezogen
  muenze3:=random(2);                                                           //es wird für muenze3 eine Zufallszahl zwischen 0 und 1 gezogen
  summe:=summe+muenze1+muenze2+muenze3;                                         //Summe der Einzelwwürfe - es gewinnen summe= 0 oder summe= 3!!!
  if muenze1=0
  then
  begin
    ImgCent1.Picture.LoadFromFile('wappen.bmp');
    StatusBar1.Panels[1].Text:='Wappen';
  end
  else
  begin
    ImgCent1.Picture.LoadFromFile('zahl.bmp');
    StatusBar1.Panels[1].Text:='Zahl';
  end;
  if muenze2=0
  then
  begin
    ImgCent2.Picture.LoadFromFile('wappen.bmp');
    StatusBar1.Panels[3].Text:='Wappen';
  end
  else
  begin
    ImgCent2.Picture.LoadFromFile('zahl.bmp');
    StatusBar1.Panels[3].Text:='Zahl';
  end;
  if muenze3=0
  then
  begin
    ImgCent3.Picture.LoadFromFile('wappen.bmp');
    StatusBar1.Panels[5].Text:='Wappen';
  end
  else
  begin
    ImgCent3.Picture.LoadFromFile('zahl.bmp');
    StatusBar1.Panels[5].Text:='Zahl';
  end;
  if (summe=0)or(summe=3)
  then
  begin
    lblKommentar.Font.Color:=clGreen;
    lblKommentar.Caption:='Gratulation, du hast aktuell gewonnen!';
    inc(anzahl_richtig);
    StatusBar1.Panels[7].Text:='aktuell gewonnen';
  end
  else
  begin
    lblKommentar.Font.Color:=clRed;
    lblKommentar.Caption:='Schade, du hast aktuell verloren!';
    inc(anzahl_falsch);
    StatusBar1.Panels[7].Text:='aktuell verloren';
  end;
  inc(wurfanzahl);
  Edit1.Text:=IntToStr(wurfanzahl);
  Edit2.Text:=IntToStr(anzahl_richtig);
  Edit3.Text:=IntToStr(anzahl_falsch);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  gesamtwertung:=false;                                                         //AKtuell auf Rückgesetzt habe ich erst einmal verloren
  StatusBar1.Panels[1].Text:='';
  StatusBar1.Panels[3].Text:='';
  StatusBar1.Panels[5].Text:='';
  StatusBar1.Panels[7].Text:='';
  Edit1.Text:='0';
  Edit2.Text:='0';
  Edit3.Text:='0';
  //summe:=0;
  wurfanzahl:=0;
  anzahl_richtig:=0;
  anzahl_richtig:=0;
  lblKommentar.Visible:=False;                                                  //Anzeige für den Komemntar unsichtbar
end;

end.