Складання проекту з використанням об¢єктів PictureBox (графічних вікон).
Скласти проект, що дозволяє формувати графічні зображення. | |||||
№ | Операції | Дії розробника | |||
1. | Розробка інтерфейсу: Ескіз екранної форми буде вміщувати три командні кнопки для створення графічних елементів: на формі, у першому та другому графічному вікні, одну командну кнопку для закінчення роботи додатку, та два об¢єкти PictureBox. | ||||
2. | Завантажити Visual Basic | >Пуск>Программы>Visual Basic | |||
3. | Надати ім’я формі | Ввести до поля Name вікна властивостей значення FRMDraw, до поля Caption значення Графічні методи. | |||
4. | Розташувати на формі об’єкти відповідно до ескізу інтерфейсу, враховуючи їх розмір та розміщення на ескізі. | (PictureBox на панелі елементів) – для створення графічних зображень (Command Button На панелі елементів) – для розміщення кнопок керування | |||
Для Picture1, Picture2 | Для CommandButton | ||||
BackColor | За власним смаком | Name | CmdStart1 (або 2, 3) | ||
Caption | Пуск1 (або 2,3) | ||||
Name | CmdEnd | ||||
Caption | Вихід | ||||
5. | Написати програмний код для командної кнопки CmdStart1. | Private Sub CmdStart1‗Click() Print “Малюнок 1”: Pset (120,3900) Print “Малюнок 2” PSet (3210,3900):Print ”Малюнок 3” ‘отрезок горизонтальный красный: Line (200,200)-(2200,200), 255 Print “1” ‘отрезок голубой вертикальный: Line (200,400)-(200,1400), vbCyan Print “2” ‘отрезок наклонный красный средней толщины: DrawWidth=2 Line (200,1800)-(2000,1100), vbRed Print “3” ‘прямоугольник незакрашенный: Line (1400,1000)-(400,500),, В Print “4” ‘прямоугольник закрашенный красный Line (1600,500)-(2400,1000), 255, BF Print “5” End Sub | |||
6. | Написати програмний код для командної кнопки CmdStart2 | Private Sub CmdStart2‗Click() Picture1.DrawWidth=10 Picture1.Scale (0,0)-(10,10) Picture1.Pset (1,1),vbRed: Picture1.Pset (1,9), vbRed Picture1.Pset (9,1),vbRed: Picture1.Pset (9,9), vbRed Picture1.Pset (5,5),vbRed End Sub | |||
7. | Написати програмний код для командної кнопки CmdStart3. | Private Sub CmdStart3‗Click() Picture2.Scale (0, 0)-(50,50) Picture2.Print “коло, еліпс” Picture2.Сircle (10,10), 8 Picture2.FillStyle = 0 Picture2.FillColor = vbRed: Picture2.ForeColor = vbRed Picture2.Сircle (40,10), 8, 255 Picture2.Сircle (25,20), 12, 255,,, 1.5 Picture2.Сircle (25,30), 12, 255,,, 0.5 End Sub | |||
8. | Написати програмний код для командної кнопки CmdEnd. | Private Sub CmdEnd_Click() End End Sub | |||
9. | Налагодження програми.Запустити проект на виконання, якщо необхідно, виправити помилки | >►(Start) на панелі інструментів для початку роботи >■ (End) на панелі інструментів або звертання до командної кнопки Вихід для завершення роботи | |||
10. | Збереження проекту.Зберегти проект та форму у власній папці. | >Файл>Сохранить в меню або відповідна кнопка на панелі інструментів, вказати власну папку для збереження | |||
11. | Створити виконавчий додаток. | >File >Make.exe, вказати власну папку для збереження, ввести і’мя MyProg2. | |||
12. | Закрити вікно Visual Basic | >r | |||
13. | Завантажити проект MyProg2.Exe на виконання | > MyProg2.Exe у власній папці | |||
Завдання для самостійної роботи
Додати до проекту ще одне графічне вікно та командну кнопку, за допомогою якої в цьому вікні малюється коло з забарвленим сектором.