Порядок виконання роботи 1.2

Доповнити попередній проект новими обєктами та отримати проект, що дозволяє рахувати площу або периметр прямокутника.

№

Операції

Дії розробника

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

100

0

1

10

HscrollBar2

HsbLine2

100

0

1

10

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

>

14.

Завантажити проект MyProg1.Exe на виконання

> MyProg1.Exe у власній папці