Countdown clock

Det er alt for mange point

unit Unit1;

interface

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



type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  sekunder : integer;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
form1.Caption := inttostr(sekunder);
dec(sekunder);

if sekunder mod 60 = 0 then
beep;  // eller spil en wav fil
// de næste 2 linier er kun til hvis den skal starte forfra
// med at tælle 100 min ned
if sekunder = 0 then
sekunder := 6000;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sekunder := 6000;
end;

end.

Stoney

du starter vel med at lave en label/editbox eller noget til at skrive tælleren med..
derefter lav en timer (fanebladet system) der hvert minut eller sekund ændrer tælleren..
hvis du vil afspille en .waw-fil (fx en standard windows lyd) kan du bruge tmediaplayer.. du kan loade lyd filen deri (evt sige mediaplayer1.visible := false, så man ikke ser den) og så kan du i din timer: mediaplaer1.play

så skal der selvfølgelig lige justeres til og sådan, men metoden burde virke..

stoney> sorry, havde ikke lige opdateret siden og set du allerede havde svaret :)