IPB
ЛогинПароль:

> Простые часы
klem4
сообщение 4.02.2007 18:02
Сообщение #1


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Решил сделать часы на паскале, никогда не делал, ну не знаю просто захотелось) вот только мне кажется в одном месте я прощитался, решив использовать задержку, наверняка ведь на многих машинах Delay(1000) не будет = 1с.

Ну как бы то нибыло вот что получилось, щас сделаю версию уже с "ручной" проверкой, надо ли перерисовывать стрелки.

Прикрепленное изображение


Прикрепленные файлы
Прикрепленный файл  clock_beta1.pas ( 4.14 килобайт ) Кол-во скачиваний: 343


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
klem4   Простые часы   4.02.2007 18:02
volvo   Андрей, а слабО переписать это под Windows, и испо...   4.02.2007 18:20
volvo   Вот небольшой набросок тех же самых часов, написан...   5.02.2007 12:28
Bokul   У меня есть. :) Я за API, только почему без ООП...   6.02.2007 0:17
volvo   Потому, что идеология работы с WinAPI подразумевае...   6.02.2007 0:28
Archon   Очень интересно! Надеюсь тема не заглохнет. P...   6.02.2007 1:18
Bokul   Ну да, там все просто. "Пропускает...   6.02.2007 1:30
volvo   :yes2: Именно не обрабатывает... Просто не реагир...   6.02.2007 1:45
Bokul   Ну это понятно. Интересует как и куда ты планир...   6.02.2007 2:21
volvo   Интересует как и куда ты планируешь выводить часы ...   6.02.2007 2:30
Bokul   Ну чтобы так просто, я не вижу, не знаю способа...   6.02.2007 2:39
volvo   :blink: :blink: Bokul, выдыхай... И больше эту тр...   6.02.2007 2:42
Bokul   English version please.. :)   6.02.2007 2:45
volvo   SetWindowRgn "Is that better?" © ...   6.02.2007 2:47
Altair   Хочу такие часы на рабочий стол себе. Что бы прямо...   6.02.2007 10:00


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.08.2025 17:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"