4 Этап – тестирование программы:

7. запустите программу на выполнение, введите исходные данные, проверьте правильность расчетов (рис.5) .

Рисунок 5 - Экранные формы (результаты расчетов)

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

COMP 25 D:\ HOME/ DOS/ QBASIC/ m08big41.bas

‘Синтаксичні помилки:

- невірно визначен параметр Значение по умолчанию оператора InputBox

було x = InputBox("Введите любое значение х", "Ввод данных", 4000, 2000)

необхідно x = InputBox("Введите любое значение х", "Ввод данных", , 4000, 2000)

Задание 3. Решить задачу 2, соответственно варианта. Ввод исходных - переменных величин организовать с клавиатуры, используя метод InputBox. Вывод результатов на метки. Форма 3. Записать полученные результаты в отчет.

Задание 4. Решить задачу 3, соответственно варианта. Ввод исходных - переменных величин организовать с клавиатуры, используя метод InputBox. Вывод результатов на метки. Форма 4. Записать полученные результаты в отчет.

ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ:

Разработать проект для решения задач 1, 2. Проект должен:

– содержать меню проекта;

– ввод исходных - переменных величин организовать с клавиатуры, используя метод InputBox;

– вывод результатов на метки.

Задача 1. Вирішити задачу, згідно варіанта. Скласти схему алгоритму та программу.

Вариант 1,16.

Скласти алгоритм та програму процесу обчислення величини z.

Вариант 2,17.

Скласти алгоритм та програму процесу обчислення величини f.

Вариант 3,18.

Скласти алгоритм та програму процесу обчислення величини y.

Вариант 4,19.

Скласти алгоритм та програму процесу обчислення величини f.

Вариант 5,20.

Скласти алгоритм та програму процесу обчислення величини b.

Вариант 6,21.

Скласти алгоритм та програму процесу обчислення величини y.

Вариант 7,22.

Скласти алгоритм та програму процесу обчислення величини q.

Вариант 8,23.

Скласти алгоритм та програму процесу обчислення величини y.

Вариант 9,24.

Скласти алгоритм та програму процесу обчислення величини f.

Вариант 10,25.

Скласти алгоритм та програму процесу обчислення величини q.

Вариант 11,26.

Скласти алгоритм та програму процесу обчислення величини q.

Вариант 12,27.

Скласти алгоритм та програму процесу обчислення величини q.

Вариант 13,28.

Скласти алгоритм та програму процесу обчислення величини z.

Вариант 14,29.

Скласти алгоритм та програму процесу обчислення величини p.

Вариант 15,30.

Скласти алгоритм та програму процесу обчислення величини x.

Задача 2. Вирішити задачу, згідно варіанта. Скласти схему алгоритму та программу.

Дано 3 числа A,B,C. Визначити та надрукувати:

Варіант 1,16. Числа, що кратні двом

Варіант 2,17. Числа, що кратні трьом

Варіант 3,18. Парні числа

Варіант 4,19. Непарні числа

Варіант 5,20. Кількість додатніх чисел

Варіант 6,21. Кількість парних чисел

Варіант 7,22. Кількість чисел > 1

Варіант 8,23. Кількість чисел, розташованих в діапазоні (–2,+15)

Варіант 9,24. Кількість чисел < 1

Варіант 10,25. Кількість чисел =0

Варіант 11,26. Числа, що кратні п‘яти

Варіант 12,27. Чи можна з відрізків A,B,C побудувати трикутник.

Варіант 13,28. Чи складають вони арифметичну прогресію.

Варіант 14,29. Чи виконується умова A>B>C.

Варіант 15,30. Чи виконується умова A<B<C.

Отчет по лабораторной работе и выполнению индивидуального задания на самостоятельной работе должен включать:

– условие задачи;

– схему решения задачи;

– разработанный интерфейс;

– текст программы на VB;

– результаты (проверка не менее 2-х веток!);

– выводы.

ЛАБОРАТОРНАЯ РАБОТА №5. ПРОЕКТИРОВАНИЕ ПРИЛОЖЕНИЙ VB6, ПРИ РЕШЕНИИ ЗАДАЧ, ИМЕЮЩИХ ЦИКЛИЧЕСКУЮ СТРУКТУРУ.

Подготовка к выполнению задания:

3. Подготовка к выполнению задания:

   1. Загрузить Visual Basic 6 и создать новый стандартный проект;

   2. Создать 4 формы.

   3. Сохранить проект⁵ и формы⁶;

   4. Вывести на экран панель инструментов Standart, используя контекстное меню.

   5. Вывести на экран окна Project Explorer, Properties Window, Code, General используя категорию меню View;

   6. Закрыть окна форм 2,3,4

Задание 1. Задача 1. Расчитать значения функций ; для хє[2;5] с шагом 0.5. Ввод исходных - переменных величин организовать из ТextBox. Вывод результатов на форму.

1 этап – постановка задачи. Система уравнений:

; xє [2;5], hx=0.5 a,b – var.

2 этап - составление схемы алгоритма, выбор структуры даннях (рис.3).

3 этап - программирование.

1 шаг – программирование интерфейса задачи:

8. установить на Форме 1 объекты-метки (Label) для комментариев к исходным данным (переменных а,b). Задайте надпись объектам (Caption), соответственно рис.4.;

9. установить на Форме 1 объекты-текстовые поля (TextBox) для ввода исходных данных (переменных а,b). Задайте имена объектам ((Name)) Text_а, Text_b). Очистите свойство Text;

10. установить на Форме 1 объекты-кнопки (CommandButton) – один объект-кнопку для корректного завершения работы программы; – вторую объект-кнопку для очистки формы; – третью объект-кнопку для расчетов и вывода результатов. Задайте надпись объектам (Caption), соответственно рис.4.;

2 шаг – создание кода программы:

11. для одной кнопки запишите команду окончания работы программы

12. для второй кнопки запишите команды - считывания из ТextBox исходных данных, вычислений значений функций и вывода результатов на форму:

-------------------------------------------------------------------------------------

Dim a As Single, b As Single

D im z As Double, y As Double, x As Single

Private Sub Command1_Click()

a = Val(Text_a.Text)

b = Val(Text_b.Text)

For x = 2 To 5 Step 0.5

z = 3.14 * Sin(a * x - b) / (2 * a)

y = (a * x / 2) ^ 2

Print x, z, y

Next x

End Sub

-----------------------------------------------------------------------------------------

13. *добавить (оператор Print) шапку для расчетных данных (рис.5)

14. для третей кнопки запишите команды очистки формы:

Private Sub Command3_Click()

Form1.Cls

End Sub