Практична робота 5. Введення й виведення даних, роботі зі змінними

Мета: Наблизити до самостійного створення програмних проектів; формувати прагнення до раціонального виконання роботи; розвивати самостійне мислення.

Программа 1. "Калькулятор"

Ця програма демонструє дії операторів складання, віднімання, множення і ділення над числами, що вводяться з клавіатури. Вона показує, як використовувати текстові поля, кнопки вибору і командні кнопки для введення даних. Зовнішній вигляд програми "Калькулятор" приведений на рисунку 5.1.

Створити Метку1 (Label1), у властивостях в Caption набрати - Ввести число1; cоздать Метку2 (Label2), у властивостях Caption - Ввести число 2. Під Меткой1 і Меткой2, вибравши в інструментах Текст, створити 2 текстові прямокутники (Text1, Text2).

Рисунок 5.1

Для створення блоку Oперации необхідно вибрати на панелі інструментів Frame (Рамка) і визначити розмір Рамки на 1/3 форми. Для створення кнопок вибору на панелі інструментів вибрати Option Button, у властивостях Caption ввести напис Скласти(+), далі створити ще 3 кнопки вибору і у властивостях Caption ввести написи - Відняти(-), Помножити(*), Розділити(/).

Додати ще Метку3 (Label3) з написом у властивостях Результат, Метку4 (Label4) для виведення результату без напису у властивостях Caption. І, нарешті, 2 командних кнопки на панелі інструментів Command Button - Рахувати і Вихід. Щоб ввести командний код для Command1 необхідно двічі клацнути на цій кнопці. Командний код для цих кнопок приведений нижче:

Private Sub Command1_Click()

Dim First, Second

First = Val(Text1.Text)

Second = Val(Text2.Text)

If Option1.Value = True Then

Label4.Caption = First + Second

End If

If Option2.Value = True Then

Label4.Caption = First - Second

End If

If Option3.Value = True Then

Label4.Caption = First * Second

End If

If Option4.Value = True Then

Label4.Caption = First / Second

End If

End Sub

Private Sub Command2_Click()

End

End Sub

У цій програмі оголошені масиви з іменами First, Second. Це 2 змінні загального використання типу Варіант. Дані текстових полів перетворять в числа за допомогою функції Val. Використовується умовний оператор If – якщо властивість Value (Значення) першої кнопки вибору встановлена в True (Істина), Then (Тоді) змінні підсумовуються, а результат привласнюється об'єкту Метка4. У трьох інших формулах використовується той же принцип: в кожній з них застосовується структура If.Then і властивість Caption (напис) об'єкту Label4 (Поле мітки).

Запустіть готову програму. Використовуючи цю програму, додати в неї опції: ціла частина від ділення (Integer Division) -– (\), залишок від ділення (Remainder) – Моd, піднесення до ступеня (Exponentiation) – ^, злиття (Concatenation) – &.

Програма 2. Рішення квадратного рівняння.

Створимо додаток (рис. 1), який реалізує повне рішення квадратного рівняння. Дано рівняння виду : axx+bx+c=0, знайти коріння рівняння.

Рисунок 5.2

Видно, що на формі знаходяться наступні елементи управління (рис. 5.2) :

1) мітки ("a=", "b=", "c=", "x 1=", "x 2=" і "Введіть три числа, відповідні коефіцієнтам квадратного рівняння і натисніть РЕЗУЛЬТАТ);

2) текстові вікна Text1, Text2 . Text5;

3) командна кнопка "Результат".

Зверніть увагу, що алгоритм повного рішення квадратного рівняння - нетривіальне завдання, і зараз не розглядатимемо його. Відмітимо ефектне використання змінних X1, X2 типу Variant, оскільки вони можуть набувати будь-яких значень (числа, рядки), то ми можемо заносити в них як результати обчислень (числа), так і результат порівняння (немає рішень, будь-яке число, нескінченне число коріння). Змінні типу Double - це змінні подвійної точності з плаваючою десятковою точкою.

Двічі клацніть ЛКМ по формі і в вікні кода програми в рядку де знаходиться список елементів управління обрати General ввести:

Option Explicit

Dim a As Double

Dim b As Double

Dim c As Double

Dim d As Double

Dim x1 As Variant

Dim x2 As Variant

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

If a = 0 Then

If b <> 0 Then

x1 = -c / b

x2 = x1

Else

If c = 0 Then

x1 = "любое число"

x2 = x1

Else

x1 = "нет решения"

x2 = x1

End If

End If

Else

d = b * b - 4 * a * c

If d > 0 Then

d = Sqr(d)

x1 = (-b + d) / 2 * a

x2 = (-b - d) / 2 * a

Else

If d = 0 Then

x1 = -b / 2 *a

x2 = x1

Else

x1 = "нет вещественных корней"

x2 = x1

End If

End If

End If

Text4 = x1

Text5 = x2

End Sub

Запустіть програму і поекспериментуйте з рішенням рівнянь, спробувавши усі варіанти (введіть різні значення змінних).

Звіт

1. Відобразити рисунок вікна проекту.

2. Записати програму із власними результатами.