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