Лабораторна робота 10 на тему Visual Basic та Розробка додатків, що реалізують розгалужений обчислювальний процес
« Назад
Лабораторна робота №10Тема: ”Visual Basic. Розробка додатків, що реалізують розгалужений обчислювальний процес.” Мета: навчитись використовувати засоби Visual Basic для розробки додатків з розгалуженим обчислювальним процесом.
Завдання №1: 1. Активізуйте Visual Basic: Пуск−> Программы−> Visual Basic−> Visual Basic 6.0. Розробіть форму з 6 написами, 3 текстовими полями і однією командною кнопкою у відповідності з наведеним нижче малюнком. 2. Введіть код процедури обробки події – клацання на командній кнопці Обчислити. Для реалізації розгалужень застосуємо конструкцію If... Then та If ... Then ... Else . У вікні редактора коду створіть програмний код, коментарі вводити не потрібно: Private Sub Command1_Click() Dim a, b, c, D, x1, x2 As Double ‘ явний опис змінних ‘ присвоєння значення текстового поля Text1 форми змінній а a = Val(Text1.Text) ‘ присвоєння значення текстового поля Text2 форми змінній b b = Val(Text2.Text) ‘ присвоєння значення текстового поля Text3 форми змінній с c = Val(Text3.Text) ‘ Обчислення дискримінанта D = b * b - 4 * a * c ‘ випадок, коли всі коефіцієнти квадратного рівняння = нулю If (a = 0) And (b = 0) And (c = 0) Then Label5.Caption = "Розв'язків безліч!" ‘ випадок лінійного рівняння (а=0 , b не дорівнює нулю bx+c=0) If (a = 0) And (b <> 0) Then Label5.Caption = -c / b ‘ випадок, коли коефіцієнти квадратного рівняння a і b = 0, а с не нуль If (a = 0) And (b = 0) And (c <> 0) Then Label5.Caption = "Розв’язків не існує!" ‘ випадок, коли а не дорівнює нулю, а дискримінант від’ємний If (a <> 0) And (D < 0) Then Label5.Caption = "Розв’язків не існує!" ‘ випадок, коли а не дорівнює нулю, а дискримінант додатній If (a <> 0) And (D > 0) Then x1 = (-b - Sqr(D)) / (2 * a) Label4.Caption = x1 x2 = (-b + Sqr(D)) / (2 * a) Label5.Caption = x2 End If If (a <> 0) And (D = 0) Then ‘ випадок, коли дискримінант дорівнює нулю Label4.Caption = “Розв’язок один!” Label5.Caption=-b/(2*a) End If End Sub 3. Закрийте вікно коду. 4. Збережіть форму і проект у своїй папці на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№9_1_Прізвище: Збереження форми: меню File −> Save Form. Збереження проекту: меню меню File −> Save. 5. Запустіть розроблений проект на виконання, скориставшись відповідним меню або кнопкою старт панелі інструментів.
Завдання №2: 1. Розробимо проект з використанням однієї командної кнопки форми, але для організації інтерфейсу між програмою і користувачем застосуємо спеціальні діалогові вікна. 2. Активізуйте новий проект. Розробіть форму з однією командною кнопкою у відповідності з наведеним нижче малюнком. 3. Двічі клацнувши на кнопці введіть код процедури: Private Sub Command1_Click() Dim a, b, c, D, x1, x2 As Double a = Val(InputBox("Введіть значення а", "Задання коефіцієнтів квадратного рівняння", a)) b = Val(InputBox("Введіть значення b", "Задання коефіцієнтів квадратного рівняння", b)) c = Val(InputBox("Введіть значення c", "Задання коефіцієнтів квадратного рівняння", c)) D = b * b - 4 * a * c If (a = 0) And (b <> 0) Then x1 = -c / b MsgBox x1, , "x1" End If If (a = 0) And (b = 0) And (c = 0) Then MsgBox "Розв.безліч", , "x1" If (a = 0) And (b = 0) And (c <> 0) Then MsgBox "Розв'язків не існує", , "x1" If (a <> 0) And (D < 0) Then MsgBox ("Розв'язків не існує") If (a <> 0) And (D >= 0) Then x1 = (-b - Sqr(D)) / (2 * a) MsgBox "Існує два розв." MsgBox x1, , "x1" x2 = (-b + Sqr(D)) / (2 * a) MsgBox x2, , "x2" End If End Sub 4. Збережіть форму і проект на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№9_2_Прізвище: 5. Запустіть розроблений проект на виконання.
Завдання №3: 1. Розробіть додаток для обчислення значень економічного показника Y в залежності від значень економічного показника X, якщо залежність задана формулою: 2. Для реалізаціїх розгалужень обчислювального процессу застосуйте конструкцію SelectCase. 3. Відкрийте новий проект Visual Basic. 4. Розробіть форму за наведеним нижче на рисунку зразком: один напис, одне текстове поле для введення значення Х і одна командна кнопка. 5. Для обробки події клацання на командній кнопці введіть код процедури: Private Sub Command1_Click() Dim Y As Variant, X As Double X = Val(Text1.Text) Select Case X Case 0 To 1 Y = 5 * X * (X + 10) Case 1 To 10 Y = 55 + Sin(3 * X) Case Is > 10 Y = 55 + Sin(3 * X) + (X - 10) / (X + 1) Case Else Y = "Не визначена" End Select Print "X="; X; " Y="; Y End Sub 6. Збережіть форму і проект на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№9_3_Прізвище: 7. Запустіть розроблений проект на виконання.
Контрольні питання
З повагою ІЦ "KURSOVIKS"! |