Лабораторна робота №6. Проектування додатків vb6, що містять лінійні алгоритмічні структури

ЗАВДАННЯ 6.1

СТВОРІТЬ ПРОЕКТ, В ЯКОМУ РОЗРАХУЙТЕ КІЛЬКІСТЬ ЛОКОМОТИВІВ, ЩО ЗНАХОДЯТЬСЯ В ЕКСПЛУАТАЦІЇ, В РЕЗЕРВІ, В РЕМОНТІ.

Вихідні дані. Загальна кількість локомотивів. У резерві – 10% від загального, в експлуатації – 60%.

Результат. Вивести кількість локомотивів, які експлуатуються, резерв і кількість локомотивів в ремонті.

Обов'язкові умови. Загальна кількість локомотивів вводиться після натискання кнопки “Введення” за допомогою розташованого на формі об'єкта TextBox. Розрахунки і виведення результатів повинні виконуватися при натисканні кнопки “Розрахунок”.

Робота з проектом закінчується при натисканні кнопки “Вихід”.

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

1. Увійдіть в середовище програмування Visual Basic 6.0 та створіть новий проект (Standard Exe).

2. Створіть форму (рис.6.1) і розмістіть на ній 4 об’єкта TextBox (один для введення даних, три інших для виведення результатів), 4 об’єкта Label (для виведення написів над вікном введення даних і вікнами виведення результатів), CommandButtоn й ImageBox.

Для розміщення об'єктів на формі:

• у вікні інструментів (Toolbox) виберіть необхідний об'єкт;

• зробіть подвійний клік на вибраному об'єкті;

• об'єкт, що з'явився на формі, розмістіть у вибраному Вами місці на формі.

3. У вікні властивостей відредагуйте властивості форми та об'єктів, розміщених на ній:

• в заголовку форми — напис «Лабораторна робота 6.1» (властивість Caption об'єкта Form1), колір фону будь-який (властивість BackColor об'єкта Form1), виведення форми здійсніть в центрі екрана (скористайтеся вікном розміщення форм Form Layout);

• об'єкт Label1 (Мітка) — «Введіть кількість локомотивів в парку» (властивість Caption);

• об'єкт Label2 — «Кількість локомотивів в резерві»;

• об'єкт Label3 — «Кількість локомотивів в експлуатації»;

• об'єкт Label4 — «Кількість локомотивів в ремонті»;

• об'єкти TextBox1, TextBox2, TextBox3, TextBox4 (Текстове поле) повинні не містити напису (властивість Text), колір фону – жовтий (властивість BackColor); властивості Name відповідно TxtAll., TxtExpluat, TxtRezerv, TxtRemont;

• Command1 (Командна кнопка). Для неї встановіть властивість Caption – «Введення», властивість Name — Cmd_ Введення.

• Command2. Для неї встановіть властивість Caption – Розрахунок, властивість Name — Cmd_Розрахунок; властивість Default в положення True для автоматичного виклику події Click при натисканні клавіші Enter;

• Command3. Для неї встановіть властивість Caption – Вихід, властивість Name — Cmd_Вихід, властивість Cancel в положення True для автоматичного виклику події Click при натисканні клавіші Esc;

• ImageBox – рисунок з каталогу, що містить рисунки.

Рис. 6.1 Вид форми для ЗАВДАННЯ 6.1

4. Запустіть додаток на виконання (режим Run-time). Для цього необхідно натиснути клавішу F5.

5. Поперемінним перемиканням в режим Run-time і назад в режим Конструктора отредагуйте, дослідіть і опишіть такі властивості об'єктів: розмір, місцезнаходження, колірне оформлення, зовнішній вигляд, вигляд і параметри шрифту.

• Виділіть усі мітки. Вони мають бути втоплені. Встановіть для них властивість BorderStyle= 1 (Fixed Single).

• Вирівняйте їх по лівому краю (Головне меню — опція Format — Align — Left). Встановіть для них однаковий вертикальний інтервал (Format — Vertical Spacing — Make Equal).

• Аналогічно вирівняйте текстові вікна.

• Виділіть усі мітки й текстові вікна. Встановіть для них однакову ширину й довжину (Format – Make Same Size).

• Виділіть пару: мітка — відповідне текстове вікно та вирівняйте її по верхньому або нижньому краю. Вирівняйте таким чином усі надписи й вікна.

6.З подією Click командної кнопки Cmd_Введення зв’яжіть такий код:

Private Sub Cmd_Ввод_Click()

TxtAll.SetFocus

TxtExpluat.Visible = False

TxtRezerv.Visible = False

TxtRemont.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

End Sub

Метод SetFocus робить поле TxtAll готовим до приймання даних і розміщує в ньому курсор. Процедура обробки події робить невидимими інші текстові поля і мітки, прибираючи з екрана результати попередніх обчислень.

7. З подією Click командної кнопки Cmd_ Розрахунок зв'яжіть код:

Private Sub Cmd_Расчет_Click()

TxtExpluat.Text = 10 * TxtAll.Text \ 100

TxtRezerv.Text = 60 * TxtAll.Text \ 100

TxtRemont.Text = TxtAll.Text - TxtExpluat.Text - TxtRezerv.Text

Label2.Visible = True

Label3.Visible = True

Label4.Visible = True

TxtExpluat.Visible = True

TxtRezerv.Visible = True

TxtRemont.Visible = True

End Sub

8. З подією Click командної кнопки Cmd_ Вихід зв’яжіть код:

Private Sub Cmd_Выход_Click()

End

End Sub

9. Запустіть додаток на виконання і виконайте обчислення для різних вихідних даних.

10. Зберіжіть проект та форму в папці ЛАБ6 з іменами Лр6_Зад1_P_Прізвище і Лр6_Зад1_F_ Прізвище відповідно.