Складання проекту з використанням об¢єктів Option Button (перемикачі) та HscrollBar (лінійок прокрутки).
Доповнити попередній проект новими об¢єктами та отримати проект, що дозволяє рахувати площу або периметр прямокутника.
|
№
| Операції
| Дії розробника
|
1.
| Розробка інтерфейсу: Ескіз екранної форми буде вміщувати дві командні кнопки для початку та закінчення роботи додатку, три текстових поля (два для введення розмірів прямокутника і одне для виводу результату), поля міток для відповідних надписів, два перемикачі для визначення того, що потрібно рахувати – площу або периметр, та дві лінійки прокрутки поряд з текстовими полями, до яких вводяться розміри прямокутника.
|
2.
| Завантажити Visual Basic
| >Пуск>Программы>Visual Basic
|
3.
| Відкрити попередній проект та відповідну форму у режимі View Form.
| >Файл>Открыть, в діалоговому вікні вказати ім¢я проекту
|
4.
| Змінити ім’я форми
| Ввести до поля Name вікна властивостей значення FRMCount, до поля Caption значення Параметри прямокутника
|
5.
| Доповнити форму об’єктами відповідно до ескізу інтерфейсу, враховуючи їх розмір та розміщення на ескізі.
| (Option Button на панелі елементів) – перемикачі,
(HscrollBar на панелі елементів) - лінійки прокрутки для введення за їхньою допомогою розмірів прямокутника
|
6.
| Наповнити об’єкти, які мають тип перемикача, змістом відповідно до таблиці.
| >Option Button на формі
|
Ім’я об¢єкту
| Значення поля Name
| Значення поля Value
| Значення поля Caption
|
Option Button1
| OptS
| False
| Площа
|
Option Button2
| OptP
| False
| Периметр
|
7.
| Наповнити об’єкти, які мають тип мітки, змістом відповідно до таблиці. Встановити значення властивостей щодо кольору, шрифту та форматування.
| > Labeln на формі, > Caption у вікні властивостей, ввести до поля необхідний текст
|
Ім’я мітки
| Значення властивості Caption
|
Label1
| Параметри прямокутника
|
Label4
| Розрахунок
|
8.
| Наповнити об’єкти, які мають тип лінійки прокрутки, змістом відповідно до таблиці. Встановити значення властивостей.
| >HscrollBar на формі
|
Ім’я об¢єкту
| Значення поля Name
| Значення поля Max
| Значення поля Min
| Значення поля SmallChange
| Значення поля LargeChange
|
HscrollBar1
| HsbLine1
|
|
|
|
|
HscrollBar2
| HsbLine2
|
|
|
|
|
9.
| Програмування.Доповнити програмний код для командної кнопки, ввести програмний код для лінійок прокрутки.
| >View Code, >(General на панелі елементів), вибрати у списку CmdStart, доповнити програмний код:
Private Sub CmdStart_Click()
A=Val(TxtA.Text)
B=Val(TxtB.Text)
If OptS.Value = True then
S=A*B
Label4.Caption = “Площа”
Else
If OptP.Value = True then
S=2*(A+B)
Label4.Caption = “Периметр”
Else
S=0
MsgBox “Необхідно вибрати перемикач!”, vbOKOnly+vbQuestion, “Увага:”
EndIf
EndIf
TxtS.Text=Str(S)
OptS.Value = False
OptP.Value = False
End Sub
|
| | >(General на панелі елементів), вибрати у списку HsbLine1, ввести програмний код:
Private Sub HsbLine1_Change()
TxtA.Text = HsbLine1.Value
End Sub
|
>(General на панелі елементів), вибрати у списку HsbLine2, ввести програмний код:
Private Sub HsbLine2_Change()
TxtB.Text = HsbLine2.Value
End Sub
|
10.
| Налагодження програми.Запустити проект на виконання, якщо необхідно, виправити помилки
| >►(Start) на панелі інструментів для початку роботи
>■ (End) на панелі інструментів або звертання до командної кнопки Вихід для завершення роботи
|
11.
| Збереження проекту.Зберегти проект та форму у власній папці.
| >Файл>Сохранить в меню або відповідна кнопка на панелі інструментів, вказати власну папку для збереження
|
12.
| Створити виконавчий додаток.
| >File >Make.exe, вказати власну папку для збереження, ввести і’мя MyProg.
|
13.
| Закрити вікно Visual Basic
| >r
|
14.
| Завантажити проект MyProg1.Exe на виконання
| > MyProg1.Exe у власній папці
|
| | | | | | | | | | | | |