Програмирование на языке Basic. Федоряка Н.И. - 51 стр.

         DRAW "TA=" + VARPTR$(Big) + "NU70"
         END SUB
              INKEY$ считывает символ с клавиатуры.

         Пример:
         PRINT "Для выхода нажмите Esc..."
         DO
         LOOP UNTIL INKEY$ = CHR$(27) '27 - это ASCII код для клавиши Esc.

         - INKEY$ возвращает нулевую строку символов, если нет символа для
         возврата.
         - Для стандартных клавиш INKEY$ возвращает 1-байтовую строку симво-
         лов,
         содержащую считанный символ.
         - Для расширенных клавиш INKEY$ возвращает 2-байтовую строку сим-
         волов,
         состоящую из символа нуля (ASCII 0) и скан-кода клавиатуры.
               Несложно осуществить не просто движение объекта, а управляемое
         движение.
         Пример 5: Художник (входит в состав примеров QBasic). Управление ху-
         дожников клавишами со стрелками.
               ' Значение для клавиш управления и пробела:
         CONST UP = 72, DOWN = 80, LFT = 75, RGHT = 77
         CONST UPLFT = 71, UPRGHT = 73, DOWNLFT = 79, DOWNRGHT = 81
         CONST SPACEBAR = " "

         ' Null$ это первый байт(символ) 2-байтовой строки символов
         ' для расширенных клавиш (таких, например, как ВВЕРХ и ВНИЗ)
         ' значение которой возвращает INKEY$

         Null$ = CHR$(0)

         ' Plot$ = "" рисование линий; Plot$ = "B" только перемещение
         ' Перемещаемся, но не рисуем линии:
         Plot$ = ""

         PRINT "Use the cursor movement keys to draw lines."
         PRINT "Press the spacebar to toggle line drawing on and off."
         PRINT "Press  to begin. Press q to end the program."

         ' ждем нажатие клавиши для начала рисования
         DO: LOOP WHILE INKEY$ = ""


                                                                             51


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com