Как нарисовать треугольник в qbasic

Графические операторы QBASIC

Программирование на языке

QBASIC

Лабораторная работа № 1.

Построение фигур и графиков

Цель работы:изучить графические операторы QB, научиться составлять программы для построения фигур и графиков

Содержание работы:

1 Графические операторы QBASIC

2 Программа рисования графических объектов

3 Построение графиков функций

Графические операторы QBASIC

Оператор CLS (clear screen- чистый экран) окрашивает весь экран цветом фона. Его удобно использовать для заливки нужным цветом больших участков экрана.

Оператор SCREENустанавливает режим работы дисплея.

SCREEN r [,c]

r — числовой индекс режима (см. табл.1);

c — признак цветности (0 — для цветного и любое ненулевое

значение — для монохромного режима отображения).

Примечание: Параметры операторов, заключённые в квадратные скобки, могут отсутствовать.

Некоторые режимы оператора представлены в табл. 1.

Индекс режима, rХарактеристика режима
Текстовый, 40 столбцов на 25 строк (40х25), 16-64 цветов
Графический с разрешением 640х400 пикселей, текст 80х25, 16 цветов
Графический с разрешением 320х200 пикселей, текст 80х25, 16 цветов
Графический с разрешением 640х200 пикселей, текст 80х25, 16 цветов
Графический с разрешением 640х480 пикселей, текст 80х30(60), 256 цветов

Оператор COLORосуществляет управление цветностью для различных режимов работы дисплея.

COLOR fg [,[bg] [,bord]] для r=0;

COLOR bg [,pal] для r=1;

COLOR fg [,bg] для r =7,8

где: fg — целое число, определяющее цвет переднего плана (цвет символов или линий);

bg — целое число, определяющее цвет фона;

bord — целое число, определяющее цвет рамки , окаймляющей рабочее поле дисплея;

pal — целое число из диапазона [0,255], влияющее на выбор нулевой (pal — четное) или первой (pal — нечетное) цветовой палитры.

Диапазоны допустимых значений цветовых атрибутов fg и bg зависят от установленного режима r. При выводе текстовой информации цвета символов fg в диапазоне от 0 до 15 соответствуют обычным номерам цветовой гаммы, начиная с 16 и до 31 цвета символов повторяются с эффектом мерцания (табл. 2).

Нормальная яркостьПовышенная яркость
КодЦветКодЦвет
ЧёрныйСерый
ГолубойЯрко-голубой
ЗелёныйЯрко-зелёный
БирюзовыйЯрко-бирюзовый
КрасныйЯрко-красный
РозовыйЯрко-фиолетовый
КоричневыйЖёлтый
БелыйЯрко-белый

Примечание: Коды цветов в разных версиях QBASIC могут отличаться от приведённых.

Оператор PALETTE формирует палитру.

rp — номер регистра палитры;

Задание оператора PALETTE без параметров приводит к восстановле-

нию в регистрах палитры их первоначальных значений, устанавливаемых системой по умолчанию.

Оператор VIEW SCREEN устанавливает на экране прямоугольную область, в которой будет отображаться графическая информация.

VIEW [[SCREEN] (X1,Y1)-(X2,Y2) [,cf[,cb]]]

X1,Y1;X2,Y2 — координаты левого верхнего и правого нижнего углов прямоугольника ,задаются они в пикселях и измеряются либо в абсолютной системе координат (отсутствует служебное слово SCREEN), либо в приращениях относительно координат текущей точки;

cf — цвет заливки области графического окна (если он отсутствует, то окно сохраняет ранее установленный цвет фона);

cb — цвет рамки, которым может быть обведена граница графического окна (если он отсутствует,то рамка не обводится).

Для оператора VIEW без аргументов окном является весь экран.

Оператор WINDOW используется для задания области вывода графической информации в так называемых математических, т.е. относительных координатах.

WINDOW [SCREEN] (Xmin,Ymin)-(Xmax,Ymax)

