Графическая информация
<<  Анализ и синтез естественного языка и изображений Получение ортопедических изображений с использованием системы «Planmed Verity»  >>
Графические возможности VB
Графические возможности VB
Графические объекты
Графические объекты
Объявление и создание объекта класса Graphics
Объявление и создание объекта класса Graphics
Координатная плоскость в VB
Координатная плоскость в VB
Координатная плоскость
Координатная плоскость
Рисование отрезка
Рисование отрезка
Пример
Пример
Рисование прямоугольника
Рисование прямоугольника
Например
Например
Рисование эллипса и окружности
Рисование эллипса и окружности
Пример
Пример
Задание
Задание
Закрашенные объекты
Закрашенные объекты
Дуги и секторы
Дуги и секторы
Надписи на рисунке
Надписи на рисунке
Графические возможности VB
Графические возможности VB
Решение задач
Решение задач
Решим задачу:
Решим задачу:
X, Y – координаты левого верхнего угла прямоугольника
X, Y – координаты левого верхнего угла прямоугольника
X = 0 Y = 0 For I = 1 To 10 X = X + 10 Y = Y + 10 Графика
X = 0 Y = 0 For I = 1 To 10 X = X + 10 Y = Y + 10 Графика
Нарисуйте, используя оператор цикла
Нарисуйте, используя оператор цикла

Презентация: «Графические возможности VB». Автор: . Файл: «Графические возможности VB.ppt». Размер zip-архива: 54 КБ.

Графические возможности VB

содержание презентации «Графические возможности VB.ppt»
СлайдТекст
1 Графические возможности VB

Графические возможности VB

NET

10 класс

2 Графические объекты

Графические объекты

Рисовать можно на любом объекте, но более удобны для этого сама форма и PictureBox; До начала рисования необходимо: Разместить на форме Button и PictureBox; Задать для PictureBox одинаковые значения ширины (Width) и высоты (Height); Объявить объект класса Graphics; Создать объект класса Graphics.

3 Объявление и создание объекта класса Graphics

Объявление и создание объекта класса Graphics

Dim Графика as Graphics … Графика = PictureBox1.CreateGraphics Таким образом объект создан, причем т.к. он принадлежит PictureBox1, то рисовать можно только на ней.

4 Координатная плоскость в VB

Координатная плоскость в VB

Отличается от привычной математической: Точка с координатами (0, 0) находится в верхнем левом углу; Значения координат только положительные; Координаты точки нижнего правого угла соответствуют значениям ширины (Width) и высоты (Height) объекта.

5 Координатная плоскость

Координатная плоскость

(0; 0)

X

Y

6 Рисование отрезка

Рисование отрезка

Графика.DrawLine(Pens.Цвет, X1, Y1, X2, Y2) Pens.Цвет – цвет пера; X1, Y1 – координаты первой точки X2, Y2 – координаты второй точки

7 Пример

Пример

Dim Графика as Graphics Графика = PictureBox1.CreateGraphics Графика.DrawLine(Pens.Blue, 50, 20, 200, 100) На PictureBox1 будет нарисован отрезок с координатами (50; 20) и (200; 100), синего цвета.

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

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

Метод: DrawRectangle Графика.DrawRectangle(Pens.Цвет, X, Y, W, H) X, Y – координаты левого верхнего угла; W – ширина (Width); H – высота (Height).

9 Например

Например

Dim Графика as Graphics Графика = PictureBox1.CreateGraphics Графика.DrawRectangle(Pens.Blue, 10, 10, 100, 50) На PictureBox1 будет нарисован прямоугольник с координатой верхнего левого угла (10, 10), шириной 100 и высотой 50

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

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

Графика.DrawEllipse(Pens.Цвет, X, Y, W, H) Эллипс рисуется как вписанный в прямоугольник (сам прямоугольник не показывается). Для рисования окружности параметры W и H должны быть равны.

11 Пример

Пример

Dim Графика as Graphics Графика = PictureBox1.CreateGraphics Графика.DrawEllipse(Pens.Blue, 100, 50, 75, 50)

12 Задание

Задание

13 Закрашенные объекты

Закрашенные объекты

Метод FillRectangle – закрашенный прямоугольник; Метод FillEllipse – закрашенный эллипс. Кроме того, для рисования закрашенной фигуры вместо пера необходимо выбрать кисть: Brushes.Цвет Например: Графика.FillEllipse(Brushes.Red, 50, 50, 150, 100)

14 Дуги и секторы

Дуги и секторы

Метод DrawArc – дуга; Метод DrawPie – сектор; Метод FillPie – закрашенный сектор (вместо параметра Pens необходимо задать параметр Brushes). Первые пять параметров аналогичны параметрам рисования эллипса, но в конце ставятся еще два параметра: начало дуги и конец дуги (градусы от 0 до 360) Например: Графика.DrawArc(Pens.Red, 50, 50, 150, 100, 30, 60) – рисует дугу от 30° до 60°

15 Надписи на рисунке

Надписи на рисунке

Метод DrawString: Графика.DrawString("Привет", Шрифт, Brushes.Цвет, X, Y) Шрифт будем брать из свойства Font объекта PictureBox1 (PictureBox1.Font) Например: Графика.DrawString("Привет", PictureBox1.Font, Brushes.Blue, 50, 50) – на PictureBox1 будет выведено слово «Привет» синего цвета.

16 Графические возможности VB
17 Решение задач

Решение задач

Рисование с использованием цикла

18 Решим задачу:

Решим задачу:

Нарисовать, используя оператор цикла:

19 X, Y – координаты левого верхнего угла прямоугольника

X, Y – координаты левого верхнего угла прямоугольника

Для рисования следующего прямоугольника добавляем по 10 точек: X = X + 10 Y = Y + 10

20 X = 0 Y = 0 For I = 1 To 10 X = X + 10 Y = Y + 10 Графика

X = 0 Y = 0 For I = 1 To 10 X = X + 10 Y = Y + 10 Графика

DrawRectangle(Pens.Blue, X, Y, 50, 50) Next I

Dim Графика as Graphics, X,Y,I as Decimal

21 Нарисуйте, используя оператор цикла

Нарисуйте, используя оператор цикла

AUDI

«Графические возможности VB»
http://900igr.net/prezentacija/informatika/graficheskie-vozmozhnosti-vb-110847.html
cсылка на страницу

Графическая информация

19 презентаций о графической информации
Урок

Информатика

130 тем
Слайды