Nogen som har lyst til at lave et program?

Her har du dit program, læg din mail adr. og jeg sender det til dig


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    NytSpil: TButton;
    MitSats: TSpinEdit;
    KastTerning: TButton;
    Label1: TLabel;
    rgMitValg: TRadioGroup;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure NytSpilClick(Sender: TObject);
    procedure KastTerningClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Formue : Integer;
  Kast : Integer;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.NytSpilClick(Sender: TObject);
begin
  Formue := 1000;
  Label1.Caption := IntToStr(Formue);

end;

procedure TForm1.KastTerningClick(Sender: TObject);
begin
  Kast := Random(5)+1;
  Label5.Caption := IntToStr(Kast);
  if kast = rgMitValg.ItemIndex + 1 then
    Formue := Formue + MitSats.Value*6
  else
    Formue := Formue - MitSats.Value;
  Label1.Caption := IntToStr(Formue);




end;

end.

skulle du ikke løse dine skole opgaver selv ?

:-)

Jens B

SEJinDK@hotmail.com
Tak Morten.  Det ville være virkelig fedt hvis du ville sende den.

Man burde kræve penge for skoleopgaver:)

/FreeAll