В сочетании с физическими габаритами графического окна (VIEW SCREEN) пределы изменения математических (программных) координат обеспечивают проектирование геометрических фигур на экран дисплея. Включение служебного слова SCREEN в текст оператора WINDOW означает, что ось Y направлена вниз. В противном случае ось Y направлена вверх. В каждый момент времени одна из текущих точек экрана любого дисплея , работающего в графическом режиме будет выделенной («отработанная» точка); считают, что в ней находится графический курсор, который на экране не изображается и потому незаметен. В момент входа в графический режим курсор устанавливается в положение с координатами (0,0) — левый верхний угол экрана.

Оператор LOCATEпереводит курсор в позицию экрана, с которой начнет отображаться выводимая информация.

где nr — номер строки (от 1 до 25);

nc — номер столбца (от 1 до 80);

i — признак видимости (i=1) или невидимости (i=0).

Оператор PSET выводит на экран точку.

X,Y — абсолютные координаты точки на экране (служебное слово STEP задает координаты в приращениях относительно текущей точки);

C — номер цвета точки.

Оператор PRESET используется для окрашивания точки на экране в цвет фона, дает эффект гашения — стирания точки с экрана.

PRESET [STEP] (X,Y) [,C]

X,Y — абсолютные координаты точки на экране (служебное слово STEP задает координаты в приращениях относительно текущей точки);

C — номер цвета точки.

При выполнении этого оператора без параметра C соответствующая точка (с координатами X,Y) окрашивается в цвет фона — стирается.

Если в операторе PRESET параметр C присутствует, то действия операторов PRESET и PSET одинаковы.

Пример 1 Нарисовать движущийся отрезок.

COLOR 1,1 ‘ голубой текст и фон

FOR I=0 TO 299 STEP 3

PSET (J,50), 2 ‘ рисует точку цветом 2 — зелёный

PRESET (J,50) ‘ рисует точку цветом 0 – фона (чёрный)

Оператор PSET рисует линию из 20 точек зелёного цвета с координатами x=J, y=50 (горизонтальную), а оператор PRESET рисует такую же линию, но цветом фона, т.е. стирает линию. В результате получается движение отрезка на интервале I=0…299 с шагом 3 (т.е. 300:3=100 движений отрезка)

Оператор LINE рисует на экране отрезки прямых и прямоугольники.

LINE [STEP](X1,Y1)-[STEP](X2,Y2) [,C] [,B] либо [,BF]

X1,Y1;X2,Y2 — координаты двух точек — концов отрезка, которые измеряются либо в абсолютных единицах, либо в приращениях (STEP);

B — генерирует контур прямоугольника с координатами противоположных вершин X1,Y1 и X2,Y2 цвета C;

BF — генерирует контур прямоугольника (с указанными выше вершинами) и заполняет его цветом C.

Чтобы стереть линию, надо провести ее еще раз, но уже цветом фона.

Оператор CIRCLE рисует на экране окружность или эллипс

CIRCLE [STEP](X,Y), радиус[, цвет][начало] [,конец][,коэффициент]

STEP указывает, что координаты центра окружности X,Y определяются от текущей позиции курсора;

начало, конец – для дуги, может быть от -2π до 2π;

радиус – радиус окружности или эллипса;

цвет – цвет линии;

коэффициент — коэффициент сжатия, равен 4У/3Х, где Х,У – координаты точки.

Как нарисовать треугольник в qbasic

Как нарисовать треугольник в qbasicПример 2 Нарисовать дугу на ¾ окружности.

CIRCLE (320,100), 200, -PI, PI/2

Программа рисует окружность с

центром х=320, у=100 радиусом 200 (рис. 1)

Рисунок 1 Изображение

Оператор DRAWрисует графический объект, формат:

DRAW » команды рисования через пробел»

В – двигаться без рисования;

C[n] – установка цвета n;

U[n] – вверх на n точек;

D[n] — вниз на n точек;

L[n] — влево на n точек;

R[n] — вправо на n точек;

