Picture1.Line (x4, y4)-(x1, y1)

X0 = x1

Y0 = y1

x1 = x1 + (x2 - x1) * k

y1 = y1 + (y2 - y1) * k

x2 = x2 + (x3 - x2) * k

y2 = y2 + (y3 - y2) * k

x3 = x3 + (x4 - x3) * k

y3 = y3 + (y4 - y3) * k

x4 = x4 + (X0 - x4) * k

y4 = y4 + (Y0 - y4) * k

6. Проверьте работу программы, выполняя многократное нажатие кнопки «Нарисуй»

7. Измените у формы свойство DrawWidth (увеличьте значение). Просмотрите работу программы

8. Добавьте на форму еще две командные кнопки, одна из которых выполняет функцию очистки графического окна, другая позволяет восстановить размеры исходного квадрата. Результаты работы своей программы сравните с образцом.

9. Самостоятельно разработать программу, которая начертить узор, описанный в постановке задачи, но составленный из а) треугольников; б) пятиугольников; в) шестиугольников

Часть

10. Откройте новый проект.

11. Установите на форме следующие объекты и измените им свойства:

12. В окне кода процедуры обработки события Timer для объекта Timer1 набрать

Dim x, y

Dim R, G, B

x = Form1.ScaleWidth * Rnd()

y = Form1.ScaleHeight * Rnd()

R = Int(256 * Rnd())

G = Int(256 * Rnd())

B = Int(256 * Rnd())

Form1. PSet (x, y), RGB(R, G, B)

13. Самостоятельно набери программный код для командных кнопок, одна из них должна включать таймер, другая – останавливать.

14. Результат показать преподавателю.

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 10

Тема: Условный оператор. Графические методы

Цель: Закрепить навыки использования условного оператора и графических методов

Постановка задачи: Разработать приложение, имитирующее работу часов с минутной и секундной стрелками