Ну как бы то нибыло вот что получилось, щас сделаю версию уже с "ручной" проверкой, надо ли перерисовывать стрелки.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| klem4 |
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Решил сделать часы на паскале, никогда не делал, ну не знаю просто захотелось) вот только мне кажется в одном месте я прощитался, решив использовать задержку, наверняка ведь на многих машинах Delay(1000) не будет = 1с.
Ну как бы то нибыло вот что получилось, щас сделаю версию уже с "ручной" проверкой, надо ли перерисовывать стрелки. Прикрепленные файлы
clock_beta1.pas ( 4.14 килобайт )
Кол-во скачиваний: 598-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 Простые часы 4.02.2007 22:02
volvo Андрей, а слабО переписать это под Windows, и испо… 4.02.2007 22:20
volvo Вот небольшой набросок тех же самых часов, написан… 5.02.2007 16:28
Bokul
У меня есть. :) Я за API, только почему без ООП… 6.02.2007 4:17
volvo Потому, что идеология работы с WinAPI подразумевае… 6.02.2007 4:28
Archon Очень интересно! Надеюсь тема не заглохнет.
P… 6.02.2007 5:18
Bokul
Ну да, там все просто.
"Пропускает… 6.02.2007 5:30
volvo :yes2: Именно не обрабатывает... Просто не реагир… 6.02.2007 5:45
Bokul
Ну это понятно. Интересует как и куда ты планир… 6.02.2007 6:21
volvo Интересует как и куда ты планируешь выводить часы … 6.02.2007 6:30
Bokul
Ну чтобы так просто, я не вижу, не знаю способа… 6.02.2007 6:39
volvo :blink: :blink: Bokul, выдыхай... И больше эту тр… 6.02.2007 6:42
Bokul
English version please.. :) 6.02.2007 6:45
volvo SetWindowRgn
"Is that better?" © … 6.02.2007 6:47
Altair Хочу такие часы на рабочий стол себе. Что бы прямо… 6.02.2007 14:00![]() ![]() |
|
Текстовая версия | 23.11.2025 6:33 |