End Sub

Next a

Next I

Private Sub Command1_Click()

End Sub

Next a

Private Sub Command1_Click()

Next a

PSet (x, y), 7

Private Sub Command1_Click()

Занятие 20. Задачи на графические построения

Занятие 19. Зачетное занятие

Занятие 18. Лабораторная работа №5. Операторы машинной графики

End Sub

Cls

Rem очистка экрана

Private Sub Command3_Click()

End Sub

Next x

Line (x, 0)-(x, 9000), RGB(220, 220, 220)

Rem вертикальные полосы

Next y

Line (0, y)-(12000, y), RGB(220, 220, 220)

Rem горизонтальные полосы

Private Sub Command2_Click()

For y = 0 To 9000 Step 200

For x = 0 To 12000 Step 200

Задача 1. Построить окружность радиуса R с использованием команды Pset.

Решение: Точка лежащая на окружности имеет координаты х,у.

Как видно из рисунка:

, отсюда y = R*Sin(a)

, отсюда x = R*Cos(a)

Составим программу:

r = InputBox("Введите радиус R")

For a = 0 To 6.28 Step 0.1

x = r * Cos(a)

y = r * Sin(a)

End Sub

Запустим программу и введём радиус, например, 1000.

На экране в результате выполнения получим:

Следовательно, надо переместить центр окружности, т.е. уточнить условие задачи.

Построить окружность радиуса R с центром в точке (2000, 1500) используя, оператор Pset. Нам надо отредактировать строку:

PSet (2000+x, 1500+y), 7

Можете попробовать вводить различные радиусы и различный шаг.

Задача 2.Составьте программу рисующую цепочку окружностей радиуса 50, центры которых лежат на окружности радиуса R.

Решение. Предыдущая задача рисует точки, которые лежат на окружности радиуса R. Учитывая то, что точка это окружность малого радиуса делаем вывод: для решения данной задачи достаточно заменить оператор Pset на Circle.

r = InputBox("Введите радиус R")

For a = 0 To 6.28 Step 0.1

x = r * Cos(a)

y = r * Sin(a)

Circle (2000 + x, 1500 + y), 50, 7

Rem PSet (2000 + x, 1500 + y), 7

Задача 3. Составить программу рисующую "Розу"

Пояснение: Роза образуется окружностями радиуса R, центры которых лежат на окружности также радиуса R. Для быстродействующих компьютеров необходим цикл задержки для наблюдения процесса рисования.

Внесём изменения в предыдущую программу:

R = InputBox("Введите радиус R")

For a = 0 To 6.28 Step 0.2

x = R * Cos(a)

y = R * Sin(a)

Circle (2000 + x, 1500 + y), R, 7

For i = 1 To 500000 ' цикл задержки

Задача 4.Составим программу, моделирующую движение спутника вокруг Земли. Эффект движения достигается последовательной сменой цвета (7) спутника на цвет фона &H8000000F. Его можно посмотреть в свойствах (Properties) формы в строке BackColor (бэк колор – цвет сзади, или цвет фона).