Важная информация

User Tag List

Страница 1 из 5 12345 ПоследняяПоследняя
Показано с 1 по 10 из 46

Тема: Графика в Бейсике на УКНЦ

Комбинированный просмотр

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #1
    Veteran Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Москва
    Сообщений
    1,995
    Спасибо Благодарностей отдано 
    1,059
    Спасибо Благодарностей получено 
    1,223
    Поблагодарили
    478 сообщений
    Mentioned
    15 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию Графика в Бейсике на УКНЦ

    То ли я уже забыл всё что помнил, то ли была какая-то особенность.
    В общем, в Бейсике на УКНЦ не получается рисовать графику.
    Допустим оператор
    PSET (100,100)
    даёт ошибку.
    CIRCLE (100,100),100
    тоже.
    Что я не так делаю?

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

  3. #2
    R.I.P.
    Регистрация
    16.09.2009
    Адрес
    г. Харьков
    Сообщений
    1,466
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    4
    Поблагодарили
    4 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    на БК было (Бейсик ВИЛЬНЮС)
    http://boulder-dash.narod.ru/bk_emul...ogramming.html

    CIRCLE (X,Y),R,C,F1,F2
    или
    CIRCLE (X,Y),R,C

    PSET (X,Y),C

  4. #3
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    13,550
    Спасибо Благодарностей отдано 
    1,213
    Спасибо Благодарностей получено 
    1,748
    Поблагодарили
    680 сообщений
    Mentioned
    67 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    PSET [@ / STEP](<АРГ1>, <АРГ2>)[,<АРГ3>]

    АРГ1 - X - 0..639
    АРГ2 - Y - 0..263
    АРГ3 - цвет - 0..8
    STEP (@) - координаты отсчитываются относительно последней точки

    пример:

    Код:
    10 FOR Y=1 TO 120
    20 PSET (SQR(Y),Y)
    30 NEXT

    CIRCLE [@ / STEP](<АРГ1>, <АРГ2>)[,<АРГ3>][,<АРГ4>][,<АРГ5>][,<АРГ6>][,<АРГ7>]

    АРГ1 - X центра окружности
    АРГ2 - У центра окружности
    АРГ3 - радиус
    АРГ4 - цвет
    АРГ5 - положение начальной точки дуги в радианах
    АРГ6 - положение конечной точки дуги в радианах
    АРГ7 - коэффециент сжатия элипса
    STEP (@) - рисовать относительно последней точки

    пример:

    Код:
    10 COLOR 3
    20 CIRCLE (100,100),75,,-1,-.001,1.2
    30 CIRCLE (10, -5), 75,,-.001,-1,1.2

  5. #4
    Moderator
    Регистрация
    09.01.2006
    Адрес
    Bryansk
    Сообщений
    1,336
    Спасибо Благодарностей отдано 
    40
    Спасибо Благодарностей получено 
    139
    Поблагодарили
    106 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от nzeemin Посмотреть сообщение
    То ли я уже забыл всё что помнил, то ли была какая-то особенность.
    В общем, в Бейсике на УКНЦ не получается рисовать графику.
    Что я не так делаю?
    SCREEN 2 забыл - перевод в графич. режим.

    10 SCREEN 2
    20 PSET (RND(1)*640,RND(1)*240)
    30 GOTO 20

    Примерно так.
    УКНЦ, ДВК-3, Ленинград-1 (48 кб)

  6. #5
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    Talking Бейсик !!! Ура !!!

    2 nzeemin : На харде который вы с Арсением перегнали в образ полно графических исходников для примера и куча разных бейсиков, вот шедевр с того диска (две версии) - красивая вещь получается )))

    Код:
    10 SCREEN 2 ' ПРОГРАММА 005B.ASC, НИИ НЦ 1988
    20 COLOR 1,1,1
    30 CLS 
    40 XC=320
    50 YC=130
    60 ABC=RND(1)*3+.7
    70 PSET (XC,YC),8
    80 FOR R=0  TO 160
    90 A$=INKEY$
    100 IF A$<>"" GOTO 190
    110 A=R*ABC ' ЧИСЛО ВИТКОВ СПИРАЛИ
    120 X=XC+R*COS(A)*1.6
    130 Y=YC+R*SIN(A)
    140 LINE -(X,Y),8
    150 NEXT R
    160 FOR I=1 TO 6000
    170 NEXT I
    180 GOTO 30
    190 SCREEN 1
    200 ? 
    210 ? "         ПОСМОТРЕЛИ И ХВАТИТ "
    220 COLOR 8,1,1
    Побалуйся разными параметрами(коэффициентам� �) для функций !!!

    Код:
    10 SCREEN 2 ' ПРОГРАММА 005B.ASC, НИИ НЦ 1988
    20 COLOR 1,1,1
    30 CLS 
    40 XC=320
    50 YC=130
    60 ABC=RND(1)*3+.7
    70 PSET (XC,YC),8
    80 FOR R=0  TO 160
    90 A$=INKEY$
    100 IF A$<>"" GOTO 190
    110 A=R*ABC ' ЧИСЛО ВИТКОВ СПИРАЛИ
    120 X=XC+R*COS(A)*1
    130 Y=YC+R*SIN(A)*0.5
    140 LINE -(X,Y),7
    150 NEXT R
    160 FOR I=1 TO 6000
    170 NEXT I
    180 GOTO 30
    190 SCREEN 1
    200 COLOR 8,1,1
    210 ? 
    220 ? "         ПОСМОТРЕЛИ И ХВАТИТ "
    Миниатюры Миниатюры Нажмите на изображение для увеличения. 

