End Sub

Next x

PSet (x, y)

Line (0, -10)-(0, 10), 2

Line (-10, 0)-(10, 0), 2

Scale (-10, 10)-(10, -10)

Private Sub Command1_Click()

Создание своей системы координат Scale

End Sub

Next a

Next I

Private Sub Command1_Click()

End Sub

Next a

Next I

Private Sub Command1_Click()

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

Circle (2000, 1500), R * 0.75, 7 'Земля

For a = 0 To 10 * 6.28 Step 0.2 ' десять оборотов

x = R * Cos(a)

y = R * Sin(a)

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

For i = 1 To 500000 ' цикл задержки, можно менять

Circle (2000 + x, 1500 + y), 50, &H8000000F

Задача 5. Составить программу рисования "Астры"

Пояснения: "Игольчатая астра" образуется линиями, имеющими одну общую точку в центре окружности, а вторая точка каждой линии лежит на окружности радиуса R.

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

For a = 0 To 6.28 Step 0.1

x = R * Cos(a)

y = R * Sin(a)

Line (2000, 1500)-(2000 + x, 1500 + y), 16777215*Rnd

For i = 1 To 500000

Добавьте строку:

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

Scale –метод языка VB позволяющий создавать свою – декартову систему координат.

Scale - (читается скэйл, переводится масштаб). С помощью этого метода мы назначаем в прямоугольном окне формы (Form1) или в окне картинки (PictureBox) свою координатную систему. Новая система координат является декартовой (прямоугольной). Начало координат находится в центре формы или графического окна. Оси координат направлены стандартным образом – ось ОХ слева направо, ось – ОУ снизу вверх.

Предположим, нам необходимо начертить график функции в системе координат

С помощью метода Scale мы задаём эту систему координат в тексте программы:

Упрощенно этот метод выглядит так:

(х1, у1) и (х2, у2) – координаты левого верхнего и правого нижнего вершин прямоугольника, в который будет вписана система координат.

Задача: Построить график функции:

На форме с кнопкой набираем программу.

For x = -9 To 9 Step 0.0005

y = (3*(x+5)^2+5)/((3*sqr(Sin(x/3+5)^3)^2))+20*x)

Запустите программу и зарисуйте график в тетради.

Задача. Создадим программу – лабораторию, моделирующую построения графика квадратичной функции y = ax² + bx + c.

Новый проект будет иметь вид показанный на рисунке.

Разместим на свободном месте формы новый объект – PictureBox (читается ПикчаБокс, пер. - Место для картинки) на панели инструментов значок с изображением картинки (пустынный пейзаж с кактусом) и растягиваем объект. Он имеет имя Picture1 (картина1). График будет строиться внутри этого объекта Picture1. Например, точку изображать так: Picture1.PSet (x, y), 7.