Графика в Visual Basic

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

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

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

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

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

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

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

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

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

4. Программа
Dim a As Integer
Private Sub Cmd1_Click()
Pic1.Scale (0, 0)-(12, 12) масштабирование
a = 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

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