Нажатие двух клавиш враз - QBasic

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Нажатие двух клавиш враз»

textual
Листинг программы
CLS
KEY 15, CHR$(0) + CHR$(&H1F)
ON KEY(15) GOSUB s1
KEY(15) ON
KEY 16, CHR$(0) + CHR$(&H20)
ON KEY(16) GOSUB d1
KEY(16) ON
KEY 17, CHR$(0) + CHR$(&H20)
ON KEY(17) GOSUB d2
KEY 18, CHR$(0) + CHR$(&H1F)
ON KEY(18) GOSUB s2
 
DO WHILE INKEY$ <> CHR$(27)
LOOP
 
s1:
CLS
LOCATE 2, 2
PRINT "sss"
KEY(15) OFF
KEY(16) OFF
KEY(17) ON
FOR i = 1 TO 5
    t = TIMER
    WHILE t = TIMER
    WEND
NEXT i
KEY(17) OFF
KEY(15) ON
KEY(16) ON
RETURN
 
s2:
LOCATE 2, 2
PRINT "sss"
RETURN
 
d1:
CLS
LOCATE 2, 20
PRINT "ddd"
KEY(15) OFF
KEY(16) OFF
KEY(18) ON
FOR i = 1 TO 5
    t = TIMER
    WHILE t = TIMER
    WEND
NEXT i
KEY(18) OFF
KEY(15) ON
KEY(16) ON
RETURN
RETURN
 
d2:
LOCATE 2, 20
PRINT "ddd"
RETURN

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы