Как в basic окружность (7 видео) | Курс школьной геометрии

Qbasic:

Содержание

# Окружности и дуги
Оператор CIRCLE (x, y), радиус[, цвет] рисует окружность заданного радиуса и цвета с центром в точке (x, y). Если вся окружность на экране не поместится, то будет нарисована только ее часть. Радиус окружности задается в пикселях, но такое количество пикселей укладывается только по горизонтали. Размер вертикального радиуса (в пикселях) зависит от номера графического режима.
Графика в VB
Графика в Vb
Рисование линии в Vb.
Рисование прямоугольника в Vb
Рисование окружности и эллипса в Vb
Рисование закрашенного прямоугольника в Vb
Урок 22. Базовые фигуры и графические методы
Рисование текста на форме
📺 Видео

# Окружности и дуги

Оператор CIRCLE (x, y), радиус[, цвет] рисует окружность заданного радиуса и цвета с центром в точке (x, y). Если вся окружность на экране не поместится, то будет нарисована только ее часть. Радиус окружности задается в пикселях, но такое количество пикселей укладывается только по горизонтали. Размер вертикального радиуса (в пикселях) зависит от номера графического режима.

Задача. Нарисовать несколько концентрических окружностей (“мишень”).

Решение.

Задание. Запишите программу под именем MISHEN.BAS. Сделайте шаг в цикле равным 3, 2, затем 1 (но не 0, так как программа “зациклится”!). Объясните возникающий при этом эффект. Измените положение “мишени” на экране так, чтобы ее часть ушла за экран. Введите зависимость положения центра окружности от ее радиуса. Поэкспериментируйте с несколькими разноцветными “мишенями”.

Тем же оператором можно нарисовать и дугу, только дополнительно потребуется задать значения начального и конечного углов дуги:

CIRCLE (x, y), радиус, [цвет], нач_угол, кон_угол

Если поместить в точку (x, y) начало математической системы координат, то начальный и конечный углы откладываются от оси Ox в направлении против часовой стрелки.

Начальный угол может быть больше конечного, но принцип рисования дуги останется прежним.

Углы дуги должны задаваться в радианах. Поскольку это не всегда удобно, автор рекомендует переводить градусы в радианы каждый раз, как это потребуется. Коэффициент пропорциональности QR вычисляется по формуле QR = p/180, где p » 3.14159265358 всем известная константа. Конечно, можно использовать и конкретное значение коэффициента: QR » 0.0174329252.

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

Замечание. Математики рассматривают как положительные, так и отрицательные углы. В операторе CIRCLE также могут использоваться отрицательные значения для начального и конечного углов, однако здесь знак минус “сообщает”, что следует не только нарисовать дугу, но и провести один или оба радиуса. Измените предыдущую программу, посмотрите, что получится на экране. Учтите, что с точки зрения Quick Basic’а “отрицательный” нуль ничем не отличается от обычного, поэтому замените его очень маленьким отрицательным числом, например, — 0.001.

Видео:Изонить 03 - Основной алгоритм заполнения окружности / Basic Pattern for Filling a CircleСкачать

Графика в VB

Видео:10 класс, 11 урок, Числовая окружностьСкачать

Графика в Vb

VB обладает большим набором инструментов для отображения графических объектов. С помощью графики в программах на vb можно визуализировать решения математических задач или создавать анимацию. В этом уроке мы научимся рисовать в VB прямоугольник, эллипс, линию, точку .

Чтобы рисовать различные объекты в VB, используется элемент PictureBox, который задает на форме графическую область для рисования.

Добавим в форму элементы Кнопка и PictureBox, в котором мы и будем рисовать.

В свойствах PictureBox во вкладке Layout в свойстве Size (размер) можно указать размеры графической области. Мы указали размер графической области 400×400 пикселей.

Получается данная форма

Для того чтобы начать рисовать в элементе PictureBox , необходимо привязать графический объект к данному элементу.
Dim Название объекта As Graphics = PictureBoxНомер.CreateGraphics()
Пример:
Dim Graphics As Graphics = PictureBox1.CreateGraphics()
Создается графический объект с именем Graphics, он привязывается к элементу PictureBox1 . В дальнейшем для отображения графических фигур будем работать уже с объектом Graphics.
Для отображения объектов нужно создать объект Перо с помощью команды.
Dim название пера = New Pen(Drawing.Color.(цвет), толщина линии)

В скобках задаётся цвет и толщина линии объекта Перо, которым мы будем рисовать
Пример:
Dim red = New Pen(Drawing.Color.Red, 5)
Cоздаётся красное перо с именем red с толщиной 5 пикселей.

