User Tag List

Показано с 1 по 10 из 19

Тема: Обнулить DATA в BASIC

Древовидный режим

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #16

    Регистрация
    26.09.2009
    Адрес
    г. Красноярск
    Сообщений
    3,198
    Спасибо Благодарностей отдано 
    40
    Спасибо Благодарностей получено 
    128
    Поблагодарили
    103 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Скрытый текст

    Цитата Сообщение от JeRrS Посмотреть сообщение
    Если верить вашей программе получается я все IF N - ??? должен буду заполнить? от 32 до 127
    Не обязательно.. данная программа проверяет нажатие двух клавиш и выводит надпись о факте их нажатия. У вас это может быть реакция для управления спрайтом\курсором и т.п.
    Допустим, вам нужно определить нажатие одной из пяти клавиш (например 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...
    ..
    ----
    Хотя, более компактно, при использовании массива хранить значения для клавиш в "символьном" виде. Занимает меньше места в памяти и позволяет "на лету" менять "управляющие" клавиши.
    Код:
    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..
    ..
    При этом для смены управляющий клавиш в программе, достаточно присвоить переменной k$ другую символьную последовательность, например let k$ = "qaopm".
    [свернуть]

    ---------- Post added at 20:53 ---------- Previous post was at 20:40 ----------

    Цитата Сообщение от JeRrS Посмотреть сообщение
    получается я все IF N - ??? должен буду заполнить? от 32 до 127 ?
    Для "высвечивания" только кода нажатой клавиши можно поступить намного проще:
    Код:
    10 print at 0, 0; code inkey$ ;"  " : goto 10
    Обьясните, подробно, для чего вам нужен код нажатой клавиши?
    Последний раз редактировалось null_device; 17.11.2011 в 17:15.
    Когда есть, но не знаешь где - это все равно, что нету.

  2. #16
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Орион-128: BASIC
    от ivagor в разделе Орион
    Ответов: 34
    Последнее: 05.12.2025, 05:31
  2. Подключение дисковода 5,25'' YE Data YD-380C
    от Kuper в разделе Внешние накопители
    Ответов: 17
    Последнее: 07.08.2022, 17:37
  3. laser basic
    от johnny в разделе Программирование
    Ответов: 32
    Последнее: 17.02.2014, 22:57
  4. Программы на BASIC
    от form в разделе ДВК, УКНЦ
    Ответов: 14
    Последнее: 17.04.2010, 15:41

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •