Dim graph1 As Graphics (устанавливает ИМЯ объекта области рисования) Dim pen1 As New Pen(Color.Red, 1) (устанавливает ЦВЕТ и ТОЛЩИНУ пера) Dim brush1 As. - презентация

1 Dim graph1 As Graphics (устанавливает ИМЯ объекта области рисования) Dim pen1 As New Pen(Color.Red, 1) (устанавливает ЦВЕТ и ТОЛЩИНУ пера) Dim brush1 As New SolidBrush(Color.Blue) (устанавливает ЦВЕТ заливки) Графические возможности языка программирования Visual Basic

2 Private Sub Button1_Click() graph1 = Me.PictureBox1.CreateGraphics() (определяет элемент управления в качестве области рисования) graph1.DrawLine(pen1, 0, 100, 50, 100) (рисует ЛИНИЮ) graph1.DrawRectangle(pen1, 100, 100, 200, 100) (рисует ПРЯМОУГОЛЬНИК) graph1.FillRectangle(brush1, 10, 10, 50, 100) (рисует закрашенный ПРЯМОУГОЛЬНИК) pen1.Color = Color.Magenta (меняет ЦВЕТ пера) pen1.Width = 10 (меняет ТОЛЩИНУ пера) graph1.DrawEllipse(pen1, 50, 50, 100, 150) (рисует ЭЛЛИПС) graph1.FillEllipse(brush1, 50, 50, 100, 150) (рисует закрашенный ЭЛЛИПС) End Sub

3 Dim drawfont As New Font("Arial", 16) Задает название шрифта и его размер Dim drawbrush As New SolidBrush(Color.Black) Задает цвет шрифта Система координат Задание надписей в графическом поле

4 graph1.ScaleTransform(1, -1)Обеспечивает поворот оси У graph1.TranslateTransform(250, -150) Обеспечивает сдвиг оси Х graph1.DrawLine(pen1, 0, -150, 0, 150) graph1.DrawLine(pen1, -250, 0, 250, 0) For x = -200 To 200 Step 50 graph1.DrawLine(pen1, x, -5, x, 5) Next Оси координат

5 graph1.DrawString("y", drawfont, drawbrush, 240, 0)печатает текст For x = -200 To 200 Step 50 graph1.DrawString(x / 100, drawfont, drawbrush, x + 250, 130) Next Надписи на осях координат

6 Анимация For x = 0 To 300 Step 1 anim.DrawEllipse(перо1, x, 50, 60, 60) рисует окружность For t = 1 To задержка стирания Next t anim.DrawEllipse(перо2, x, 50, 60, 60) стирает окружность Next x