28. Цикли

Проект.

Напишіть і запустіть на виконання програму

For i = 1 To 24

  TextWindow.WriteLine(i)

EndFor

For	Ключове слово - початок циклу (loop). Якщо спеціально не вказано, то після задання початкового значення змінної, в кожному циклі проходить його приріст на 1
To	Вказується верхня межа значень змінної
EndFor	Ключове слово - завершення циклу

For i = 1 To 24 Step 2

Step	Слово, частина командного речення For. Вказує, що крок приросту значення змінної не рівний 1. (Буквально – «крок зміни».

 

Збережіть проект в своїй теці. 2) В новому проекті змініть програму так, щоб результат виводився в рядок і через кому. Яку операцію потрібно застосувати? Збережіть проект в своїй папціі. 3) Напишіть програму виводу парних чисел, що не перевищують 40 або програму виводу чисел, що діляться на 3, не перевищуючих 50. Збережіть проект у своїй теці. 4) Напишіть програму виводу непарних чисел більших за 1, але менших 15 в порядку спадання. Збережіть проект в своїй папці.

29. Система координат у графічному вікні

Щоб розпочати користування графічними примітивами, потрібна система координат у графічному вікні.

Початок координат, точка (0; 0) розміщена в лівому верхньому куті. Вісь ОХ направлена зліва направо, а вісь ОУ – зверху вниз.

DrawLine (x1, y1, x2, y2)	Рисування лінії між точками з координатами (x1, y1) і (x2, y2)
PenWidth = число	Команда встановлює ширину олівця
PenColor = "Цвет"	Команда встановлює колір олівця

Введемо команду та запустимо її на виконання

GraphicsWindow.PenWidth = 10

GraphicsWindow.PenColor = "Green"

GraphicsWindow.DrawLine(10, 10, 100, 100)

GraphicsWindow.PenColor = "Gold"

GraphicsWindow.DrawLine(10, 100, 100, 10)

Результат

Якщо обєднати код, який вводили на попередньому занятті з даним, то отримаємо настурний

результат

Програма. Товщина олівця. Поирібно ввести наступний код:

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.Width = 200

GraphicsWindow.Height = 160

GraphicsWindow.PenColor = "Blue"

 For i = 1 To 10

  GraphicsWindow.PenWidth = i

  GraphicsWindow.DrawLine(20, i * 15, 180, i * 15)

endfor

Результат

30. Графічне вікно

	Обєкт Графическое Окно
GraphicsWindow	Операція «показать Графическое Окно»
BackgroundColor  = "SteelBlue"	Операція «установить фон Графического Окна»
Title  = "Имя"	Операція «Заголовок Графического Окна»
Width  =  длина	Операція «задать ширину Графического Окна»
Height  =  длина	Операція «задать высоту Графического Окна»

Проект.  Вчимося малювати

1) Напишіть програму і запустіть її на виконання:

 

GraphicsWindow.BackgroundColor = "SteelBlue"

GraphicsWindow.Title = "Мій фон"

GraphicsWindow.Width = 320

GraphicsWindow.Height = 200

GraphicsWindow.Show()

Black (Чорний) Blue (Синій) Cyan (Голубой) Gray (Сірий) Green (Зелений) Magenta (Малиновий) Red (Червоний) White (Білий) Yellow (Жовтий)

DarkBlue (Темно-синій) DarkCyan (Темно-голубий) DarkGray (Темно-сірий) DarkGreen (Темно-зелений) DarkMagenta (Темно-малиновий) DarkRed (Темно-червоний) DarkYellow (Темно-жовтий)

 31. Створення рисунків прямокутника й квадрата

DrawRectangle (x1, y1, w, h)	Операція малювання контура прямокутника, де (x1, y1) – координати лівого верхнього кута, w – ширина, h – висота прямокутника.
DrawEllipse (x1, y1, w, h)	Операція малювання контура еліпса
BrushColor = "Цвет"	Операція зміни кольору кисті для малювання зафарбованих фігур
FillRectangle (x1, y1, w, h)	Операція рисування зафарбованого прямокутника
FillEllipse (x1, y1, w, h)	Операція малювання зафарбованого еліпса

   Для рисування фігур використовуються дві операції - draw и fill. Операція draw рисує фігури по заданих розмірах олівцем, а операція fill рисує фігури кистю (фігура виходить зафарбованою). Для того, щоб нарисувати прямокутник червоним олівцем, введемо код: GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 GraphicsWindow.PenColor = "Red" GraphicsWindow.DrawRectangle(10, 10, 100, 40) Результат Для того, щоб програма нарисувала прямокутник, зафарбований зеленим кольором, потрібно ввести код: GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 GraphicsWindow.BrushColor = "Green" GraphicsWindow.FillRectangle(60, 80, 100, 40) Результат Для того, щоб краще зрозуміти, як "рисує" програма, змінть числа в даному коді та запустіть програму на виконання. Наприклад, введемо код: GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 GraphicsWindow.BrushColor = "DarkMagenta" GraphicsWindow.FillRectangle(150, 100, 300, 150) Результат Якщо введемо цей код, то одержимо квадрат рожевого кольору. GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 GraphicsWindow.BrushColor = "Magenta" GraphicsWindow.FillRectangle(150, 100, 150, 150) Результат

32. Створення рисунків еліпса, кола, круга

DrawRectangle (x1, y1, w, h)	Операція малювання контура прямокутника, де (x1, y1) – координати лівого верхнього кута, w – ширина, h – висота прямокутника.
DrawEllipse (x1, y1, w, h)	Операція малювання контура еліпса
BrushColor = "Цвет"	Операція зміни кольору кисті для малювання зафарбованих фігур
FillRectangle (x1, y1, w, h)	Операція рисування зафарбованого прямокутника
FillEllipse (x1, y1, w, h)	Операція малювання зафарбованого еліпса

   Для рисування фігур використовуються дві операції - draw и fill. Операція draw рисує фігури по заданих розмірах олівцем, а операція fill рисує фігури кистю (фігура виходить зафарбованою). Для того, щоб нарисувати еліпс чорним олівцем, введемо код: GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 Color = "Yellow" GraphicsWindow.DrawEllipse(200, 75, 100, 40) Результат Для того, щоб програма нарисувала еліпс, зафарбований голубим кольором, потрібно ввести код: GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 GraphicsWindow.BrushColor = "Cyan" GraphicsWindow.FillEllipse(260, 80, 100, 40) Результат Для того, щоб краще зрозуміти, як "рисує" програма, змінть числа в даному коді та запустіть програму на виконання. Якщо введемо цей код, то одержимо круг рожевого кольору. GraphicsWindow.Width = 400 GraphicsWindow.Height = 2500 GraphicsWindow.BrushColor = "Magenta" GraphicsWindow.FillEllipse(150, 100, 150, 150) Результат Введемо код: GraphicsWindow.Width = 600 GraphicsWindow.Height = 300 GraphicsWindow.BrushColor = "Magenta" GraphicsWindow.FillEllipse(150, 100, 150, 150) GraphicsWindow.BrushColor = "Blue" GraphicsWindow.FillRectangle(100, 50, 150, 150) Отримаємо результат: Результат