Первое знакомство, опрос клавиатуры

@Роботрон · Регистрация: 24.03.2015

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

Всем добрый день. Давно хотел сесть за этот бейсик. поставил q basic v.1.0 работает из виндовс.
Знаком с бейсиком zx spectrum-а.
Подскажите как в q basic сделать опрос клавиатуры? (на спектруме так выглядет if inkey$="1" then ......)
И еще вопросик. А есть тут такое (poke 30000,255) сохранил в ячейку 30000 число 255. Соответственно print peek 30000. напечатал число из памяти по адресу 30000.
Спасибо большое.

echs · 16.10.2015, 15:01

Ответ на
вопрос 1. В QBasic есть такая функция INKEY$
вопрос 2. Это лежит вне сферы моих интересов.
PS.
Тут есть специалисты в 1000 раз умнее меня.
Они ответят на любой вопрос ...

@Quiet Snow · 16.10.2015, 21:22

А есть тут такое (poke 30000,255) сохранил в ячейку 30000 число 255.

Есть, но это если вы знаете что и куда пишете\читаете.
Т.к. в памяти находится ОС, можно ненароком чего попортить.

Пример:

QBasic/QuickBASIC
1
2
3
4
SCREEN 13
DEF SEG = &HA000
POKE 320 * 100 + 160, 43
DEF SEG   ' Сегмент на место

Сообщение от Роботрон

Подскажите как в q basic сделать опрос клавиатуры?

Пример:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
CLS
DO
Kb$ = INKEY$   '  Взяли клавишу из буфера клавиатуры
SELECT CASE LCASE$(Kb$)   '  Проверяем нижний регистр
CASE "a": PRINT "a"   '  Действие 1
CASE "b": PRINT "b"   '  Действие 2
CASE "c": PRINT "c"   '  Действие 3
  CASE ELSE:    '  Для совместимости
END SELECT
LOOP UNTIL Kb$ = CHR$(27)

@STAR WARS · 07.03.2023, 19:33

Переключатель

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
DECLARE SUB BKL1 ()
DECLARE SUB BKL2 ()
DECLARE SUB CTPOKA (C%, B%, A$)
CLS
BKL1
CTPOKA 20, 1, "PROGRAM"
LINE INPUT "QBasic", P$
PRINT P$
BKL2
CTPOKA 30, 1, " STAPT"
DO
LOOP
END
SUB BKL1
DEF SEG = 0
POKE &H417, PEEK(&H417) OR &H41'''''''''40
DEF SEG
END SUB
SUB BKL2
DEF SEG = 0
POKE &H417, PEEK(&H417) AND &HBF
DEF SEG
END SUB
SUB CTPOKA (K1%, K2%, TEXT$)
CS% = CSRLIN
PO% = POS(0)
LOCATE K1%, K2%
PRINT "BBOD"; TEXT$;
LOCATE CS%, PO%
END SUB

Добавлено через 5 минут
Плохо видно
OR &H41''''''''''''''40

@STAR WARS · 20.11.2024, 11:12

QBasic/QuickBASIC
1
2
3
DEF SEG = 0
KHOPKA% = PEEK(&H417)
POKE &H417, (KHOPKA% XOR &H40)

Новые блоги и статьи Все статьи Все блоги /
Квантовые алгоритмы и обработка строк в Q# EggHead 07.06.2025 Квантовые вычисления перевернули наше представление о том, как работать с данными, а Q# стал одним из ключевых языков для разработки квантовых алгоритмов. В традиционых системах мы оперируем битами —. . .	NUnit и C# UnmanagedCoder 07.06.2025 В . NET существует несколько фреймворков для тестирования: MSTest (встроенный в Visual Studio), xUnit. net (более новый фреймворк) и, собственно, NUnit. Каждый имеет свои преимущества, но NUnit. . .	с++ Что нового? russiannick 06.06.2025 Продолжаю обзор dev-cpp5. 11. Посмотрев на проекты, предоставленные нам для обучения, становится видно, что они разные по содержащимся файлам где: . dev обязательно присутствует . cpp/ . c один из них. . .	WebAssembly в Kubernetes Mr. Docker 06.06.2025 WebAssembly изначально разрабатывался как бинарный формат инструкций для виртуальной машины, обеспечивающий высокую производительность в браузерах. Но потенциал технологии оказался гораздо шире - она. . .	Как создать первый микросервис на C# с ASP.NET Core, step by step stackOverflow 06.06.2025 Если говорить простыми словами, микросервисная архитектура — это подход к разработке, при котором приложение строится как набор небольших, слабо связанных сервисов, каждый из которых отвечает за. . .
Рисование коллайдеров Box2D v2 на Three.js с помощью порта @box2d/core 8Observer8 06.06.2025 Используется порт Box2D v2 под названием @box2d/ core - пакет NPM. Загрузил документацию Box2D v2 на Netlify: https:/ / box2d-v2-docs. netlify. app/ Документацию Box2D v2 можно скачать с официального. . .	Как создать стек в Python AI_Generated 05.06.2025 Как архитектор с более чем десятилетним опытом работы с Python, я неоднократно убеждался, что знание низкоуровневых механизмов работы стеков дает конкурентное преимущество при решении сложных задач. . . .	Server-Sent Events (SSE) в Node.js run.dev 05.06.2025 Потоковая передача данных с сервера прямо в браузер стала повседневной потребностью - от биржевых графиков и спортивных трансляций до чатов и умных дашбордов. Много лет разработчики полагались на. . .	Создаем RESTful API на Golang с Fiber golander 04.06.2025 Я перепробовал десятки фреймворков для создания RESTful API за последние годы, и когда впервые столкнулся с Fiber, понял, что это совсем другой уровень. Нет, я не собираюсь рассказывать сказки о. . .	Как работать с куки в ASP.NET Core UnmanagedCoder 04.06.2025 Когда я впервые начал работать с куки в ASP. NET Core, меня поразило, насколько отличается работа с ними от классического ASP. NET. В Core все стало более декомпозированным - больше нет удобного. . .

@Роботрон 0 / 0 / 0 Регистрация: 24.03.2015 Сообщений: 2

	Первое знакомство, опрос клавиатуры 16.10.2015, 13:27. Показов 2824. Ответов 4 Метки нет (Все метки) Всем добрый день. Давно хотел сесть за этот бейсик. поставил q basic v.1.0 работает из виндовс. Знаком с бейсиком zx spectrum-а. Подскажите как в q basic сделать опрос клавиатуры? (на спектруме так выглядет if inkey$="1" then ......) И еще вопросик. А есть тут такое (poke 30000,255) сохранил в ячейку 30000 число 255. Соответственно print peek 30000. напечатал число из памяти по адресу 30000. Спасибо большое. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	16.10.2015, 15:01
	Ответ на вопрос 1. В QBasic есть такая функция INKEY$ вопрос 2. Это лежит вне сферы моих интересов. PS. Тут есть специалисты в 1000 раз умнее меня. Они ответят на любой вопрос ... 2

Первое знакомство, опрос клавиатуры

Решение