1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Vcl.Samples.Gauges,unit3, Gauges;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label7: TLabel;
Label3: TLabel;
Label4: TLabel;
Label1: TLabel;
ProgressBar1: TProgressBar;
Gauge1: TGauge;
Button1: TButton;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Procedure ZapuskTimer;
{ Public declarations }
end;
var
Form1: TForm1;
TimeVal : TDateTime = 0;
implementation
{$R *.dfm}
// Процедура для загрузки ограничений ------------------------------------------
procedure LoadOgrFile;
begin
AssignFile (FileLoadOgr,'ogran.txt');
Reset (FileLoadOgr); // Открываю файл для чтения
Readln (FileLoadOgr, LOgr[0]); // Загружаю устанленные часы ограничения
Readln (FileLoadOgr, LOgr[1]); // Загружаю устанленные минуты ограничения
CloseFile (FileLoadOgr); // Закрываю файл
Form1.Label7.Caption := String(LOgr[0]) + ':' + String(LOgr[1])+':00';
end;
//==============================================================================
//На выход функции количество секунд
Function TimeToInteger(T:TDateTime):Integer;
Var
h,m,s,ms : Word;
Begin
DecodeTime(T,h,m,s,ms);
Result:=s+(m+h*60)*60;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.Show;
end;
Procedure TForm1.ZapuskTimer;
Begin
LoadOgrFile;
//Выключаем таймер.
Timer1.Enabled := False;
//Задаём интервал
Period := StrToTime(Label7.Caption);
//Определяем конечное время - оно на Period большее текущего времени.
TimeVal := Time + Period;
//Показываем начальное время.
Label1.Caption := FormatDateTime('hh:mm:ss', Period);
//Начальные значения в ProgressBar1
ProgressBar1.Max:=0;
ProgressBar1.Max:=TimeToInteger(Period);
ProgressBar1.Position:=0;
//////////////////////////////////////////////////////////
Gauge1.MaxValue:=TimeToInteger(Period);
/////////////////////////////////////////////
//Включаем таймер.
Timer1.Enabled := True;
end;
procedure TForm1.FormCreate(Sender: TObject);
var Period : TDateTime;
begin
ZapuskTimer;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Temp : TDateTime;
begin
//Узнаём оставшееся время.
Temp := TimeVal - Time;
//Отслеживаем момент, когда время истечёт.
if Temp <= 0 then begin
//Останавливаем таймер.
Timer1.Enabled := False;
//Показываем конечное оставшееся время.
Label1.Caption := FormatDateTime('hh:nn:ss', 0);
Timer1.Enabled:=False;
ShowMessage('bym');
//Здесь в виде реакции на завершение интервала, можно выполнить
//какой-то код или вызвать какую-нибудь процедуру
//...
//...
//...
//Выходим.
Exit;
end;
//Показыавем оставшееся время.
Label1.Caption := FormatDateTime('hh:nn:ss', Temp);
ProgressBar1.Position:=ProgressBar1.Max-TimeToInteger(Temp);
Gauge1.Progress:=Gauge1.MaxValue-TimeToInteger(Temp);
end;
end. |
(
Сообщение было отмечено shilovec5377 как решение
