Графика в Visual Basic © Е.П. Борисова, учитель ГОУ СОШ «школа здоровья» 539

Графические примитивы ПриметивКонструкцияКомментарии Точка object. Pset (x,y),cx,y – координаты точки; с-цвет Окружность (дуга) object. Circle (x,y),r,c,a,bx,y – координаты точки; с-цвет; r –радиус; a,b – углы в радианах (против часовой стрелки от a к b) Овал object. Circle (x,y),r,c,,,k 0

Графические примитивы Отрезокobject. Line (x1,y1) – (x2,y2),cx1,y1 – начало отрезка; x2,y2 – конец отрезка; с-цвет Прямо- угольник object. Line (x1,y1) – (x2,y2),c,b object. Line (x1,y1) – (x2,y2),c,b,f x1,y1 x2,y2

Графические примитивы Очисткаobject.cls Система координат (масштаб) object.scale (x1,y1) – (x2,y2)x1,y1 x2,y2 Сообщение в указанном месте object. Print. ВыражениеПеред выводом поставить точку там, где будет располагаться верхний угол первого символа (цвет точки совпадает с цветом фона) х у

Цвета в VB константацвет vbblackЧерный vbwhiteБелый vbredКрасный vbblueСиний vbgreenЗеленый vbyellowЖелтый vbcyanГолубой vbmagentaФиолетовый Константы цветов

Цвета в VB Qbcоlor (номер цвета) Набор цветов QBColor Номер цвета цвет 0Черный 1Синий 2Зеленый 3Бирюзовый 4Красный 5Темно – красный 6Коричневый 7Светло – серый 8Серый 9Голубой 10Светло – зеленый 11Светло –бирюзовый 12Светло – красный 13Фиолетовый 14Желтый 15Белый

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

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

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

lbl1 pic1 txt1 cmd1 cmd2 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) ( 1,1) (а+1,а+1) 1 1 (0,0) (12,12) а=8 d=11,31

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

Домашнее задание 1.Конспект 2.Задача 3. Разработайте проект, который находит площадь равнобедренной трапеции по ее основаниям и высоте. Трапеция должна быть нарисована, исходные данные подписаны, а площадь выведена внутри.