E[n] – диагонально вверх-вправо на n точек;

F[n] – диагонально вниз-вправо на n точек;

G[n] – диагонально вниз-влево на n точек;

H[n] – диагонально вверх-влево на n точек;

P n, m – n – цвет внутри фигуры, m – цвет граней.

Пример 3 Рисование бирюзового треугольника с розовыми рёбрами.

DRAW «C5» ‘ рисование розовым цветом

DRAW «F60 L120 E60» ‘ рисование треугольника

DRAW «BD 30» ‘ переместиться внутрь треугольника

DRAW «P3,5» ‘ закрасить ∆ цветом 3-бирюзовым, грани–цвет 5-розовым

Дата добавления: 2015-11-10 ; просмотров: 6126 ; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ

Видео:Рисуем треугольник VB.Скачать

Рисуем треугольник VB.

Графические возможности языка Quick Basic

Цели урока:

  • Обучающие: использование среды программирования QBasic для создания графических изображений; знакомство учащихся со способами создания графических изображений: при помощи графических примитивов и языка GML.
  • Развивающие: развитие навыков алгоритмического мышления учащихся; развитие слуховой, зрительной памяти.
  • Воспитательные: воспитание умения слушать объяснение, делать записи, контролировать самого себя.

Оборудование и технические требования:

  • Наличие видеопроектора
  • Программа Microsoft Power Point 2003-2007
  • Урок ведется в сопровождении электронного учебника «Графические возможности Quick Basic» (см. Приложение 1).

Примечание:

  • В силу того, что учебник охватывает весь материал указанной темы, он может быть использован учащимися и для самостоятельного изучения.
  • Учебник охватывает две темы: «Графические примитивы» и «Макроязык GML». Поэтому целесообразнее разбить объяснение материала на два урока.
  • Каждая тема оформлена в виде отдельной независимой друг от друга презентации. Их связь осуществляется только через титульную презентацию Приложение 1
  • Переход между слайдами учебника осуществляется при помощи управляющих стрелок и гиперссылок

Учитель: С какими видами графики вы знакомы? (Растровая графика, векторная графика)
Каковы особенности каждого вида графики?

Растровая графика

Векторная графикаБазовый элемент – точка. Построение изображения основывается на рисовании точек заданного цвета.Базовый элемент – линия. Построение изображения осуществляется при помощи математических расчетов для построения графических примитивов (линий, прямоугольников, окружностей)

Сегодня мы выясним, можно ли использовать язык программирования Quick Basic для создания изображений, и к какому виду графики можно отнести это изображение.

Прежде чем работать с графикой Quick Basic, необходимо задать графический режим экрана при помощи команды SCREEN N, где N – номер графического режима. Режимы отличаются разрешением и количеством цветов. В качестве примера рассмотрим режим SCREEN 9:

Как нарисовать треугольник в qbasic

Также можно изменить цвет фона при помощи оператора COLOR,C, где C – номер цвета в палитре.

Существуют два способа для создания изображений при помощи языка программирования Quick Basic:

  1. Использование графических примитивов
  2. Использование макроязыка GML.

1. Создание изображений при помощи графических примитивов (см. Приложение 2)

PSET (X, Y), C , где:
(Х, У) – координаты точки на экране
С – номер цвета

LINE(X1,Y1) – (X2,Y2), C где:
(X1,Y1) – координаты начальной точки отрезка
(X2,Y2) – координаты конечной точки отрезка
C – номер цвета линии

LINE(X1,Y1) – (X2,Y2), C, B
где:
(X1,Y1) – координаты начальной точки диагонали прямоугольника
(X2,Y2) – координаты конечной точки диагонали прямоугольника

Закрашенный прямоугольник:
LINE(X1,Y1) – (X2,Y2), C, BF

CIRCLE (X,Y), R, C
(X,Y) – координаты центра окружности
R – радиус окружности
C – номер цвета линии

5) Дуга окружности

