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

 
 Ответить  Открыть новую тему 
> Асинхронный ввод на Паскале, Изменение хода программы от нажатия клавиш в любое время
сообщение
Сообщение #1





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

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


Добрый день!
Научите как запрограммировать на Паскале:
Например, печатается какой-то символ бесконечно. Нажимается другой символ и начинает печататься нажатый символ.
То есть, при нажатии какого-то символа (в любое время) изменяется ход программы.
Заранее спасибо, Александр.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

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


Функция READKEY Вам в помощь:

Цитата
ReadKey (функция) (модуль Crt)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Читает символ из буфера клавиатуры.

Объявление:
Function ReadKey : Char;

Режим:
Windows, Real, Protected

Замечания:
Символ не отображается на экране.


{ReadKey.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{ Пример программы для функции ReadKey }

Uses Сrt;

Var C : Char;

Begin
WriteLn('Нажмите любую клавишу:');
C:=Readkey;
WriteLn('Вы нажали ', C, ', с кодом ASCII равным ', Ord©, '.');
End.


Или еще пример:
...
Repeat
If KeyPressed then Ch:=ReadKey;
If Ch=#0 then Ch:=ReadKey; {проверка на функциональную клавишу (расширенный код)}
Write(Ch);
Until Ch=#27; {#27 - код нажатия ESC}
...


Сообщение отредактировано: APAL -


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




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