[SOLVED] Timer

[Pe3s]

Hello, I wanted to try to write a timer and it's easy with seconds. What do I need to do to separate hours, minutes, seconds

Code: Pascal  [Select][+][-]

1. var
2.   Form1: TForm1;
3.   TimeOut: TDateTime;
4.  
5. implementation
6.  
7. {$R *.lfm}
8.  
9. function CTimer(ASecs: Integer): String;
10. begin
11.   Result := Format('%2d:%2.2d:%2.2d', [ASecs div 3600, ASecs mod 3600 div 60, ASecs mod 3600 mod 60]);
12. end;
13.  
14. { TForm1 }
15.  
16. procedure TForm1.Timer1Timer(Sender: TObject);
17. begin
18.   Label1.Caption := CTimer(SecondsBetween(Now, TimeOut));
19.   if Now > Timeout then
20.   Timer1.Enabled := False;
21. end;
22.  
23. procedure TForm1.Button1Click(Sender: TObject);
24. var
25.   Seconds: integer;
26. begin
27.   if TryStrToInt(Edit1.Text, Seconds) then
28.   begin
29.     TimeOut := IncSecond(Now, Seconds);
30.     Timer1.Enabled := True;
31.     Label1.Caption := CTimer(SecondsBetween(Now, TimeOut));
32.   end
33.   else
34.     ShowMessage('Error in number of seconds');
35. end;
36.  

[KodeZwerg]

To generate from seconds a HH:MM:SS string, you can do:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   Secs: QWord;
4. begin
5.   if TryStrToQWord(Edit1.Text, Secs) then
6.     begin
7.       Label1.Caption := FormatDateTime('hh:nn:ss', Secs / SecsPerDay);
8.     end;
9. end;

[Pe3s]

@KodeZwerg, I mean how to separate setting the timer timer separately hours, minutes, seconds?

[KodeZwerg]

EncodeTime(Hour, Minute, Second, MilliSecond) ?

I still have no idea what you actual want.

[KodeZwerg]

Or the opposite...
DecodeTime(TDateTime, Hour, Minute, Second, MilliSecond) ?

[cdbc]

Hi
Given the granularity of ttimer is 1 millisecond...
Maybe these two methods can be of use to you:

Code: Pascal  [Select][+][-]

1. { first from milliseconds to datetime }
2. procedure TIsoTime.set_AsInteger(const aValue: ptrint); //bm
3. var
4.   H,M,S,MSec: word;
5.   L: cardinal; // leftover can be a pretty high number :-)
6. begin
7.   // 14.08.2022 new implementation, stored as milliseconds per day
8.   // formula: fIntTime = ((H*3600000) + (M*60000) + (S*1000) + MSec
9.   //          H = fIntTime div 3600000; L = fIntTime mod 3600000
10.   //          M = L div 60000; L = L mod 60000
11.   //          S = L div 1000
12.   //          MSec = L mod 1000
13.   if aValue <> fIntTime then begin
14.     fIntTime:= aValue;
15.     H:= fIntTime div 3600000; L:= fIntTime mod 3600000;
16.     M:= L div 60000; L:= L mod 60000;
17.     S:= L div 1000;
18.     MSec:= L mod 1000;
19.     fTime:= EncodeTime(H,M,S,MSec);
20.   end;
21. end;
22.  

And from datetime to milliseconds:

Code: Pascal  [Select][+][-]

1. procedure TIsoTime.set_AsTime(const aValue: TDateTime);
2. var
3.   H,M,S,MSec: word;
4. begin
5.   if aValue <> fTime then begin
6.     H:= 0; M:= 0; S:= 0; MSec:= 0;
7.     DecodeTime(aValue,H,M,S,MSec);
8.     fIntTime:= ((H*3600000)+(M*60000)+(S*1000)+MSec); { changed to include msecs //bm }
9.     fTime:= EncodeTime(H,M,S,MSec);
10.   end;
11. end;
12.  

So, get the hours, minutes, seconds & milliseconds from your user and calculate the "fIntTime" above and use that in your timer value...
The procedures should be turned into functions for ease of use in your case.
Hth - Regards Benny

[Pe3s]

@KodeZwerg, I'm talking about setting the countdown time, I want to set hours, minutes and seconds separately.

1.spinedit - hour
2.spinedit - minutes
3.spinedit - seconds

[KodeZwerg]

There is no possibility to set up the timer like you want it (with seperated values) but you can of course count them up and tell timer that value.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   H, M, S: Integer;
4.   Secs: UInt64;
5. begin
6.   if (TryStrToInt(Edit1.Text, H) and TryStrToInt(Edit2.Text, M) and TryStrToInt(Edit3.Text, S)) then
7.     begin
8.       Secs := S;
9.       Secs := (M * SecsPerMin) + Secs;
10.       Secs := (H * SecsPerHour) + Secs;
11.       Label1.Caption := IntToStr(Secs);
12.       Timer1.Interval := Secs * 1000;
13.     end;
14. end;

[Pe3s]

Thank you for your help

[Pe3s]

I noticed that TTimer when setting the interval: 1000, distorts the time, is there any advice for this?

[KodeZwerg]

I noticed that TTimer when setting the interval: 1000, distorts the time, is there any advice for this?

If you explain what you mean with "distorts time" we can help
TTimer is based on milliseconds (1000 ms = 1 s)
But in general, TTimer is not that precise like a multimedia timer (on Windows) is.

[Pe3s]

I set 20 seconds, the timer counts down from 18, which means it loses 1 second

[KodeZwerg]

Since you do not show how you are doing, use my example and document the place where you think it does fail.

[alpine]

I set 20 seconds, the timer counts down from 18, which means it loses 1 second

In order to sample something (in your case - time in seconds) without distortion, you must sample it with a higher rate than the Nyquist rate. If the highest frequency of the signal is (1/1s=1Hz) then <500ms. Your timer interval must be less than 500.

[Pe3s]

Great, both solutions work. Thank you
Have a nice day