Графика в Visual Basic

Слайд 2

Графические примитивы

Графические примитивы

Слайд 3

Графические примитивы

Графические примитивы

Слайд 4

Графические примитивы

х

у

Графические примитивы х у

Слайд 5

Цвета в VB

Константы цветов

Цвета в VB Константы цветов

Слайд 6

Цвета в VB

Qbcоlor (номер цвета)
Набор цветов QBColor

Цвета в VB Qbcоlor (номер цвета) Набор цветов QBColor

Слайд 7

Задача 1

Вычислите диагональ квадрата со стороной а (а - целое число от

Задача 1 Вычислите диагональ квадрата со стороной а (а - целое число
2 до 10 условных единиц). Нарисуйте на форме квадрат в соответствии с введенной стороной, подпишите длину стороны и длину диагонали после вычисления.

Слайд 8


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

Дано: а – сторона квадрата
Найти: d – диагональ квадрата
2. d=

Решение задачи Дано: а – сторона квадрата Найти: d – диагональ квадрата 2. d=

Слайд 9

(0,0)

(12,12)

(1,1)

(а+1,а+1)

Задание масштаба

(0,0) (12,12) (1,1) (а+1,а+1) Задание масштаба

Слайд 10

3. Графический интерфейс

3. Графический интерфейс

Слайд 11

4. Программа

Dim a As Integer
Private Sub Cmd1_Click()
Pic1.Scale (0, 0)-(12, 12) масштабирование
a =

4. Программа Dim a As Integer Private Sub Cmd1_Click() Pic1.Scale (0, 0)-(12,
Val(Txt1.Text)
Pic1.DrawWidth = 2 толщина линии
Pic1.Line (1, 1)-(a + 1, a + 1), , B прямоугольник
Pic1.Line (1, 1)-(a + 1, a + 1) диагональ
Pic1.PSet (1 + a / 2, 0.3), vbWhite точка
Pic1.Print "a="; a вывод надписи
Pic1.PSet ((Sqr(2 * a * a) - 1) / 2, (1 + a) / 2), vbWhite точка
Pic1.Print "d="; Fix(Sqr(2 * a * a) * 100) / 100 вывод надписи
End Sub

(12,12)

а=8

d=11,31

Слайд 12

Задача 2 (Выполните самостоятельно)

Запрашиваются диагонали ромба. Создайте проект, вычисляющий площадь ромба. Ромб

Задача 2 (Выполните самостоятельно) Запрашиваются диагонали ромба. Создайте проект, вычисляющий площадь ромба.
изображается, диагонали подписываются, а площадь выводится под ним.
Имя файла: Графика-в-Visual-Basic.pptx
Количество просмотров: 271
Количество скачиваний: 4