0. Завдання для практичного виконання по темі 5

Постановка задачі

Обчислити значення функції Y=AX²+BX+C, де А,В,С – натуральні числа, на відрізку 1 ≤ Х ≤ 10 з кроком 1. Скласти блок-схему алгоритму рішення задачі, макет форми і програмні коди мовою VB. Введення даних здійснити через системне вікно (функція InputBox), а виведення результатів - в поле мітки (Label), границі якого повинні автоматично змінюються залежно від кількості даних, що відображатися в ньому

Рис. 5.7 Блок-схема алгоритму рішення задачі

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

1. Завантажити VB, вибравши елемент Standard.exe

2. Створити діалогову форму за макетом (рис 5.8)

3. Задати властивість Caption об’єктів форми згідно таблиці 5.1, після чого форма буде мати вигляд як на рисунку 5.9

Рису. 5.8 Макет форми “Розрахунок значення функції”

Таблиці 5.1 Об’єкти форми та значення властивості Caption

Об’єкти	Властивості	Значення
Label 1	Caption	Обчислення значень функції Y=A*X^2+B*X+C на відрізку [1; 10] з кроком 1
Label 2	Caption	Поле_виводу
Label 2	AutoSize	True
Label 2	WordWrap	True
Label 3	Caption	Виконав студент 1 курсу …..
Command 1	Caption	Розрахувати
Command 2	Caption	Вихід
Form 1	Caption	Алгоритм циклічної конструкції

Примітка: пояснення щодо призначення властивостей AutoSize та WordWrap представлені нижче

Рисунок 5.9 Вигляд форми після завдання властивості Caption об’єктів

4. Змінити інші властивості об’єктів форми (шрифт, його розмір, колір, спосіб написання, вирівнювання, фон)

Рис. 5.10. Вікно результатів роботи програми Цикл_1

5. Створити програмні коди кнопок “Розрахувати” (використати конструкцію For…Next) та “Вихід”.

Програмний код кнопки “Розрахувати”

(тип структури – "цикл з параметром")

Private Sub Command1_Click()

Dim A, B, C, X, Y As Integer

A= InputBox("Введіть значення А", "Вікно введення даних", , 1000, 1000)

В = InputBox("Введіть значення В", "Вікно введення даних", , 1000, 1000)

С = InputBox("Введіть значення С", "Вікно введення даних", , 1000, 1000)

For X = 1 To 10

Y = A * X ^ 2 + B * X + C

Label2.Caption = Label2.Caption & Chr(13) & "При Х =" & X & ".Y=" & Y

Next X

End Sub

Пояснення: Поле виведення Label 2 має властивості AutoSize=True та WordWrap=True, це позначає, що границі мітки Поле_виводу автоматично розширяються, щоб умістити текст, який буде там знаходитися. Символ & - оператор конкатенації (з’єднання) рядків, Chr(13) управляюча функція, яка позначає перехід на новий рядок.

Програмний код кнопки “Вихід”

Private Sub Command2_Click()

End

End Sub

6. Виконати проект. Очікуваний результат може мати вигляд як на рисунку 5.10

7. Зберегти форму та проект в особистій папці під ім’ям Цикл_1

8. Створити завантажувальний файл. Зберегти його під тим же ім’ям. Перевірити його роботу.

9. Створити новий проект з модифікацією програмного коду кнопки "Розрахувати". Використати конструкцію “цикл з передумовою”. Зберегти форму та проект під ім’ям Цикл_2. Створити завантажувальний файл. Перевірити його роботу.

Програмний код кнопки “Розрахувати”

(тип конструкції –" цикл з передумовою" –Do…Loop)

Private Sub Command1_Click()

Dim A, B, C, X, Y As Integer

A= InputBox("Введіть значення А", "Вікно введення даних", , 1000, 1000)

В = InputBox("Введіть значення В", "Вікно введення даних", , 1000, 1000)

С = InputBox("Введіть значення С", "Вікно введення даних", , 1000, 1000)

X = 1

Do While X <= 10

Y = A * X ^ 2 + B * X + C

Label2.Caption = Label2.Caption & Chr(13) & "При...Х=" & X & ".Y=" & Y

X = X + 1

Loop

End Sub

10. Створити новий проект з модифікацією програмного коду кнопки "Розрахувати". Використати конструкцію “цикл з постумовою”. Зберегти форму та проект під ім’ям Цикл_3. Створити файл, що завантажується. Перевірити його роботу.

Програмний код кнопки “Розрахувати”

(тип конструкції –" цикл з постумовою" – Do…While)

Private Sub Command1_Click()

Dim A, B, C, X, Y As Integer

A= InputBox("Введіть значення А", "Вікно введення даних", , 1000, 1000)

В = InputBox("Введіть значення В", "Вікно введення даних", , 1000, 1000)

С = InputBox("Введіть значення С", "Вікно введення даних", , 1000, 1000)

X = 1

Do

Y = A * X ^ 2 + B * X + C

Label2.Caption = Label2.Caption & Chr(13) & "При..Х=" & X & "..Y=" & Y

X = X + 1

Loop While X <= 10

End Sub

11. Створити та зберегти в особистій папці проекти прикладів, розглянутих в теоретичних основах, створити завантажувальні файли (тобто .ехе файли)