hur kan jag få att från och med att jag har tryckt på en knapp så gör programet en viss sak var 15 minut. Hejtimer
tack på förhand
Ruben
()]////[========>Sv: timer
Så här kan du göra
Ställ Timer1 i Enabled := False och Interval := 10000 10 sek
Vill du ha dina 15 minuter noggrannare än på 10 sek när
får du ändra Interval till 1000 = 1 sek
private
{ Private declarations }
Start : Single ;
Elapsed : Single ;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True ;
Start := Time ;
Label1.Caption := 'Klockan går';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
// 1 minut kan skrivas 0.000694 i intervallet
// 0.0 - 0.99999 som är 00:00:01-23:59:59
// 15 minuter blir 15 * 0.000694 = 0.010417
begin
Elapsed := Time ;
// if 15 minuter har gått
If Elapsed - Start > 0.010417 Then Begin
Label1.Caption := ' 15 minuter har gått';
Start := Elapsed ;
// gör något 15 minuter har gått
End ;
end;
end.
mvh
Sven