Лабораторно-практическая работа № 13

Тема: Оператор цикла. Графические методы

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

Порядок выполнения

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

Объект	Свойство	Значение
Командная кнопка	Name	Cmd
	Caption	Нажми
Графическое окно	Name	PicShah
	Height	2500
	Width	2500

14. В окне кода процедуры обработки события Clickдля объектаCmdнабрать:

PicShah.Scale (0, 0)-(8, 8)

For i = 1 To 8

For j = 1 To 8

n = n + 1

If (i + j) Mod 2 = 0 Then c = vbWhite Else c = vbRed

PicShah.Line (i - 1, j - 1)-(i, j), c, BF

Next j

Next i

15. Проверьте работу программы. 2 часть

16. Откройте новый проект и установите следующие объекты и измените им свойства

    Объект	Свойство	Значение
    Рамки	Caption	График функции y=sin(x)
    	Caption	Цвет графика
    	Caption	Элемент графика
    	Caption	График функции y=x^2
    Командные кнопки	Name	Cmd1
    	Caption	Пуск
    	Name	Cmd2
    	Caption	Убрать графики
    Графические окна	Name	PicSin
    	Height	1200
    	Width	4800
    	Name	PicSqr
    	Height	2300
    	Width	2300
    Переключатели	Name	OptBl
    	Caption	Черный
    	Name	OptRed
    	Caption	Красный
    	Name	OptBlue
    	Caption	Синий
    	Name	OptPset
    	Caption	Точка
    	Name	OptCirc
    	Caption	Окружность
    	Name	OptOval
    	Caption	Овал

17. Приведите свою форму в соответствие с образцом

18. В разделе общих объявлений объявите переменные z(цвет),.R(радиус),k(степень искажения)

19. В окне кода процедуры обработки события Clickдля объектаCmd1набрать:

PicSin.Scale (0, 10)-(20, -10)

For x = 0 To 20 Step 0.05

y = Sin(x) * 10

PicSin.Circle (x, y), r, z, , , k

Next x

PicSqr.Scale (-10, 100)-(10, -10)

For x = -10 To 10 Step 0.001

y = x ^ 2

PicSqr.Circle (x, y), r, z, , , k

Next x

20. Самостоятельно набрать код для кнопки Cmd2 и переключателей.. Проверьте работу программы

21. Добавьте на форму командную кнопку и графическое окно (размер 1000 на 1000). Для новой кнопки набрать код, который выполняет построение спирографа.

A

Спирограф – это зубчатый диск радиуса В, расположенный внутри колеса радиуса А. В диске имеется небольшое отверстие радиуса D. Уравнение кривой имеет вид:

X=(A-B) cos (t) + D cos (v),

Y=(A-B) sin (t)-D cos (v), где

v=(A/B) t, D<B<A

Угол t меняется от 0 до 2 n, n равно В, деленному на наибольший общий делитель В и А

= 125: B = 75: D = 12

Pic1.Scale (-A, A)-(A, -A)

k = A: m = B

Do While k <> m 'НАХОЖДЕНИЕ НОД

If k > m Then k = k - m Else m = m - k

Loop

n = B / k

For t = 0 To 2 * 3.1428 * n Step 0.001

V = (A / B) * t

x = (A - B) * Cos(t) + D * Cos(V)

y = (A - B) * Sin(t) - D * Sin(V)

Pic1.Circle (x, y), 1, z

Next t

22. Проверить работу программы на различных значениях для ABD.