Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 16

Тема: Функция ATTR (x,y) на бейсике.

  1. #1

    По умолчанию Функция ATTR (x,y) на бейсике.

    Вот вопрос:
    10 FLASH 1:PAPER 3:1NK 7:BRIGHT 0
    20 PRINT AT 10,12;" "
    30 PRINT ATTR (10,12)
    ответ:159
    подскажите а как наоборот,у меня есть цифра 159,как узнать что
    FLASH= 1:PAPER =3:1NK =7

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

  3. #2

    По умолчанию

    разделить число на 8 - остаток = INK, еще на 8 - остаток = Paper, остальное если не 0, то либо Flash=1, либо Bright=1, по обстоятельствам

  4. #3
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    9,762
    Благодарностей: 3319

    По умолчанию

    Цитата Сообщение от женя999 Посмотреть сообщение
    Вот вопрос:
    10 FLASH 1:PAPER 3:1NK 7:BRIGHT 0
    20 PRINT AT 10,12;" "
    30 PRINT ATTR (10,12)
    ответ:159
    подскажите а как наоборот,у меня есть цифра 159,как узнать что
    FLASH= 1:PAPER =3:1NK =7
    Побитово проанализировать полученное число.

  5. #4

    По умолчанию

    Цитата Сообщение от Titus Посмотреть сообщение
    Побитово проанализировать полученное число.
    На бейсике это очень очень медленно наверно будет.
    Скажите ведь эта 159 где то хранится,т.е. и если я в эту ячейку занесу другую цифру (другой цвет)
    5 poke YYYY,159
    10 print at 11,12;"X"
    то должно напечатать "Х" определённого цвета (ink paper).
    и мне не надо будет указывать ink и paper в бейсике.

    Можно так ?

  6. #5
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    9,762
    Благодарностей: 3319

    По умолчанию

    poke 23693, n

  7. Этот пользователь поблагодарил Titus за это полезное сообщение:
    женя999 (22.09.2011)

  8. #6
    Activist Аватар для Soplik
    Регистрация
    02.04.2005
    Адрес
    Минск
    Сообщений
    378
    Благодарностей: 8

    По умолчанию

    А можно и по-другому!
    Заранее заготовить четыре таблички по 256 байт.
    В первой -- какой Ink будет с этим Attr, во второй -- Paper, третьей -- Bright, четвертой -- Flash.
    Взять четыре переменные, обозвать их ink, paper, flash и bright.
    Сделать LET ink=<адрес первой таблички> и т. д.
    И теперь PEEK (ink+A) как раз будет цветом чернил!
    Сферический ламер в вакууме

  9. #7

    По умолчанию

    Цитата Сообщение от женя999 Посмотреть сообщение
    Вот вопрос:
    10 FLASH 1:PAPER 3:1NK 7:BRIGHT 0
    20 PRINT AT 10,12;" "
    30 PRINT ATTR (10,12)
    ответ:159
    подскажите а как наоборот,у меня есть цифра 159,как узнать что
    FLASH= 1:PAPER =3:1NK =7
    к примеру
    let p=твой аттрибут
    let ink=p and 7
    let paper=(p/8)and 7
    let bright=(p/64)and 1
    let flash=(p/128)and 1
    както так
    С уважением,
    Jerri / Red Triangle.
    [02.05.2014] не забудь этот день. Чубайс должен умереть. Dixi.
    [l'Abbey des morts TSEvo EV...5%] kiwi кошелек +79178162712

  10. #8
    Activist Аватар для Soplik
    Регистрация
    02.04.2005
    Адрес
    Минск
    Сообщений
    378
    Благодарностей: 8

    По умолчанию

    Это будет повеселей моих табличек.

    ---------- Post added at 19:15 ---------- Previous post was at 19:14 ----------

    Но стоп! Разве в Zx Basic-е по-нормальному выполняются логические команды?
    Сферический ламер в вакууме

  11. #9
    Veteran Аватар для Destr
    Регистрация
    26.03.2008
    Адрес
    Питкяранта
    Сообщений
    1,420
    Благодарностей: 640

    По умолчанию

    Цитата Сообщение от Soplik Посмотреть сообщение
    Но стоп! Разве в Zx Basic-е по-нормальному выполняются логические команды?
    Если нет, то типа такого.

    let p=аттрибут
    let ink=p - (128*(p>128))
    let ink=ink - (64*(ink>64))
    let ink=ink - (32*(ink>32))
    let ink=ink - (16*(ink>16))
    let ink=ink - (8*(ink>8))
    let paper=INT(p/8)
    let paper=paper - (128*(paper>128))
    let paper=paper - (64*(paper>64))
    let bright=INT(p/64)
    letbright=bright - (128*(bright>128))
    let flash=INT(p/128)

    Но конечно это медленный способ, массив быстрей будет, а самое быстрое - таблички.
    Можно и асм-подпрограммку замутить подключив её к DEF FN.
    Вот как тут описано: http://zxpress.ru/book_articles.php?id=1539
    Последний раз редактировалось Destr; 23.09.2011 в 20:15.

  12. #10
    Activist Аватар для Soplik
    Регистрация
    02.04.2005
    Адрес
    Минск
    Сообщений
    378
    Благодарностей: 8

    По умолчанию

    Но тогда уж и PEEK вместо ATTR
    Сферический ламер в вакууме

Страница 1 из 2 12 ПоследняяПоследняя

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

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

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

Похожие темы

  1. Спрайты в бейсике
    от AER в разделе Для начинающих
    Ответов: 13
    Последнее: 28.03.2010, 11:50
  2. моя игра на бейсике
    от женя999 в разделе Игры
    Ответов: 44
    Последнее: 10.02.2010, 17:02
  3. Ответов: 5
    Последнее: 03.09.2007, 01:34
  4. Border-эффект на Бейсике
    от jim в разделе Разное
    Ответов: 7
    Последнее: 18.04.2007, 20:50
  5. Функция #0a процедуры #3d13
    от axor в разделе Программирование
    Ответов: 3
    Последнее: 12.10.2006, 15:31

Ваши права

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