CIRCLE (X,Y), R, C, L1, L2 где:
(X,Y) – координаты центра окружности
R – радиус окружности
C – номер цвета линии
L1 – начальное значение угла вычерчивания дуги
L2 – конечное значение угла вычерчивания дуги

CIRCLE (X,Y), R, C, L1, L2, К где:
(X,Y) – координаты центра эллипса
R – радиус окружности
C – номер цвета линии
L1 – начальное значение угла для вычерчивания дуги эллипса
L2 – конечное значение угла для вычерчивания дуги эллипса
К – коэффициент сжатия дуги эллипса

Как нарисовать треугольник в qbasic

Если рисуется эллипс, то параметры L1 и L2 отсутствуют, т.е. оператор имеет вид:
CIRCLE (X,Y), R, C, , , К

Если параметры L1 и L2 в операторах
CIRCLE (X,Y), R, C, L1, L2 (для дуги окружности)
CIRCLE (X,Y), R, C, L1, L2, К (для дуги эллипса)
отрицательные, то концы дуги соединяются отрезками с центром окружности (эллипса), т.е. вычерчивается круговой сектор.

9) Закраска ограниченной области

PAINT (X,Y), C1, C2 где:
(X,Y) – координаты любой точки внутри контура
C1 – номер цвета, которым закрашивается контур
С2 – номер цвета самого контура

Пример рисования объекта:

SCREEN 9
CIRCLE (159, 99), 80, 12: PAINT (159, 99), 12, 12
CIRCLE (89, 99), 39, 12: PAINT (78, 98), 12, 12
CIRCLE (228, 99), 39, 12: PAINT (248, 98), 12, 12
CIRCLE (120, 99), 15, 12, , , 3: PAINT (120, 99), 12, 12
CIRCLE (198, 99), 15, 12, , , 3: PAINT (198, 99), 12, 12
CIRCLE (120, 70), 19, 8, , , .5: PAINT (120, 70), 15, 8
CIRCLE (120, 70), 12, 6: PAINT (120, 70), 6, 6
CIRCLE (199, 70), 19, 8, , , .5: PAINT (199, 70), 15, 8
CIRCLE (199, 70), 12, 6: PAINT (199, 70), 6, 6
CIRCLE (159, 99), 20, 7, , , 2
CIRCLE (159, 130), 23, 4, 3.14, 6.28, .5
CIRCLE (159, 130), 24, 4, 3.14, 6.28: PAINT (159, 145), 4, 4
LINE (159, 40) – (110, 50), 8 : LINE (159, 40) – (130, 50), 8
LINE (159, 40) – (159, 50), 8 : LINE (159, 40) – (188, 50), 8
LINE (159, 40) – (208, 50), 8

Итог:

Как нарисовать треугольник в qbasic

2. Создание изображений при помощи макроязыка GML (см. Приложение 3).

Специальный макроязык GML был разработан для расширения возможностей машинной графики Бейсика. Он позволяет строить сложные изображения и быстро выводить их на экран. Каждая команда языка представляет собой латинскую букву, после которой следует один или два числовых параметра.

Команды языка GML перечислены в следующей таблице:

Действие

M x,y

M ±n, ±m

At

Cn

Sn

Dn

Ln

Rn

En

Fn

Gn

Hn

