Оператор INKEY$

@Hagrael · Регистрация: 07.01.2010

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

Кто-нибудь может мне объяснить, что это такое? А то в учебнике непонятно написано. Я понял, что это оператор, следящий за нажатыми клавишами. Но как он работает?
Я пишу

PureBasic
1
2
3
4
cls
input "Write anything ", x
a$=inkey$
if a$="0; 60" then print "A"

Но он мне выдаёт "Write anything",я нажимаю F2, а он ничего не делает! Заранее благодарен за помощь.

@Yurii_74 · 11.03.2010, 09:01

Попробуйте выводить на экран значения a$. Для функциональных клавиш и стрелок вроде бы формируется два кода, соответственно требуется два вызова INKEY$. Также лучше зациклить ввод символов и их вывод на экран.

@кот Бегемот · 11.03.2010, 09:20

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

Кто-нибудь может мне объяснить, что это такое? А то в учебнике непонятно написано. Я понял, что это оператор, следящий за нажатыми клавишами. Но как он работает?
Я пишу

PureBasic
1
2
3
4
cls
input "Write anything ", x
a$=inkey$
if a$="0; 60" then print "A"

Но он мне выдаёт "Write anything",я нажимаю F2, а он ничего не делает! Заранее благодарен за помощь.

оператор inkey$ считывает 1 сигнал от нажатой клавиши. Например, он может остановить программу, если вы напишете выполнение цикла до нажатия клавиши, он может выдать вам какое-то действие, если вы нажмёте клавишу, например, что-то напечатать (как у вас)
Но! Если события не произошло, то он ничего вам не выдаст, потому что, как бы медленно ни работал Бейсик, он всё равно выполняет миллионы операций в секунду и не станет ждать вас. Поэтому программа ваша написана безграмотно, ничего печатать она не стала бы, даже если бы оператор if вы написали бы правильно, а не так как у вас.

PureBasic
1
2
3
4
cls
input "Write anything ", x 'что вы здесь вводите и зачем, если нигде не используете?
a$=inkey$ 'эта команда сама по себе вам ничего не даст, потому что вы не успеете нажать клавишу, а комп уже перескочит через эту команду
if a$="0; 60" then print "A" ' что за странное условие: if a$="0; 60"?

Это input ждёт нажатия, а к inkey$ надо возвращать программу, например, циклом do loop

Добавлено через 10 минут

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

Попробуйте выводить на экран значения a$. Для функциональных клавиш и стрелок вроде бы формируется два кода, соответственно требуется два вызова INKEY$. Также лучше зациклить ввод символов и их вывод на экран.

Не пишите глупостей, если не знаете язык

@Yurii_74 · 11.03.2010, 17:08

Сообщение от кот Бегемот

Не пишите глупостей, если не знаете язык

Не по теме:

:D То, что я его давно не использовал еще не значит того, что я его не знаю.
Но если бы он все это зациклил, при нулевом значении тут же еще раз делал a$=inkey$ внутри цикла и распечатывал, то увидел бы вполне понятный интерпретируемый результат. Разве нет?
Про стрелки действительно подзабыл. Там значения где-то в районе 35-50.

@кот Бегемот · 11.03.2010, 17:25

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

Не по теме:

:D То, что я его давно не использовал еще не значит того, что я его не знаю.

Но ведь 2*2 -то вы хорошо помните, значит Бейсик, всё же, не так хорошо знали...
вот пример использования inkey$
Программа останавливается по нажатию пробела

PureBasic
1
2
3
4
DO
   a$ = INKEY$
   LOOP UNTIL a$ = CHR$(32)
   PRINT "yes"

@Yurii_74 · 11.03.2010, 17:46

В цикл можно вставить что-то наподобие этого:

PureBasic
1
PRINT ASC(a$)

Будет красиво и понятно (если я снова ничего не напутал

).

@кот Бегемот · 11.03.2010, 17:54

да, но это команду надо писать после цикла, иначе прога работать не будет, а так выведется 32 - код клавиши пробел

@Yurii_74 · 11.03.2010, 18:40

Не, Бегемот. Ты не совсем прав.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
DO
 a$ = INKEY$
 PRINT a$
 IF a$ <> "" THEN
   PRINT "ASC(a$) = "; ASC(a$)
   PRINT LEN(a$)
   FOR i = 1 TO LEN(a$)
     PRINT "ASC(a$("; i; "))="; ASC(MID$(a$, i, 1))
   NEXT i
 END IF
 SLEEP (1000)
LOOP UNTIL a$ = CHR$(13)

Блин. Все же стрелки с нуля начинаются!
CHR$(13) - Enter.

@кот Бегемот · 11.03.2010, 19:04

я говорил о своём примере, о том, что в мой цикл эту команду вставить нельзя.
а управляющие клавиши имеют расширенный код, но два inkey$ там всё равно не надо, достаточно выделить код.

@Yurii_74 · 11.03.2010, 19:08

Сообщение от кот Бегемот

я говорил о своём примере

Не по теме:

Дак это он и есть... почти :-[
Только в таком виде можно сразу проверить что чему соответствует:).

