Разделы презентаций


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

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

Слайды и текст этой презентации

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

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

Слайд 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 -толщина линий
МетодыPSet(x,y), цвет

Слайд 3Y
O
X
1000
1000
2000
1000 твип=2 см
2000



YOX1000100020001000 твип=2 см2000

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

(тело цикла)
Next счётчик

Синтаксис оператора ForFor счётчик=нач зн 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
Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета Dim x As LongDim y As LongDim r As

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

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

Слайд 7Dim 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

Dim x As LongDim y As LongDrawWidth = 5y = 1000For x = 1500 To 6000 Step

Слайд 8Нарисовать «Ковёр из синих кругов» , если х=1000, 1350, 1700,….8000,

у=1000, 1350, 1700,…..6000,
R=200
Dim x As Long
Dim y As Long
DrawWidth

= 2
For x = 1000 To 8000 Step 250
For y = 1000 To 6000 Step 250
Circle (x, y), 200, vbBlue
Next y
Next x
Нарисовать «Ковёр из синих кругов» , если х=1000, 1350, 1700,….8000,  у=1000, 1350, 1700,…..6000,R=200Dim x As LongDim

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика