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

Август 28, 2022

Главная
Информатика
Графические методы и операторы цикла

Содержание

2. Методы PSet(x,y), цвет -точка Line(x1,y1)-(x2,y2), цвет -отрезок Line(x1,y1)-(x2,y2), цвет, B -прямоугольник Line(x1,y1)-(x2,y2), цвет, BF -закрашенный прямоугольник
3. Y O X 1000 1000 2000 1000 твип=2 см 2000
4. Синтаксис оператора For For счётчик=нач зн To кон зн Step шаг операторы (тело цикла) Next счётчик
5. Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета Dim x As Long Dim y As Long
6. Цвет vbBlack-чёрный vbRed-красный vbGreen-зелёный vbYellow-жёлтый vbBlue-синий vbMagenta-фиолетовый vbCyan-голубой vbWhite-белый
7. Dim x As Long Dim y As Long DrawWidth = 5 y = 1000 For x
9. Скачать презентацию

Слайд 2

Методы
PSet(x,y), цвет -точка
Line(x1,y1)-(x2,y2), цвет -отрезок
Line(x1,y1)-(x2,y2), цвет, B -прямоугольник
Line(x1,y1)-(x2,y2), цвет, BF -закрашенный

прямоугольник
Circle(x,y),r,цвет -окружность
Circle(x,y),r,цвет , , , k -эллипс
Сls -очистка
DrawWidth=3 -толщина линий

Слайд 3

Y
O
X
1000
1000
2000
1000 твип=2 см
2000

Слайд 4

Синтаксис оператора For
For счётчик=нач зн To кон зн Step шаг
операторы (тело

цикла)
Next счётчик

Слайд 5

Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета
Dim x As

Long
Dim y As Long
Dim r As Long
DrawWidth = 5
For x = 500 To 5000 Step 500
Circle (x, 1000), 500, vbBlue
Next x

Слайд 6

Цвет
vbBlack-чёрный
vbRed-красный
vbGreen-зелёный
vbYellow-жёлтый
vbBlue-синий
vbMagenta-фиолетовый
vbCyan-голубой
vbWhite-белый

Слайд 7

Dim x As Long
Dim y As Long
DrawWidth = 5
y = 1000
For

x = 1500 To 6000 Step 300
Circle (x, y), 700, vbRed
y = y + 200
Next x

Нарисовать ряд красных окружностей по диагонали, если х=1500, 1800, 2100,….6000, у=1000, 1200, 1400,…..,
R=700