@кот Бегемот · 11.03.2010, 19:17

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

Не по теме:

Дак это он и есть... почти :-[
Только в таком виде можно сразу проверить что чему соответствует:).

не-е-е
в моём примере не пойдёт, там нет проверки на ""

@Hagrael · 12.03.2010, 09:05 **[ТС]**

Если честно, то ваших примеров я не понял ваших примеров. Как его использовать? Ведь если не писать "input" (ну или do...loop), то программа по завершении инструкций закончится! Или писать

PureBasic
1
2
3
4
5
CLS
let a$=inkey$
do while a$="0; 75"
print "Yes"
loop

Так писать? Про то, как писать inkey$="" я не очень понял (разве не надо просто писать код кнопки в кавычках?).

Добавлено через 13 минут
А как переключать с русского на английский?

@кот Бегемот · 12.03.2010, 10:23

давайте проще: что вы хотите получить? Или вам просто хочется посмотреть как inkey$ работает?
переключение языка работает если у вас драйвер русских букв есть, тогда, например правый и левый ctrl+shift

@Hagrael · 12.03.2010, 17:57 **[ТС]**

Мне надо увидеть, как он работает, чтобы знать.

@кот Бегемот · 12.03.2010, 18:34

программу не переписывайте, а копируйте с экрана, тогда в Бейсике непонятные значки станут русскими буквами

PureBasic
1
2
3
4
5
6
7
8
9
10
11
CLS
LOCATE 10, 20
PRINT "Є®Ј¤  * ¤®Ґбв б¬®ваҐвм *  жЁдҐаЄЁ, * ¦¬ЁвҐ Їа®ЎҐ«"
DO
a$ = INKEY$
n = n + 1
LOCATE 12, 30
PRINT n
LOOP UNTIL a$ = CHR$(32)
LOCATE 14, 30
PRINT "а Ў®в  § Є®*зҐ* "

@Hagrael · 16.03.2010, 08:23 **[ТС]**

Что за CHR$ ?

@кот Бегемот · 16.03.2010, 08:27

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

Что за CHR$ ?

Вообще-то, прежде, чем пытаться составлять программы, нормальные люди изучают все операторы и функции языка. Откройте справку в QBasic и познакомьтесь с этими командами, тогда не надо будет бегать на форум по каждому пустяку и заставлять нас читать лично вам лекции по Бейсику.

@yevrowl · 08.05.2022, 16:53

Прошу подсказать, почему не работает конструкция:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
SELECT CASE INKEY$
    CASE CHR$(49): PRINT "Key 1"
    CASE CHR$(50): PRINT "Key 2"
    CASE CHR$(51): PRINT "Key 3"
    CASE CHR$(52): PRINT "Key 4"
    CASE CHR$(53): PRINT "Key 5"
    CASE CHR$(27): PRINT "Key Esc"
END SELECT

@Quiet Snow · 08.05.2022, 18:12

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

Прошу подсказать, почему не работает конструкция

Где? На QBasic? QB? FB? QB64?

Только что на QB4 забил - работает(в цикле само собой). Но сделано криво, я бы так делать не стал.

P.S: В чём проблема создать новую тему? Зачем поднимать тему 12 летней давности?

Добавлено через 11 минут

FreeBASIC Compiler - Version 1.00.0 (09-14-2014), built for win32 (32bit)

Тоже с ходу работает, проверил. Консольный тип сборки. И там и там работает.

@yevrowl · 08.05.2022, 18:57

Сообщение от Quiet Snow

Где? На QBasic? QB? FB? QB64?

Только что на QB4 забил - работает(в цикле само собой).

Нюанс с циклом я упустил, теперь засунул в Do Loop и заработало. Спасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Yurii_74 paladin 286 / 187 / 7 Регистрация: 25.02.2009 Сообщений: 589
	11.03.2010, 09:01
	Попробуйте выводить на экран значения a$. Для функциональных клавиш и стрелок вроде бы формируется два кода, соответственно требуется два вызова INKEY$. Также лучше зациклить ввод символов и их вывод на экран. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	11.03.2010, 17:54
	да, но это команду надо писать после цикла, иначе прога работать не будет, а так выведется 32 - код клавиши пробел 1

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	11.03.2010, 19:04
	я говорил о своём примере, о том, что в мой цикл эту команду вставить нельзя. а управляющие клавиши имеют расширенный код, но два inkey$ там всё равно не надо, достаточно выделить код. 1

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	12.03.2010, 10:23
	давайте проще: что вы хотите получить? Или вам просто хочется посмотреть как inkey$ работает? переключение языка работает если у вас драйвер русских букв есть, тогда, например правый и левый ctrl+shift 0

@Hagrael БТР - мой друг 333 / 277 / 47 Регистрация: 07.01.2010 Сообщений: 1,932
	12.03.2010, 17:57 [ТС]
	Мне надо увидеть, как он работает, чтобы знать. 0

@Hagrael БТР - мой друг 333 / 277 / 47 Регистрация: 07.01.2010 Сообщений: 1,932
	16.03.2010, 08:23 [ТС]
	Что за CHR$ ? 0