Створення програм у середовищі Visual Basic 6.0

Варіант 12

Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.

Звіт про роботу повинен вміщувати:

1. Блок-схему алгоритмічного процесу розв’язання задачі.

2. Роздруковану форму програми.

3. Роздрукований код програми.

Y=a*c+b+x

Створення програм у середовищі Visual Basic 6.0

Варіант 13

Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.

Звіт про роботу повинен вміщувати:

1. Блок-схему алгоритмічного процесу розв’язання задачі.

2. Роздруковану форму програми.

3. Роздрукований код програми.

Y=a+(a*c+b*x)

Створення програм у середовищі Visual Basic 6.0

Варіант 14

Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.

Звіт про роботу повинен вміщувати:

1. Блок-схему алгоритмічного процесу розв’язання задачі.

2. Роздруковану форму програми.

3. Роздрукований код програми.

Y=(a+16*x*b*c)

Створення програм у середовищі Visual Basic 6.0

Варіант 15

Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.

Звіт про роботу повинен вміщувати:

1. Блок-схему алгоритмічного процесу розв’язання задачі.

2. Роздруковану форму програми.

3. Роздрукований код програми.

Y=(a*4-b/5)*x

17. Завдання для аудиторної контрольної роботи за темою "Програмування розгалужених обчислювальних процесів за допомогою язика програмування Visual Basic”.

17.1 Організація розгалужених обчислювальних процесів

17.1.1 Умовний оператор If

Оператор If реалізує алгоритмічну конструкцію “Розгалуження”.

Загальна форма оператора:

If <умова> then

<Блок_операторів_1>

Else

<Блок_операторів_2>

End If

“Блок_операторів_1” виконується в тому випадку, якщо умова має значення «істинно». У тому випадку, якщо логічна умова має значення «брехня» виконується “Блок_операторів_2”.

Оператор If можна використовувати також у такій формі:

If умова Then

Блок_операторів

End If

Скорочена форма оператору If застосовується тоді, коли блок операторів слід виконувати лише при істинності деякої умови.

Алгоритми обчислювальних процесів містять хоча б один етап, що має більш одного спадкоємця, який включається в обчислювальний процес у залежності від виконання деякої умови. Напрямки, по яких може слідувати обчислювальний процес, називаються його гілками. Приклад: Записати у вигляді блок - схеми алгоритм обчислення:

П ри запису розгалужених обчислювальних процесів необхідно додержуватися наступних вимог:

1. У різноманітних гілках можна використовувати ті ж самі позначення перемінних.

2. Обчислення або процеси, що повторюються в різноманітних гілках блок - схеми, виносяться за межі розгалуження (у нашому прикладі це - обчислення а * х і друк результату).

3. Складні обчислення розбиваються на ряд простих.

З урахуванням перерахованих вимог, рішення задачі буде виглядати в так:

< >=

Рисунок 17.1. Блок-схема алгоритму обчислення

На етапі візуального програмування потрібно створити форму, подану на рис.17.2

Рисунок 17.3. Вікно програми-прикладу (форма) використання оператору If

Характеристика форми, елементів управління подана в таблиці.

Об'єкт	Властивість	Значення
Форма (Form)	Name	frmExampleIf
	Caption	Програма - приклад If
	BackColor	білий
Командна кнопка (Command Button)	Name	cmdSolve
	Caption	Розрахунок
	Font	12 пунктів, напівжирний
Командна кнопка (Command Button)	Name	cmdClear
	Caption	Очистка
	Font	12 пунктів, напівжирний
Командна кнопка (Command Button)	Name	cmdExit
	Caption	Вихід
	Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lbla
	Caption	Перемінна а
	BackColor	білий
	Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lblb
	Caption	Перемінна b
	BackColor	білий
	Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lblx
	Caption	Перемінна х
	BackColor	білий
	Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lbly
	Caption	Результат
	BackColor	білий
	Font	12 пунктів, напівжирний
Текстове поле (TextBox)	Name	txta
	Text	“” (порожній рядок)
Текстове поле (TextBox)	Name	txtb
	Text	“” (порожній рядок)
Текстове поле (TextBox)	Name	txtx
	Text	“” (порожній рядок)
Текстове поле (TextBox)	Name	txty
	Text	“” (порожній рядок)
Об'єкт OLE(OLE)	Name	ole1

Характеристика коду програми подана в таблиці.

Дані в рядку коду	Коментар
Option Explicit	Оголошення змінних:
Dim a, b, x, y	a, b, x, y
Private Sub cmdClear_Click()	Заголовок процедури, яка виконується у випадку події Click – клацання лівою кнопкою миші на кнопці cmdClear (Очистка).
txta.Text = ""	Властивості Text текстового поля txta (для введення перемінної а) привласнюється значення “” (порожній рядок - пробіл).
txtb.Text = ""	Властивості Text текстового поля txtb (для введення перемінної b) привласнюється значення “” (порожній рядок - пробіл).
txtx.Text = ""	Властивості Text текстового поля txtx (для введення перемінної x) привласнюється значення “” (порожній рядок - пробіл).
txty.Text = ""	Властивості Text текстового поля txty (для виведення результату) привласнюється значення “” (порожній рядок - пробіл).
End Sub	Кінець процедури cmdClear_Click.
Private Sub cmdExit_Click()	Заголовок процедури, яка виконується у випадку клацання лівою кнопкою миші на кнопці Вихід.
End	Кінець роботи програми
End Sub	Кінець процедури cmdExit_Click.
Private Sub cmdRachet_Click()	Заголовок процедури, яка виконується у випадку події Click на кнопці cmdRachet (Розрахунок).
a = Val(txta.Text)	Змінній a привласнюється значення властивості Text об'єкта txta - значення числа, яке введено за допомогою клавіатури. Оскільки значення текстового поля має тип даних string (текстові дані), щоб можна було виконувати обчислення, їх треба перетворювати до числових значень з використанням функції Val.
b = Val(txtb.Text)	Змінній b привласнюється значення властивості Text об'єкта txtb - значення числа, яке введено за допомогою клавіатури.
x = Val(txtx.Text)	Змінній x привласнюється значення властивості Text об'єкта txtx - значення числа, яке введено за допомогою клавіатури.
If x >= 0 Then	якщо x більше або рівно 0, то
y = a * x + b	У змінну y записується результат a*x+b.
Else	інакше
y = a * x - b	У змінну y записується результат a*x-b.
End If	Завершення оператору If
txty.Text = Str(y)	Властивості Text об'єкту txty привласнюється значення змінної У. За допомогою функції Str виконується перетворення числового значення змінної У у рядок символів.
End Sub	Кінець процедури cmdRachet _Click.