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

@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 минут
задача решена, спасибо

Новые блоги и статьи Все статьи Все блоги /
Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .	Apache Airflow для оркестрации и автоматизации рабочих процессов Mr. Docker 16.03.2025 Управление сложными рабочими процессами — одна из главных головных болей инженеров данных и DevOps-специалистов. Представьте себе: каждый день нужно запускать десятки скриптов в определенной. . .	Оптимизация приложений Java для ARM Javaican 16.03.2025 ARM-архитектура переживает настоящий бум популярности в технологическом мире. Когда-то воспринимаемая исключительно как решение для мобильных устройств и встраиваемых систем, сегодня она штурмует. . .	Управление состоянием в Vue 3 с Pinia и Composition API Reangularity 16.03.2025 Когда я начал работать с Vue несколько лет назад, мне казалось достаточным использовать простую передачу данных через props и события между компонентами. Однако уже на среднем по сложности проекте. . .
Введение в DevSecOps: основные принципы и инструменты Mr. Docker 16.03.2025 DevSecOps - это подход к разработке программного обеспечения, который объединяет в себе принципы разработки (Dev), безопасности (Sec) и эксплуатации (Ops). Суть подхода заключается в том, чтобы. . .	GitHub Actions vs Jenkins: Сравнение инструментов CI/CD Mr. Docker 16.03.2025 В этой битве за эффективность и скорость выпуска программных продуктов ключевую роль играют специализированные инструменты. Два гиганта в этой области — GitHub Actions и Jenkins — предлагают разные. . .	Реактивное программирование с Kafka Stream и Spring WebFlux Javaican 16.03.2025 Реактивное программирование – это программная парадигма, ориентированная на потоки данных и распространение изменений. Она позволяет выражать статические или динамические потоки данных и. . .	Простая нейросеть на КуМир: Учебное пособие по созданию и обучению нейронных сетей EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .

@gorus95 7 / 7 / 1 Регистрация: 22.12.2012 Сообщений: 173
		1
	Как сделать чтоб во время работы программы при нажатии определенных клавиш изменялось значение некоторых переменных? 07.04.2013, 17:05. Показов 1708. Ответов 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