Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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. Установите на форме следующие объекты и измените им свойства:

Объект Свойство Значение
Командные кнопки Name CmdStart
Caption Старт
Name CmdStop
Caption Стоп
Таймер Name Timer1
Форма DrawWidth  

 

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

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

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

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






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.