 |
|
Б) Приклади додатків, що містять графічні об’єкти
Приклад 71Створити проект, за допомогою якого можна управляти переміщенням об’єкту Shape. На формі розмістити 4 командні кнопки:
1. перша здійснює переміщення на 300 одиниць донизу;
2. друга – на 200 одиниць праворуч;
3. третя здійснює переміщення по діагоналі на 300 одиниць ліворуч доверху;
4. четверта – закриває проект
Рис. 7.1 Макет форми
Таблиця 7.1 Властивості об’єктів форми
| Об’єкт | Властивість | Значення | Пояснення | ||
| Form 1 | BackColor | Вибрати з палітри | Колір фону | ||
| Caption | Графіка | Текст напису | |||
| Command 1 | BackColor | Вибрати з палітри | Колір фону | ||
| Caption | Переміщення вниз | Текст напису | |||
| Font | Задати параметри шрифту | Шрифт, його розмір та спосіб написання | |||
| Style | Graphical | Задає стиль управління | |||
| Command 2 | BackColor | Вибрати з палітри | Колір фону | ||
| Caption | Переміщення вправо | Текст напису | |||
| Font | Задати параметри шрифту | Шрифт, його розмір та спосіб написання | |||
| Style | Graphical | Задає стиль управління | |||
| Command 3 | BackColor | Вибрати з палітри | Колір фону | ||
| Caption | Переміщення по діагоналі вліво вверх | Текст напису | |||
| Font | Задати параметри шрифту | Шрифт, його розмір та спосіб написання | |||
| Style | Graphical | Задає стиль управління | |||
| Command 4 | BackColor | Вибрати з палітри | Колір фону | ||
| Caption | Вихід | Текст напису | |||
| Font | Задати параметри шрифту | Шрифт, його розмір та спосіб написання | |||
| Style | Graphical | Задає стиль управління | |||
Продовження таблиці 7.1
| Shape 1 | BackColor | Вибрати з палітри | Задає колір фону |
| BackStyle | Opaque | Об’єкт не прозорий | |
| BorderColor | Вибрати з палітри | Колір рамки | |
| BorderWidth | Товщина рамки | ||
| FillColor | Вибрати з палітри | Колір штрихування | |
| FillStyle | Diagonal Cross | Стиль штрихування - діагональ | |
| Shape | Square | Об’єкт має форму овалу |
Програмний код кнопки "Переміщення вниз"
Private Sub Command1_Click()
Shape1.Move Shape1.Left, Shape1.Top + 300
End Sub
Програмний код кнопки "Переміщення вправо"
Private Sub Command2_Click()
Shape1.Move Shape1.Left + 300
End Sub
Програмний код кнопки "Переміщення по діагоналі вліво вверх"
Private Sub Command3_Click()
Shape1.Move Shape1.Left - 300, Shape1.Top - 300
End Sub
Програмний код кнопки "Вихід"
Private Sub Command4_Click()
End
End Sub
Приклад 7.2.Створити форму з об’єктом PictureBox, в якому в лівому верхньому куті розмістити Shape (овал)
Задати наступні властивості об’єкту Shape:
Back Color колір фону
Back Style = Opaque непрозорий
Border Color колір рамки
Border Width товщина рамки
Fill Style стиль заповнення (горизонтальне, вертикальне або діагональне)
Fill Color колір заповнення
Shape = 2 Oval овал
До форми додати командні кнопки Старт та Стоп.
1.Створити програмний код, за яким здійснювалось би переміщення овалу кожного разу при клацанні мишею кнопки Старт на 1000 (твіпів) одиниць (1 одиниця = 1/20 крапки принтеру)
2.При натиснутій лівій кнопці миші на Picture Box овал переміщувався б в точку з координатами 250,250
3.При відпусканні лівої кнопки миші овал повертався б в точку 0,0
4.При клацання кнопки Стоп закінчувалась би робота проекту
Програмний код кнопки Старт
Private Sub Command1_Click()
Shape1.Move Shape1.Left + 1000, Top - 500
End Sub
Програмний код кнопки Стоп
Private Sub Command2_Click()
End
End Sub
Програмний код переміщення овалу в задану точку при натиснутій та утримуваній кнопці миші
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Move Left + 250, Top - 250
End Sub
Програмний код переміщення овалу на початок при відпусканні кнопки миші
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Move 2, 2
End Sub
Завдання для практичного виконання по темі 7
Постановка задачі
Створити форму з об’єктом PictureBox, в якому розмістити об’єкти Line, Shape, Image. За допомогою оператора Move та об’єкта Timer створити програмні коди, за якими відбувалося б переміщення об’єкту PictureBox після активізації командної кнопки управління Старт, зупинка та переміщення на початок після активізації командної кнопки Стоп та після активізації кнопки Вихід – вихід із програми.
Порядок виконання
1. Створити проект форми “Графіка та анімація”, задати властивості об’єктів. Форма може мати вид, представлений на рисунку 7.2
Рис. 7.2 Проект форми “Графіка та анімація”
2. Використовуючи теоретичні відомості даної теми самостійно задати властивості об’єктів Line, Shape, Image.
3. Задати наступні властивості об’єкту Timer:
¾ Interval – 25 (встановлює проміжок часу у 25 мілісекунд роботи таймеру чим вище це значення, тим повільніше переміщається об’єкт))
¾ Enabled – False (припинення роботи таймера)
4. Створити програмний код кнопки Старт, який активізує роботу таймера та приводить до переміщення об’єкта PictureBox, наприклад:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
5. Створити програмний код кнопки Стоп, який припиняє роботу таймера та переміщає об’єкт PictureBox до лівого верхнього кута форми, наприклад.
Private Sub Command2_Click()
Timer1.Enabled = False
Picture1.Move 0, 0
End Sub
6. Створити програмний код об’єкту Timer,в якому можна задати, в якому напрямку та на яку відстань слід перемістити об’єкт PictureBox
Private Sub Timer1_Timer()
Picture1.Move Picture1.Left + 25
End Sub
7. Створити програмний код кнопки Вихід, наприклад:
Private Sub Command3_Click()
End
End Sub
10. Зберегти проект та форму під ім’ям “Графіка та анімація”.
11. Створити завантажувальний файл, перевірити його роботу