Кравчук / 1 семестр / Visual_Basic_6.0._Посiбник_2009

На рис. 8 показаний вигляд форми після надання властивостей об’єктам.

Рис. 8. Вигляд форми після надання властивостей об’єктам

100

. Приступити до етапу програмування у вхідному коді.

ІІІ.1. Подвійно клацнути по вільному місцю форми. У вікні Form1 (Code) з’явиться заголовок процедури Private Sub Form_Load() та її кінець End Sub. Після заголовку процедури набрати текст (рис. 9). У процедурі Form_Load() виконаємо проміжні розрахунки (обчислимо а, b, c) та їхній результати виведемо в текстові поля (a – Text1, b – Text2, c – Text3).

ІІІ.2. Для того, щоб зробити значення проміжних розрахунків (змінні контейнера: a, b, c) доступними для всіх об’єктів відповідної форми, їх необхідно оголосити в секції (General)-(Declarations): Dim a!, b!, c! (рис. 9).

ІІІ.3. Подвійно клацнути по кнопці <Обчислити>. У вікні Form1 (Code) з’явиться заголовок процедури Private Sub Command1_Click() та її кінець End Sub. Після заголовку процедури набрати текст (тіло програми). В процедурі Command1_Click() обчислюємо значення функції f для кожного значення аргументу x (рис. 9).

Рис. 9. Вікно Project1-Form1(Code)

101

ІІІ.4. Подвійно клацнути по кнопці <Продовжити обчислення>. У вікні

Form1 (Code) з’явиться заголовок процедури Private Sub Command2_Click() та її кінець End Sub. Після заголовку процедури набрати текст (тіло програми). У цій процедурі очищаємо текстове поле та передаємо в нього фокус (рис. 9).

ІІІ.5. Подвійно клацнути по кнопці <Вихід>. У вікні Form1 (Code) з’явиться заголовок процедури Private Sub Command3_Click() та її кінець End Sub. Після заголовку процедури набрати End.

IV. Після завершення написання кодів натиснути кнопку <Start> на панелі інструментів Standard (Стандартна). У вікні Розгалужений алгоритм

увести в текстове поле Text4 перше значення аргументу x = 0.6065 та клацнути по командній кнопці <Обчислити>. Результат обчислень з’явиться в текстовому полі Text8 під надписом «При x = c». Клацнути по командній кнопці <Продовжити обчислення>. Текстове поле Text4 очиститься від попереднього значення аргументу. Увести друге значення аргументу x = 0.971 та клацнути по командній кнопці <Обчислити>. Результат обчислень з’явиться

втекстовому полі Text7 під надписом «При x > c». Клацнути по командній кнопці <Продовжити обчислення>. Текстове поле Text4 очиститься від попереднього значення аргументу. Увести третє значення аргументу x = 0.345 та клацнути по командній кнопці <Обчислити>. Результат обчислень з’явиться

втекстовому полі Text10 під надписом «При x < c». Вигляд форми після виконання розрахунків показаний на рис. 10. Переписати результати розрахунків.

Рис. 10. Вигляд форми після виконання обчислень

V. Для завершення роботи й повернення у вікно коду натисніть командну кнопку <Вихід>.

VI. Збережіть проект у папку Lab_2.

102

ІНДИВІДУАЛЬНІ ЗАВДАННЯ

Скласти схему та програму для обчислення функції, відповідної до кожного варіанту. Налагодити програму для значень аргументу x = x1 , x = x2 , x = x3, що відповідають різним розгалуженням у визначенні функції. Усі розрахунки виконати з точністю до трьох значущих цифр (використати функцію Round). Вивести початкові дані та результати обчислень.