Скрытый текст
Не обязательно.. данная программа проверяет нажатие двух клавиш и выводит надпись о факте их нажатия. У вас это может быть реакция для управления спрайтом\курсором и т.п.
Допустим, вам нужно определить нажатие одной из пяти клавиш (например 67890). Коды этих клавиш можно поместить в массив (или ячейки памяти) и сравнивать с ними так:
----Код:for i = 1 to 5 : read k(i) : next i data 54, 55, 56, 58, 48 .. if n = k(1) then.. if n = k(2) then... if n = k(3) then... if n = k(4) then... if n = k(5) then... ..
Хотя, более компактно, при использовании массива хранить значения для клавиш в "символьном" виде. Занимает меньше места в памяти и позволяет "на лету" менять "управляющие" клавиши.
При этом для смены управляющий клавиш в программе, достаточно присвоить переменной k$ другую символьную последовательность, например let k$ = "qaopm".Код:let k$ = "67890" .. if chr$ n = k$(1) then.. if chr$ n = k$(2) then.. if chr$ n = k$(3) then.. if chr$ n = k$(4) then.. if chr$ n = k$(5) then.. ; либо так if n = code k$(5) then.. ..
[свернуть]
---------- Post added at 20:53 ---------- Previous post was at 20:40 ----------
Для "высвечивания" только кода нажатой клавиши можно поступить намного проще:
Обьясните, подробно, для чего вам нужен код нажатой клавиши?Код:10 print at 0, 0; code inkey$ ;" " : goto 10







Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
