Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Оператор If реалізує алгоритмічну конструкцію “Розгалуження”.
Загальна форма оператора:
If <умова> then
<Блок_операторів_1>
Else
<Блок_операторів_2>
End If
“Блок_операторів_1” виконується в тому випадку, якщо умова має значення «істинно». У тому випадку, якщо логічна умова має значення «брехня» виконується “Блок_операторів_2”.
Оператор If можна використовувати також у такій формі:
If умова Then
Блок_операторів
End If
Скорочена форма оператору If застосовується тоді, коли блок операторів слід виконувати лише при істинності деякої умови.
Алгоритми обчислювальних процесів містять хоча б один етап, що має більш одного спадкоємця, який включається в обчислювальний процес у залежності від виконання деякої умови. Напрямки, по яких може слідувати обчислювальний процес, називаються його гілками. Приклад: Записати у вигляді блок - схеми алгоритм обчислення:
1. У різноманітних гілках можна використовувати ті ж самі позначення перемінних.
2. Обчислення або процеси, що повторюються в різноманітних гілках блок - схеми, виносяться за межі розгалуження (у нашому прикладі це - обчислення а * х і друк результату).
3. Складні обчислення розбиваються на ряд простих.
З урахуванням перерахованих вимог, рішення задачі буде виглядати в так:
< >=
Рисунок 1. Блок-схема алгоритму обчислення
На етапі візуального програмування потрібно створити форму, подану на рис.2
Рисунок 2. Вікно програми-прикладу (форма) використання оператору 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. |
2. Оператор варіанти Select Case
Оператор Select Case подібно оператору If здійснює розгалуження, але при цьому дозволяє організувати розгалуження відразу по декількох напрямках.
Загальна форма оператора:
Дата публикования: 2015-01-13; Прочитано: 340 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!