Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Аналог Sleep() для Turbo pascal 7.0

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

Limows256

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста, аналог Sleep() для Pascal

Всего записей: 11 | Зарегистр. 18-07-2013 | Отправлено: 21:53 09-09-2013
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вообще Delay. правда говороят, с ним проблемы на современных машинах, тут есть пример с задержкой по таймеру:
http://en.allexperts.com/q/Pascal-1624/delay.htm

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 08:52 10-09-2013 | Исправлено: A_V, 08:52 10-09-2013
Dmitry

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Точного аналога sleep() для турбо паскаля нет. Если нужно просто сделать задержку на n мс, тогда вышеприведенный пример подойдет. Если же нужен аналог именно sleep() тогда, как вариант, можно попробовать через модуль WinApi (LoadLibrary/GetProcAddress) достучаться до sleep() из kernel32.dll.

Всего записей: 81 | Зарегистр. 24-09-2003 | Отправлено: 09:18 10-09-2013
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dmitry
TP7 вообще для доса, какое там win32api.  
ясно по-моему, что товарищу нужна задержка в мс, а не приостановка потока, которых под дос тоже нет
 
Добавлено:
для win16 там вроде была поддержка, но не думаю что кто-то в здравом уме windows 3.x ставить будет

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 10:37 10-09-2013
Dmitry

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
A_V
Товарищ не уточнял. Я сильно сомневаюсь что он сейчас под досом сидит
А насчет модуля WinApi, каюсь, не помню работает ли он с win32 или был только для win16.
Давно это было, лет 20 назад

Всего записей: 81 | Зарегистр. 24-09-2003 | Отправлено: 10:52 10-09-2013
Limows256

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да нет я не под досом сижу) Просто появилась необходимость под дос написать, а я только под делфи до этого писал, вот и запоролся. Кстати на мой взгляд Windows 3.11 одна из самых адекватных окошек.

Всего записей: 11 | Зарегистр. 18-07-2013 | Отправлено: 11:38 10-09-2013
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dmitry
под dos есть эмуляторы, в отличии от win3.1, ntdvm в винду входит например.. так что под 32-битными виндами дос относительно нормально работает. а с win32 модуль из TP7 работать никак не может, т.к TP7 был выпущен раньше чем win95.

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 11:38 10-09-2013
Limows256

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите глупцу, может что не так делаю, сделал всё как написано в вышеуказанной ссылке, но при запуске получаю ошибку gettime: unknown identifier.

Всего записей: 11 | Зарегистр. 18-07-2013 | Отправлено: 11:55 10-09-2013
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Limows256
uses Dos;
укажи

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 11:57 10-09-2013
Limows256

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо огромное, все заработало.

Всего записей: 11 | Зарегистр. 18-07-2013 | Отправлено: 12:19 10-09-2013
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Аналог Sleep() для Turbo pascal 7.0


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru