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

Next x

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

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

Next x

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

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

Next i

Next j

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

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

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

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

Объект	Свойство	Значение
Рамки	Caption	График функции y=sin(x)
Caption	Цвет графика
Caption	Элемент графика
Caption	График функции y=x^2
Командные кнопки	Name	Cmd1
Caption	Пуск
Name	Cmd2
Caption	Убрать графики
Графические окна	Name	PicSin
Height
Width
Name	PicSqr
Height
Width
Переключатели	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 набрать:

For x = 0 To 20 Step 0.05

y = Sin(x) * 10

For x = -10 To 10 Step 0.001

y = x ^ 2

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

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

Спирограф – это зубчатый диск радиуса В, расположенный внутри колеса радиуса А. В диске имеется небольшое отверстие радиуса 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 до 2p n, n равно В, деленному на наибольший общий делитель В и А

A = 125: B = 75: D = 12

k = A: m = B

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

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

Дата добавления: 2014-12-25