'

Графика в Visual Basic

Понравилась презентация – покажи это...





Слайд 0

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


Слайд 1

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


Слайд 2

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


Слайд 3

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


Слайд 4

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


Слайд 5

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


Слайд 6

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


Слайд 7

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


Слайд 8

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


Слайд 9

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


Слайд 10

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


Слайд 11

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


Слайд 12

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


×

HTML:





Ссылка: