 Простые часы |
| 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";'
|
   |
 
|
  |
Ответов
| Altair |
6.02.2007 10:00
Сообщение
#2
|
 Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Хочу такие часы на рабочий стол себе. Что бы прямо на десктоп рисовалось...
klem4, доделывай давай, раз начал  -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
Сообщений в этой теме
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 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 10.08.2025 16:12 |