Та компютерної техніки

Скласти проект, що дозволяє рахувати площу прямокутника.

№

Операції

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

1.

Розробка інтерфейсу: Ескіз екранної форми буде вміщувати дві командні кнопки для початку та закінчення роботи додатку, три текстових поля (два для введення розмірів прямокутника і одне для виводу результату), поля міток для відповідних надписів.

2.

Завантажити Visual Basic

>Пуск>Программы>Visual Basic

3.

Надати ім’я формі

Ввести до поля Name вікна властивостей значення FRMSquare, до поля Caption значення Площа прямокутника

4.

Розташувати на формі об’єкти відповідно до ескізу інтерфейсу, враховуючи їх розмір та розміщення на ескізі.

(Label на панелі елементів) – для створення надписів

(TextBox на панелі елементів) – для введення та виведення даних

(Command Button На панелі елементів) – для розміщення кнопок керування

5.

Наповнити об’єкти, які мають тип мітки, змістом відповідно до таблиці. Встановити значення властивостей щодо кольору, шрифту та форматування.

> Labeln на формі, > Caption у вікні властивостей, ввести до поля необхідний текст

Ім’я мітки

Значення властивості Caption

Label1

Площа прямокутника

Label2

Ширина

Label3

Висота

Label4

Площа

6.

Встановити значення текстових полів відповідно до таблиці. Встановити значення властивостей щодо кольору, шрифту та форматування.

>Textn на формі, ввести до поля Name вікна властивостей необхідні значення, до поля Text - значення 0.

Ім’я поля

Значення поля Name

Значення поля Text

Text1

TxtA

0

Text2

TxtB

0

Text3

TxtS

0

7.

Надати властивості командним кнопкам.

>Command Button на формі

Ім’я обєкту

Значення поля Name

Значення поля Caption

Command1

CmdStart

Пуск

Command2

CmdEnd

Вихід

8.

Програмування.Написати програмний код для командної кнопки.

Імена змінних A,B,S набирати латинським алфавітом.

Val визначає перетворення рядка символів в число.

Str визначає перетворення числа в рядок символів

>View Code, >(General на панелі елементів), вибрати у списку CmdStart, ввести програмний код:

Private Sub CmdStart_Click()

A=Val(TxtA.Text)

B=Val(TxtB.Text)

S=A*B

TxtS.Text=Str(S)

End Sub

>(General на панелі елементів), вибрати у списку CmdEnd, ввести програмний код:

Private Sub CmdEnd_Click()

End

End Sub

9.

Налагодження програми. Запустити проект на виконання, якщо необхідно, виправити помилки

>►(Start) на панелі інструментів для початку роботи

>■ (End) на панелі інструментів або звертання до командної кнопки Вихід для завершення роботи

10.

Збереження проекту. Зберегти проект та форму у власній папці.

>Файл>Сохранить в меню або відповідна кнопка на панелі інструментів, вказати власну папку для збереження

11.

Закрити вікно Visual Basic

>