Basketball Freiwurf

[DeddyH]

Schau mal in den Anhang, das habe ich wie oben beschrieben umgesetzt.

[edit] Sry, habe den Quellcode vergessen (komplette Unit):

Delphi-Quellcode:

unit uExample;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmExample = class(TForm)
    lblLevel: TLabel;
    lblWurf: TLabel;
    lblAktPunkte: TLabel;
    lblGesamt: TLabel;
    btnWurf: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnWurfClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FLevel,
    FGesamt,
    FWurf: integer;
    procedure NeuesLevel;
    procedure Punkte(iPunkte: integer);
    procedure Wurf;
  public
    { Public-Deklarationen }
  end;

var
  frmExample: TfrmExample;

implementation

{$R *.dfm}

{ TfrmExample }

procedure TfrmExample.btnWurfClick(Sender: TObject);
begin
  Wurf;
end;

procedure TfrmExample.FormCreate(Sender: TObject);
begin
  Randomize;
  NeuesLevel;
  Punkte(0);
  lblWurf.Caption := Format('Wurf: %d',[FWurf]);
  lblAktPunkte.Caption := Format('Punkte: %d',[0]);
end;

procedure TfrmExample.NeuesLevel;
begin
  inc(FLevel);
  lblLevel.Caption := Format('Level %d',[FLevel]);
end;

procedure TfrmExample.Punkte(iPunkte: integer);
begin
  inc(FGesamt,iPunkte);
  lblGesamt.Caption := Format('Gesamt: %d',[FGesamt]);
end;

procedure TfrmExample.Wurf;
var iPoints: integer;
begin
  iPoints := Random(4);
  inc(FWurf);
  if FWurf > 3 then
    begin
      NeuesLevel;
      FWurf := 1;
    end;
  lblAktPunkte.Caption := Format('Punkte: %d',[iPoints]);
  lblWurf.Caption := Format('Wurf: %d',[FWurf]);
  Punkte(iPoints);
end;

end.

[/edit]