Название:	20121103145750937.jpg 
Просмотров:	658 
Размер:	19.4 Кб 
ID:	38031   Нажмите на изображение для увеличения. 

Название:	20121103145755546.jpg 
Просмотров:	664 
Размер:	19.4 Кб 
ID:	38032   Нажмите на изображение для увеличения. 

Название:	20121103145824828.jpg 
Просмотров:	647 
Размер:	19.1 Кб 
ID:	38033   Нажмите на изображение для увеличения. 

Название:	20121103145825343.jpg 
Просмотров:	695 
Размер:	19.1 Кб 
ID:	38034  
    Вложения Вложения
    Последний раз редактировалось hobot; 03.11.2012 в 21:45.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  7. #6
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    Thumbs up dbas.sav 59 блоков - дисковый !

    Вот этот дисковый бейсик - самый что называется классический )))
    Поставлялся вместе с УК-НЦ бытовой (не школьной!). Ну и в школах
    он же был конечно )))

    http://www.felixl.com/Uknc_Basic_Manual
    http://www.felixl.com/Uknc_Basic_PgmMan
    http://www.felixl.com/Uknc_Basic_OprMan
    Миниатюры Миниатюры Нажмите на изображение для увеличения. 

Название:	20121103150413187.jpg 
Просмотров:	813 
Размер:	8.4 Кб 
ID:	38036  
    Вложения Вложения
    • Тип файла: rar DBAS.rar (20.2 Кб, Просмотров: 433)
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  8. #7
    Guru Аватар для CodeMaster
    Регистрация
    26.04.2009
    Адрес
    г. Воронеж
    Сообщений
    6,211
    Спасибо Благодарностей отдано 
    131
    Спасибо Благодарностей получено 
    210
    Поблагодарили
    181 сообщений
    Mentioned
    6 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    По ссылкам отсель вижу пустые страницы.

    - - - Добавлено - - -

    Померло

    Цитата Сообщение от nzeemin Посмотреть сообщение
    The requested URL /svn/trunk/src/UKNCBTL.TB/data/test02_rnd2.bmp was not found on this server
    "Во времена всеобщей лжи говорить правду - это экстремизм" - афоризм.

  9. #8
    Veteran Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Москва
    Сообщений
    1,995
    Спасибо Благодарностей отдано 
    1,059
    Спасибо Благодарностей получено 
    1,223
    Поблагодарили
    478 сообщений
    Mentioned
    15 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от CodeMaster Посмотреть сообщение
    По ссылкам отсель вижу пустые страницы.
    Почему бы не использовать Internet Archive?
    Кроме того, я бэкапил документы оттуда в Emuverse, посмотрите тут: http://www.emuverse.ru/wiki/%D0%9A%D...9A%D0%9D%D0%A6

    - - - Updated - - -

    Цитата Сообщение от CodeMaster Посмотреть сообщение
    Померло
    Google Code давно заморозился, всё переехало на GitHub, в частности UKNCBTL.TB это https://github.com/nzeemin/ukncbtl-testbench

  10. #9
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от CodeMaster Посмотреть сообщение
    вижу пустые страницы.
    ссылки на ресурс Феликса с некоторого времени снова работают ;-)

    ещё разочек любуемся программой LINES с дискет Titus'а (ЕМНИП)


    И ещё немного БЕЙСИК графики - всё это уже на форуме всплывало ранее...
    005BM.ASC
    Последний раз редактировалось hobot; 11.03.2021 в 06:18.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  11. Этот пользователь поблагодарил hobot за это полезное сообщение:

    Oleg N. Cher (11.03.2021)

  12. #10
    Veteran Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Москва
    Сообщений
    1,995
    Спасибо Благодарностей отдано 
    1,059
    Спасибо Благодарностей получено 
    1,223
    Поблагодарили
    478 сообщений
    Mentioned
    15 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Спасибо всем!
    В общем вся загвоздка была в SCREEN 2 -- совсем забыл про него.

    ---------- Post added 04.11.2012 at 00:16 ---------- Previous post was 03.11.2012 at 23:46 ----------

    Собственно графику поднял ради того чтобы повторить на УКНЦ тест генератора случайных чисел от Брухиса, который он делал для БК.

    Тест приведён тут: http://www.mailcom.com/bk0010/

    На БК:
    http://www.mailcom.com/bk0010/pseudorandom.gif

    На УКНЦ:
    http://ukncbtl.googlecode.com/svn/tr...est02_rnd2.bmp

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

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

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

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

Похожие темы

  1. Функция ATTR (x,y) на бейсике.
    от женя999 в разделе Программирование
    Ответов: 15
    Последнее: 03.04.2012, 23:53
  2. Спрайты в бейсике
    от AER в разделе Для начинающих
    Ответов: 13
    Последнее: 28.03.2010, 11:50
  3. моя игра на бейсике
    от женя999 в разделе Игры
    Ответов: 44
    Последнее: 10.02.2010, 16:02
  4. Нашел новый баг в бейсике
    от Barmaley_m в разделе Программирование
    Ответов: 43
    Последнее: 25.01.2009, 15:34
  5. Ответов: 5
    Последнее: 03.09.2007, 02:34

Ваши права

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