Видео:Пойми Этот Урок Геометрии и получай 5-ки — Касательная и ОкружностьСкачать

Рисование линии в Vb.

Чтобы нарисовать линию в графической области PictureBox, нужно использовать метод DrawLine для привязанного к этой области графического объекта.
Объект.DrawLine(название пера, координата x первого конца, координата y первого конца, координата x второго конца, координата y второго конца)
Пример:
Graphics.DrawLine(red, 5, 5, 50, 50)
Рисует красную линию в графической области PictureBox1 с координатами начала x = 5, y = 5 и координатами конца x = 50, y = 50

Видео:Деление окружности на 3; 6; 12 равных частейСкачать

Рисование прямоугольника в Vb

Чтобы нарисовать прямоугольник в графической области PictureBox, нужно использовать метод DrawRectangle для привязанного к этой области графического объекта.
Объект.DrawRectangle(название пера, координата x левого верхнего угла, координата y левого верхнего угла, ширина, высота)
Пример:
Graphics.DrawRectangle(green, 50, 50, 100, 100)
Рисует зеленый прямоугольник в графической области PictureBox1 с координатами верхнего левого угла x = 50,y = 50 шириной 100 и высотой 100

Видео:Вписанная и описанная окружность - от bezbotvyСкачать

Рисование окружности и эллипса в Vb

Для рисования эллипса или окружности в Vb нужно сначала создать объект Прямоугольник, в который будет вписан эллипс.Объект Прямоугольник создаётся с помощью набора команд
Dim название прямугольника As New Rectangle
название прямоугольника.X = координата x левого верхнего угла
название прямоугольника.Y = координата y левого верхнего угла
название прямоугольника.Width = ширина прямоугольника
название прямоугольника.Height = высота прямоугольника
Пример:
Dim rectangle As New Rectangle
rectangle.X = 100
rectangle.Y = 100
rectangle.Width = 100
rectangle.Height = 50
Затем, с помощью созданного прямоугольника, рисуем вписанный в него эллипс, используя метод DrawEllipse для графического объекта, привязанного к графической области
Объект. DrawEllipse(перо, прямоугольник)
Например:
Graphics.DrawEllipse(blue, rectangle)
Рисует синий эллипс вписанный в прямоугольник rectangle
Для того, чтобы нарисовать окружность в Vb, нужно, чтобы ширина и высота прямоугольника совпадали по величине. Радиус окружности равен половине высоты.
Координата x центра окружности будет равна координате x левого верхнего угла прямоугольника + радиус окружности. Координата y центра окружности будет равна координате y левого верхнего угла прямоугольника + радиус окружности.
Пример рисования окружности в vb с координатами центра (200, 300) радиусом 50:
Dim rct As New Rectangle
rct.X = 150
rct.Y = 250
rct.Width = 100
rct.Height = 100
Graphics.DrawEllipse(blue, rct)

Видео:1 2 4 сопряжение окружностейСкачать

Рисование закрашенного прямоугольника в Vb

Чтобы рисовать закрашенные объекты в vb, необходимо сначала создать объект Кисть SolidBrush , в котором определяется цвет заливки. Объект Кисть в Vb задается следующим образом
Dim название кисти As New SolidBrush(Drawing.Color.цвет)
Для рисования закрашенного прямоугольника используется метод FillRectangle для графического объекта, привязанного к графической области.
Graphics.FillRectangle (название кисти, координата x левого верхнего угла, координата y левого верхнего угла, ширина, высота)
Пример рисования закрашенного прямоугольника в vb
Dim Brush As New SolidBrush(Drawing.Color.Red)
Graphics.FillRectangle(Brush, 50, 50, 100, 80)
Рисует закрашенный красным цветом прямоугольник с координатами углов 50, 50 и шириной 100 и высотой 80
Полный текст программы VB для рисования всех фигур
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Graphics As Graphics = PictureBox1.CreateGraphics()
‘ создание ручек для отрисовки
Dim red = New Pen(Drawing.Color.Red, 5) ‘ создаётся красное перо с толщиной 5 пикселей
Dim green = New Pen(Drawing.Color.Green, 5)
Dim blue = New Pen(Drawing.Color.Blue, 5)
Dim Brush As New SolidBrush(Drawing.Color.Red)
‘ отрисовываем линию
Graphics.DrawLine(red, 5, 5, 50, 50) ‘ отрисовываем красную линию
‘ отрисовываем прямоугольник
Graphics.DrawRectangle(green, 50, 50, 100, 100) ‘ рисуем зелёный прямоугольник
‘ создаём прямоугольник, с помощью которого будет отрисовываться эллипс
Dim rectangle As New Rectangle
rectangle.X = 100
rectangle.Y = 100
rectangle.Width = 100
rectangle.Height = 50
‘ отрисовка круга
Graphics.DrawEllipse(blue, rectangle)
Dim rct As New Rectangle
rct.X = 150
rct.Y = 150
rct.Width = 100
rct.Height = 100
Graphics.DrawEllipse(blue, rct)
Graphics.FillRectangle(Brush, 300, 350, 350, 400)
End Sub
End Class