Команда
Переместиться в точку с координатами x, y
Переместиться по отношению к текущей позиции на ±n точек по оси Х и на ±m точек по оси У. Знаки плюс и минус проставлять обязательно
Поворот изображения против часовой стрелки вокруг точки, с которой начиналось рисование на 90°хt ( t Как нарисовать треугольник в qbasic0, 1, 2, 3). Действует во всех дальнейших командах до нового назначения
Задание нового цвета. Действует во всех дальнейших команда до нового назначения
Расстояние, указанное в командах перемещения, умножается на n/4 ( 0

Un

Переместиться вверх на n точек
Переместиться вниз на n точек
Переместиться влево на n точек
Переместиться вправо на n точек
Переместиться по диагонали вверх и вправо на n точек
Переместиться по диагонали вниз и вправо на n точек
Переместиться по диагонали вниз и влево на n точек
Переместиться по диагонали вверх и влево на n точек

Для приведения в действие последовательности команд языка GML необходимо использовать оператор DRAW «команды макроязыка GML»

Команды записываются подряд или через пробел.

Пример использования команд:
SCREEN 9
CLS
COLOR , 11
LINE (0, 200) – (650, 350), 2, BF
DRAW «c6 bm200,150 e20 r100 nf20 nm320,160 u20 m360,70 d25 f20 r20 d10»
DRAW «m360,150 l20 d20 m320,160 d15 f20 r10 d8 l20»
DRAW «m300,180 u10 l60 g20 d6 r15 d8 l30 u20 m215,170»
DRAW «l10 g20 l70 h20 e20 m200,150 br5 p6,6 bm321,160 p15,6 bm350,110 p6,6»
CIRCLE (353, 110), 5, 8
PAINT (350, 110), 1, 8

Результат:

Как нарисовать треугольник в qbasic

Заключение:

– Мы рассмотрели возможности создания графических изображений при помощи языка программирования Quick Basic. Вернемся к вопросу: К какому виду графики относится изображение, созданное при помощи программирования? (Векторная графика)
– А можно ли анимировать изображение? Как вы думаете? Оказывается можно. В этом нам помогут операторы цикла. Но это уже тема другого урока.

Домашнее задание: составить программу для рисования любого объекта с помощью изученных операторов.

Видео:КАК НАРИСОВАТЬ ТРЕУГОЛЬНИК В КОНСОЛИ C# | C# ДОМАШНИЕ ЗАДАНИЯ | #5Скачать

КАК НАРИСОВАТЬ ТРЕУГОЛЬНИК В КОНСОЛИ C# | C# ДОМАШНИЕ ЗАДАНИЯ | #5

Как нарисовать треугольник в qbasic

Как нарисовать треугольник в qbasicДанная линейка статей будет посвящена программированию в QBasic, а точнее — рисованию. Сначала мы рассмотрим то, что необходимо знать детям перед тем, как программировать изображения на компьютере — прямоугольная система координат, координаты точки.

Задания на рисование в QBasic отлично развивают логическое и математическое мышление. В учебнике Босовой «Информатика 6» рассматривается несколько практических задач на рисование с помощью графических примитивов. Мы пойдем немного дальше: научимся рассчитывать координаты точек изображения по условию задачи, научимся рисовать узоры с помощью циклов.

Среда QBASIC свободно скачивается из Интернета. Для 32-битных версий Windown — скачать QBasic (32 bit) , для 64-битных версий Windows — скачать QBasic (64 bit).

Представим, что на экран монитора наложена прямоугольная система координат с центром О в левом верхнем углу. Точка О имеет координаты (0,0). Теперь любую точку экрана мы сможем закодировать парой чисел (х,у) — координаты точки.

Как нарисовать треугольник в qbasic

В обозначении А(30, 20) — на первом месте стоит координата Х, на втором — координата У ( на это сделать акцент, очень часто дети путают местами Х и У )

Для закрепления умения находить точку на координатной плоскости по заданным координатам могу предложить рад заданий:

1. Первая команда, с которой мы познакомимся — команда SCREEN 12 — команда, задающая на экране область размером 639 единиц по горизонтали на 463 единицы по вертикали, в которой можно строить различные фигуры и окрашивать их в любой из 16 цветов (0-15). Т.е. максимальное значение координаты Х равно 639, У — 463.

Стандартные Visual Basic (QBasic) цвета:

НомерЦветНомерЦвет
0Черный8Светло-серый
1Темно-синий9Синий
2Темно-зеленый10Зеленый
3Бирюзовый11Голубой
4Малиновый12Красный
5Сиреневый13Розовый
6Оливковый14Желтый
7Темно-серый15Белый

Примечание : есть и другие режимы работы команды SCREEN, но мы будем использовать именно этот, дающий наибольшее разрешение (большее количество пикселей)

Видео:QBasic Tutorial 47 - Inserting A Picture In QB64Скачать

QBasic Tutorial 47 - Inserting A Picture In QB64

2. Точка

Первый из графических примитивов — точка. Для изображения точки используется оператор pset со следующим синтаксисом:

PSET(X, Y) , С

где х и y — координаты точки на экране, а с — ее цвет.
Рассмотрим пример.

На черном экране в этом случае появится желтая точка.

Как нарисовать треугольник в qbasic

Данный оператор будет нами использоваться редко.

Видео:Рисуем круги с помощью Quick BasicСкачать

Рисуем круги с помощью Quick Basic

2. Отрезок

LINE (X1, Y1)-(X2, Y2), С

Х1, Y1 — координаты начала отреза,
Х2, Y2 — координаты конца отрезка
С — цвет линии

Как нарисовать треугольник в qbasic

Видео:QB64 основы программирования или лучший диалект языка BASICСкачать

QB64 основы программирования или лучший диалект языка BASIC

3. Прямоугольник

Для того, чтобы нарисовать прямоугольник, нужно воспользоваться тем же оператором LINE. Только теперь мы берем координаты любой из диагоналей прямоугольника.

LINE (X1, Y1)-(X2, Y2), С, В

Х1, Y1 — координаты начала диагонали
Х2, Y2 — координаты конца диагонали
С — цвет линии
В — обязательно указать эту букву, иначе получим прямую, а не прямоугольник

Возьмем предыдущий код и добавим к нему — В

Как нарисовать треугольник в qbasic

Получили прямоугольник, а отрезок из предыдущего примера служит ему диагональю.

Видео:VB.net - Графика (рисуем линии, многоугольники, круги и буквы)Скачать

VB.net - Графика (рисуем линии, многоугольники, круги и буквы)

4. Окружность

CIRCLE (X, Y) , R, С

где X, Y — координаты центра, R — радиус (в экранных точках),
C — цвет.

Как нарисовать треугольник в qbasic

Другие графические примитивы QBASIC, а также упражнения и задачи рассмотрим в следующем выпуске.

📸 Видео

QBasic. Урок №1Скачать

QBasic. Урок №1

Visual Basic 6.0. Урок первый. "Привет!!!"Скачать

Visual Basic 6.0. Урок первый. "Привет!!!"

Как нарисовать пирамиду?Скачать

Как нарисовать пирамиду?

Геометрия - Построение правильного треугольникаСкачать

Геометрия - Построение правильного треугольника

Треугольник - 3 точки?Скачать

Треугольник - 3 точки?

Quick Basic. Основы программирования. Видеоурок 1. Введение. (Артём Кашеваров)Скачать

Quick Basic. Основы программирования. Видеоурок 1. Введение. (Артём Кашеваров)

Как нарисовать этот треугольник?!Скачать

Как нарисовать этот треугольник?!

Построение равностронего треугольника.Скачать

Построение равностронего треугольника.

#28. Tournament of towns, fall 2022, basic variant, 10-11.2Скачать

#28. Tournament of towns, fall 2022, basic variant, 10-11.2

Как построить равнобедренный или равносторонний треугольник по клеткам.Скачать

Как построить равнобедренный или равносторонний треугольник по клеткам.

Как нарисовать НЕВОЗМОЖНЫЙ ТРЕУГОЛЬНИК | 3D | Оптическая иллюзияСкачать

Как нарисовать НЕВОЗМОЖНЫЙ ТРЕУГОЛЬНИК | 3D | Оптическая иллюзия

Как нарисовать треугольник за 3 секундыСкачать

Как нарисовать треугольник за 3 секунды

№102. Начертите треугольник. С помощью транспортира и линейки проведите его биссектрисы.Скачать

№102. Начертите треугольник. С помощью транспортира и линейки проведите его биссектрисы.

Построение медианы в треугольникеСкачать

Построение медианы в треугольнике
Поделиться или сохранить к себе: