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

User Tag List

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

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

  1. #1
    Veteran Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Москва
    Сообщений
    1,995
    Спасибо Благодарностей отдано 
    1,059
    Спасибо Благодарностей получено 
    1,222
    Поблагодарили
    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
    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 кб)

  5. #4
    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

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

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

  8. #7
    Veteran Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Москва
    Сообщений
    1,995
    Спасибо Благодарностей отдано 
    1,059
    Спасибо Благодарностей получено 
    1,222
    Поблагодарили
    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

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

    По умолчанию

    Цитата Сообщение от nzeemin Посмотреть сообщение
    Собственно графику поднял ради того чтобы повторить на УКНЦ тест генератора случайных чисел от Брухиса, который он делал для БК.
    Ха! Так это не остановленное вовремя "звёздное небо" ) Мы в школе это называли "макароны" ) Я и понятия не имел ни о каком Брухисе, а об особенности RND функции зарисовать весь экран таким "спагетти" по моему знали все ребята ) - могу и ошибаться. Если конечно ей это позволить, если на ранней стадии тормознуть - получается замечательное "звёздное небо".
    Архив программ для УК-НЦ, ДВК и БК.

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

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

    По умолчанию

    только сегодня про это вспоминал
    http://ru.wikipedia.org/wiki/Бейсик_Вильнюс


    В Бейсик Вильнюс использовался популярный в то время алгоритм генерации случайных чисел RANDU, и пользователями БК был замечен существенный недостаток алгоритма[1] — например, при отрисовке большого количества точек, координаты которых получены функцией RND(), было хорошо видно разделение точек по диагональным плоскостям.

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

    По умолчанию

    Цитата Сообщение от Arseny Посмотреть сообщение
    10 SCREEN 2
    20 PSET (RND(1)*640,RND(1)*240)
    30 GOTO 20
    Цитата Сообщение от hobot Посмотреть сообщение
    Я и понятия не имел ни о каком Брухисе
    Предлагаю переименовать тест в пользу Арсения Гордина ! )
    Архив программ для УК-НЦ, ДВК и БК.

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

Страница 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

Ваши права

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