| Leo | Дата: Суббота, 03.01.2015, 09:43 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| 1) procedure TForm1.FormCreate(Sender: TObject);
begin
AlarmHour:= 0;
AlarmMin := 0;
Hour := HourOf(Now);
Min := MinuteOf(Now);
if Hour < 10
then form1.Label1.Caption := '0'+IntToStr(Hour)
else form1.Label1.Caption := IntToStr(Hour);
if Min < 10
then form1.Label2.Caption := '0'+IntToStr(Min)
else form1.Label2.Caption := IntToStr(Min);
end;
2) 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;
3) procedure TForm1.HourUpClick(Sender: TObject);
begin
inc(AlarmHour);
if AlarmHour>23 then AlarmHour:=0;
if AlarmHour < 10
then Label4.Caption := '0' + IntToStr(AlarmHour)
else Label4.Caption := IntToStr(AlarmHour);
end;
4) procedure TForm1.HourDownClick(Sender: TObject);
begin
if AlarmHour > 0 then dec(AlarmHour)
else AlarmHour:=23;
if AlarmHour < 10
then Label4.Caption := '0' + IntToStr(AlarmHour)
else Label4.Caption := IntToStr(AlarmHour);
end;
5) procedure TForm1.MinUpClick(Sender: TObject);
begin
inc(AlarmMin);
if AlarmMin > 59 then AlarmMin := 0;
if AlarmMin < 10
then Label5.Caption := '0' + IntToStr(AlarmMin)
else Label5.Caption := IntToStr(AlarmMin);
end;
6) procedure TForm1.MinDownClick(Sender: TObject);
begin
if AlarmMin > 0 then dec(AlarmMin)
else AlarmMin := 59;
if AlarmMin < 10
then Label5.Caption := '0' + IntToStr(AlarmMin)
else Label5.Caption := IntToStr(AlarmMin);
end;
|
| |
| |
| diamFC | Дата: Суббота, 03.01.2015, 10:37 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Каждая из ваших процедур занимает меньше 30 строк кода. Вы можете сами бесплатно построить себе блок-схему с помощью программы DiamFC. Ссылка для скачивания тут:
http://diamfc.ucoz.ru/load/0-0-0-1-20
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
