Б) Приклади додатків, що містять графічні об’єкти
Приклад 71Створити проект, за допомогою якого можна управляти переміщенням об’єкту Shape. На формі розмістити 4 командні кнопки: 1. перша здійснює переміщення на 300 одиниць донизу; 2. друга – на 200 одиниць праворуч; 3. третя здійснює переміщення по діагоналі на 300 одиниць ліворуч доверху; 4. четверта – закриває проект Рис. 7.1 Макет форми Таблиця 7.1 Властивості об’єктів форми
Продовження таблиці 7.1
Програмний код кнопки "Переміщення вниз" 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. Створити завантажувальний файл, перевірити його роботу ©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|