|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.03.2014, 12:21 | #1 |
Регистрация: 27.03.2014
Сообщений: 5
|
Есть вопрос по часам с кукушкой
Значится так, при реализации часов с кукушкой(Pascal) возникла проблема.
вот код таймера по которому при наступлении нового часа активируется таймер кукушки и присвоение переменной kuk значения часа, для того что бы кукушка знала сколько ей кукукать procedure TForm1.Timer1Timer(Sender: TObject); begin DrawArrows(ClWhite); DecodeTime(Time, Hour, min, sec, msec); HourAngle:=(Hour mod 12) / 12 *(2*pi); MinAngle:=min / 60 * (2* Pi); SecAngle:=sec/ 60 *(2*pi); DrawArrows(clRed); if (min=0)and(sec=0) then begin duc:=hour; kuk:=duc; Timer3.Enabled:=true; tic:=0; end; но кукушка не кукукает |
27.03.2014, 13:23 | #2 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
жуткий код..
не могу понять, у Вас в срабатывании кукушки стоит Цитата:
|
|
27.03.2014, 14:19 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
чуток переработал ваш проект.
вот переделанная форма Unit1: unit1kukushka.rar |
27.03.2014, 14:45 | #4 |
Регистрация: 27.03.2014
Сообщений: 5
|
|
27.03.2014, 14:49 | #5 | |
Регистрация: 27.03.2014
Сообщений: 5
|
Цитата:
|
|
27.03.2014, 15:03 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Часы с кукушкой | sobrit | Visual C++ | 2 | 29.04.2012 16:51 |
Есть вопрос! | ne4aJIb | Помощь студентам | 9 | 01.10.2008 13:40 |
Есть вопрос? | Makarov | Общие вопросы Delphi | 4 | 18.01.2008 12:52 |