 Часы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Pascal |
 8.05.2004 14:56
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 5 Репутация:  0   |
Подскажите, как сделать часы на Паскале, лучше со стрелками. Очень надо!
 |
   |
 
|
  |
Ответов
| virt |
8.05.2004 16:31
Сообщение
#2
|
 Знаток  Группа: Пользователи Сообщений: 419 Пол: Мужской Репутация: 6 |
тебе татушка нужна???
а так есть системный таймер : Код var Timer:longint absolute $0:$046c; по этому адресу ~ 18.2 раза в секунду увеличивается значение на 1 (точнее 1000/55 ~= 18.18...). Можешь отслеживать изменения и каждые 18 увеличений прорисовывать новое положение стрелок. Не забудь каждые 1620 увеличений счетчика (90 секунд) ,корректировать значение часов на +2 сек. Но это теория ,может тебя именно графическая реализация интересовала? Сообщение отредактировано: volvo - 22.01.2005 11:36 -------------------- |
|
|
|
Сообщений в этой теме
Pascal Часы 8.05.2004 14:56
Serega Если все лишнее убрать, то получится то, что тебе ... 8.05.2004 21:31 Pascal Serega
Подскажи, где можно взять модуль dos. 9.05.2004 15:49 trminator Модуль DOS -- встроенный модуль Паскаля (в Borland... 9.05.2004 18:16 Pascal Спасибо, у меня ещё один вопрос: где-нибудь можно ... 10.05.2004 10:44 HelpAusHeaven Какие именно тебе нужны исходники?
Тебе же привели... 11.05.2004 2:53 Pascal Часы с этим кодом у меня бегают как бешеные. 11.05.2004 14:09 BlackShadow А ты им успокоительное синсталлируй :)
Пардон за... 11.05.2004 14:36 virt Pascal
а ты перед gettime поставь delay(100... 11.05.2004 15:58 BlackShadow virt, а я бы Delay и не советовал. Работает он сей... 11.05.2004 16:26 FreeMan вместа дэлая юзай системный таймер по адресу ... 11.05.2004 16:40 Pascal Ну вроде заработало.
Спасибо всем!
Тему можно ... 11.05.2004 20:43 Человечище Нет!!!
Тему закрывать нельзя.
Может ... 19.05.2004 16:11 Atos Для 1. надо воспользоваться тем фактом, что 11 точ... 22.05.2004 7:32 Гость а может и мне поможете? у нас в школе началось про... 14.03.2007 20:05 Артемий2
Но он у тебя каждый раз должен просто отсчет впер... 14.03.2007 20:26
Артемий2 немного подделал по твоему наброску..Если не очень... 14.03.2007 21:22 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 6:49 |