Полезно почитать по теме графика в Vb
Пример графической игры на vb стрельба из пушки

Видео:8 класс, 38 урок, Вписанная окружностьСкачать

Урок 22. Базовые фигуры и графические методы

Урок из серии: «Программирование на Visual Basic.NET для школьников»

В прошлом уроке вы узнали, как создать в вашем коде объекты Graphics (Область рисования), Реn (Перо) и Brush(Кисть), необходимые для создания рисунка. Познакомились с графической системой координат.

На этом уроке вы познакомитесь с графическими методами класса System.Drawing.Graphics, которые используются в Visual Basic.Net для рисования графических фигур.

Замкнутые фигуры, такие как прямоугольники или эллипсы, состоят из двух частей — из контура и из внутренней области. Контур рисуется с использованием заданного пера, а внутренняя область закрашивается с использованием заданной кисти.

Перечень базовых фигур и графических методов класса System.Drawing.Graphics

Фигура	Метод	Описание
Линия	DrawLine()	Линия, построенная по двум точкам. Аргументами являются перо определенного цвета и толщины (например, Реn1), а также координаты концов линии X1, Y1 и Х2, Y2: Graph1.DrawRectangle(Реn1, X1, Y1, Х2, Y2)
Прямоугольник	DrawRectangle()	Аргументами являются перо определенного цвета и толщины (например, Pen1), а также координаты левого верхнего угла X1, Y1, ширина Width и высота Height: Graph1.DrawRectangle(Реn1, XI, Y1, Width, Height)
Закрашенный прямоугольник	FillRectangle()	Закраска прямоугольника с использованием кисти определенного цвета. Например: Graph1.FillRectangle(Brush1,X1, Y1, Width, Height)
Многоугольник	DrawPolygon()	Сложная фигура с произвольным числом вершин и сторон (хранящихся в массиве)
Окружность/эллипс	DrawEllipse()	Округлая фигура, вписанная в прямоугольник. Аргументами являются перо определенного цвета и толщины (например, Реn1), а также координаты левого верхнего угла описанного прямоугольника X1, Y1, ширина With и высота Height: Graph1.DrawEllipse(Pen1,X1, Y1, Width, Height)
Закрашенный эллипс	FillEllipse()	Закраска окружности или эллипса с использованием кисти определенного цвета. Например: Graph1.FillEllipse(brush1, X1, Y1, Width, Height)
Точка	DrawRectangle(Реn1, X1 , Y1 , 1 , 1 ) или DrawEllipse(Pen1, X1, Y1, 1, 1)	Для рисования точки с заданными координатами X1 и Y1 можно использовать методы DrawRectangle и DrawEllipse, в которых аргументы Width и Height равны 1.
Дуга	DrawArc	Изогнутая линия с двумя точками (часть эллипса)
Стирание изображения	Graph1.Clear()	Стирание изображения в области рисования, например, белым цветом: Graph1.Сlеаг(Соlоr.White)

Рисование текста на форме

Текст на форме можно отобразить с помощью элемента управления Label. Однако, существуют случаи, когда требуется нарисовать текст вручную с помощью методов графики. Например, для того, чтобы текст был наклонным, не получится использовать элемент управления Label, но можно использовать графические методы для рисования текста под любым углом.

Чтобы нарисовать текст на форме или элементе управления, используется графический метод DrawString. Аргументами метода являются строка текста, шрифт, кисть и координаты начала строки.

Объекты шрифт (например , drawFont) и кисть (например, drawBrush) необходимо сначала объявить, а затем использовать в качестве аргументов.

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

Чтобы нарисовать текст под углом, необходимо использовать метод RotateTransform.

Метод RotateTransform принимает один аргумент — угол, на который следует повернуть текст. Преобразование выполняется в строке кода, следующей за методом RotateTransform; можно также использовать его для поворота фигур или линий, созданных с помощью других методов рисования.

Поворота текста на 45 градусов:

В этом уроке вы познакомились с графическими методами, которые используются в Visual Basic.Net для отображения графических фигур, методом DrawString для отображения текста.

В следующем уроке будет показано применение графических методов DrawLine, DrawEllipse и DrawlRectangle для рисования на форме линии, эллипса и прямоугольника.