| Leo | Дата: Четверг, 18.12.2014, 23:54 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| 1)
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Tag := 1;
Form2.Label1.Caption := Edit1.Text;
Form3.Label2.Caption := Label4.Caption+' : '+Label5.Caption;
Form1.Hide;
Form3.Show;
Timer1.Interval := 3000;
end;
2)
procedure TForm1.Timer1Timer(Sender: TObject);
var cHour,cMin: word;
begin
cHour := HourOf(Now);
cMin := MinuteOf(Now);
if Timer1.Tag = 0 then
begin
if cHour <> Hour then
begin
Hour := cHour;
if Hour <10
then Label1.Caption := '0' + IntToStr(Hour) // 1 час -> 01
else Label1.Caption := IntToStr(Hour);
end;
if cMin <> Min then
begin
Min := cMin;
if min <10
then Label2.Caption := '0' + IntToStr(Min)
else Label2.Caption := IntToStr(Min);
end;
if Label3.Visible
then Label3.Visible := False
else Label3.Visible := True;
end
else
if (cHour = AlarmHour) and (cMin = AlarmMin) then
begin
Form2.Show;
Timer1.Tag := 0;
end;
end;
|
| |
| |
| diamFC | Дата: Пятница, 19.12.2014, 00:33 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| 
Вся блок-схема в архиве. Схема построена с помощью программы diamFC
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
