Как сделать чтоб во время работы программы при нажатии определенных клавиш изменялось значение некоторых переменных?

@gorus95 · Регистрация: 22.12.2012

Author24 — интернет-сервис помощи студентам

Как сделать чтоб во время работы программы при нажатии определенных клавиш на клавиатуре изменялось значение некоторых переменных?
Например, при нажатии стрелочки вверх переменная а увеличивается на единицу?

Новичок · 07.04.2013, 23:06

gorus95,в модуле CRT есть функция ReadKey,она возвращает символ клавиши которую нажал пользователь, тип функции Char.

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
uses Crt;
var a:Integer;
Key:Char;
begin
if KeyPressed //Проверяем нажата-ли клавиша
then Key:=ReadKey; //Если клавиша нажата в переменную записываем символ клавиши.
if Key=#72 then a:=a+1;//#72 - символ клавиши вверх
end.

@gorus95 · 07.04.2013, 23:39 **[ТС]**

Новичок, спасибо. Но моя программа использует модуль GraphABC, а если подключить еще и Crt тогда вообще работать не хочет. Можно как-то без Crt обойтись? Кажется в модуле GraphABC есть функции для считывания клавиш...
GraphABC и Crt вместе работать не хотят

Новичок · 07.04.2013, 23:41

Сообщение от gorus95

Можно как-то без Crt обойтись? Кажется в модуле GraphABC есть функции для считывания клавиш...

gorus95,не знаю в PascalABC не работаю.

Сообщение от gorus95

Но моя программа использует модуль GraphABC, а если подключить еще и Crt тогда вообще работать не хочет.

Чего это?

@gorus95 · 08.04.2013, 00:01 **[ТС]**

Новичок, модуль для работы с граф. обьектами, рисование

Новичок · 08.04.2013, 00:02

Сообщение от Новичок

Чего это?

Я имел ввиду,почему не работает?

@gorus95 · 08.04.2013, 00:50 **[ТС]**

Новичок, не знаю, но не работает, это факт. ошибки никакой нету, просто запускается и тут же закрываеться

Новичок · 08.04.2013, 00:51

gorus95,а Readln в конце перед end. не ставили?

Добавлено через 15 секунд
Должно помочь.

@gorus95 · 08.04.2013, 20:08 **[ТС]**

Новичок, дело не в паузе перед закрытием окна. программа должна рисовать график ф-ции, работает отлично, но если подключить crt то она закрывается не успев запуститься...

Добавлено через 18 часов 47 минут
задача решена, спасибо

Новые блоги и статьи Все статьи Все блоги /
Осваиваем Kubernetes: Подробная шпаргалка Mr. Docker 15.03.2025 Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .	Лучшие PHP REST API фреймворки Jason-Webb 15.03.2025 Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .	Многопоточность в Java с Project Loom: виртуальные или обычные потоки Javaican 15.03.2025 Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .	Что нового в Swift 6 и особенности миграции mobDevWorks 15.03.2025 Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .	Вопросы на собеседовании по Android mobDevWorks 14.03.2025 По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python py-thonny 14.03.2025 Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .	Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda run.dev 14.03.2025 Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .	Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки NullReferenced 14.03.2025 C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .	smart-agent proper interface settings (2025) jigi33 14.03.2025 Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)	Продвинутые настройки JVM Javaican 14.03.2025 Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .

@gorus95 7 / 7 / 1 Регистрация: 22.12.2012 Сообщений: 173
		1
	Как сделать чтоб во время работы программы при нажатии определенных клавиш изменялось значение некоторых переменных? 07.04.2013, 17:05. Показов 1706. Ответов 8 Метки нет (Все метки) Как сделать чтоб во время работы программы при нажатии определенных клавиш на клавиатуре изменялось значение некоторых переменных? Например, при нажатии стрелочки вверх переменная а увеличивается на единицу? 0

@gorus95 7 / 7 / 1 Регистрация: 22.12.2012 Сообщений: 173
	07.04.2013, 23:39 [ТС]	3
	Новичок, спасибо. Но моя программа использует модуль GraphABC, а если подключить еще и Crt тогда вообще работать не хочет. Можно как-то без Crt обойтись? Кажется в модуле GraphABC есть функции для считывания клавиш... GraphABC и Crt вместе работать не хотят 0

Новичок 1682 / 1096 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	07.04.2013, 23:41	4
	Сообщение от gorus95 Можно как-то без Crt обойтись? Кажется в модуле GraphABC есть функции для считывания клавиш... gorus95,не знаю в PascalABC не работаю. Сообщение от gorus95 Но моя программа использует модуль GraphABC, а если подключить еще и Crt тогда вообще работать не хочет. Чего это? 0

@gorus95 7 / 7 / 1 Регистрация: 22.12.2012 Сообщений: 173
	08.04.2013, 00:01 [ТС]	5
	Новичок, модуль для работы с граф. обьектами, рисование 0

Новичок 1682 / 1096 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	08.04.2013, 00:02	6
	Сообщение от Новичок Чего это? Я имел ввиду,почему не работает? 0

@gorus95 7 / 7 / 1 Регистрация: 22.12.2012 Сообщений: 173
	08.04.2013, 00:50 [ТС]	7
	Новичок, не знаю, но не работает, это факт. ошибки никакой нету, просто запускается и тут же закрываеться 0

Новичок 1682 / 1096 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	08.04.2013, 00:51	8
	gorus95,а Readln в конце перед end. не ставили? Добавлено через 15 секунд Должно помочь. 0

@gorus95 7 / 7 / 1 Регистрация: 22.12.2012 Сообщений: 173
	08.04.2013, 20:08 [ТС]	9
	Новичок, дело не в паузе перед закрытием окна. программа должна рисовать график ф-ции, работает отлично, но если подключить crt то она закрывается не успев запуститься... Добавлено через 18 часов 47 минут задача решена, спасибо 0