Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Приклад використання оператора If
|
|
Використання оператора If розглянуто на прикладі програми розрахунку суми до виплати співробітникам підприємства. Користувач програми повинен увести суму нарахованої заробітної платні. З нарахованої суми слід відняти прибутковий податок і внесок у пенсійний фонд. Прибутковий податок сплачується в розмірі 13% від нарахованої заробітної плати. Внесок у пенсійний фонд складає 1% від нарахованої заробітної платні, якщо нараховано менш 150 грн., і 2% в іншому випадку. У програмі використовуються такі змінні:
S – сума нарахованої заробітної платні;
PP – сума прибуткового податку;
PF – сума внеску в пенсійний фонд;
SV – сума до виплати.
Блок-схема розв’язання задачі подана на рисунку 2.1.
 |
Рисунок 2.1 - Блок-схема розв’язання задачі “Розрахунок суми до виплати працівникові підприємства”
На етапі візуального програмування потрібно створити форму, подану на рисунку 2.2.
Рисунок 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 | lblS |
| Caption | Нараховано: | |
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Етикетка (Label) | Name | lblSVZ |
| Caption | Сума до виплати: | |
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Етикетка (Label) | Name | lblSV |
| Caption | ||
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Alignment | 1 – Right Justify (вирівнювання праворуч) | |
| Текстове поле (TextBox) | Name | TxtS |
| Text | “ë û ” (порожній рядок) |
Характеристика коду програми подана в таблиці.
| Дані в рядку коду | Коментар |
| Option Explicit | Оголошення змінних: |
| Dim S, PP, PF, SV | S – сума нарахованої заробітної платні; PP – сума прибуткового податку; PF – сума внеску в пенсійний фонд; SV – сума до виплати. |
| Private Sub cmdClear_Click() | Заголовок процедури, яка виконується у випадку події Click – клацання лівою кнопкою миші на кнопці cmdClear (Очистка). |
| TxtS.Text = " " | Властивості Text текстового поля txtS (для введення нарахованої суми) привласнюється значення “ë û ” (порожній рядок). |
| lblSV.Caption = 0 | Властивості Caption етикетки lblSV (для виведення результату – суми до виплати) привласнюється значення 0. |
| End Sub | Кінець процедури cmdClear_Click. |
| Private Sub cmdExit_Click() | Заголовок процедури, яка виконується у випадку події Click – клацання лівою кнопкою миші на кнопці cmdExit (Вихід). |
| End | Кінець роботи програми |
| End Sub | Кінець процедури cmdExit_Click. |
| Private Sub cmdSolve _Click() | Заголовок процедури, яка виконується у випадку події Click на кнопці cmdSolve (Розрахунок). |
| S = Val(txtS.Text) | Змінній S привласнюється значення властивості Text поля txtS – значення нарахованої суми. При цьому виконується перетворення текстового значення на числове за допомогою функції Val. |
| PP=S-*0.13 | РР привласнюється значення (S-170)*0.2+15.3 /15, 3 - податок, який сплачується з суми 170 грн./ |
| If S < = 150 Then | Якщо S менше або рівно 150, то |
| PF=S*0.01 | РF привласнюється значення S*0.01 |
| else | інакше |
| PF=S*0.02 | РР привласнюється значення S*0.02 |
| End If | Завершення оператору If |
| SV=S-PP-PF | Змінній SV привласнюється значення S-PP-PF |
| lblSV.Caption = str(SV) | Властивості Caption етикетки lblSV привласнюється значення SV, яке функцією str перетворюється з числового типу на текстовий. |
| End Sub | Кінець процедури cmdSolve _Click. |
2. Організація циклічних обчислювальних процесів. Оператор циклу For... Next.
Циклічними є алгоритмічні процеси, які дозволяють повторювати частину програми декілька разів. Кожне повторювання операторів всередині циклу називають ітерацією. Кількість повторювань (ітерацій) може бути відомою заздалегідь або залежати від істинності деякої логічної умови.
Оператор циклу For... Next використовується тоді, коли потрібно виконати групу операторів заздалегідь відоме число раз.
Загальна форма оператора:
For I = Start to Finish Step N
Блок_операторів
Next
Процес виконання оператора For... Next такий:
a. Змінній I присвоюється значення змінної або виразу Start.
b. Значення I порівнюється зі значенням змінної або виразом Finish.
c. Якщо I < = Finish, виконується блок операторів у тілі циклу - чергова ітерація (повторення). Потім змінна I (лічильник циклу) збільшується на N, виконується перехід до п. b. Якщо I > Finish, цикл завершує свою роботу.
Приклад використання циклу For … Next
Як приклад розглядається створення програми обчислення суми на рахунку в банку. Користувач повинен ввести такі дані: суму попереднього внеску на рахунок - SPV, банківський відсоток - V, період часу - P. Після натиснення кнопки Розрахунок, програма повинна вивести суму SR, яка буде на рахунку після P років при визначеному банківському відсотку, якщо відома сума первинного внеску. Формула розрахунку суми така:
1. На початок роботи програми SR = SPV.
2. Кожного року сума на рахунку змінюється таким чином 
.
Блок-схем розв’язання задачі подана на рис. 2.4.
На етапі візуального програмування потрібно створити форму, подану на рис. 2.5.
 |
Рисунок 2.4 - Блок-схема розв’язання задачі «Обчислення суми на рахунку»
Рисунок 2.5 - Вікно програми – прикладу використання оператору For...Next
Характеристика форми, елементів управління форми подана в таблиці.
| Об'єкт | Властивість | Значення |
| Форма (Form) | Name | frmExampleFor |
| Caption | Програма - приклад циклу For | |
| BackColor | білий | |
| Командна кнопка (Command Button) | Name | cmdSolve |
| Caption | & Розрахунок | |
| Командна кнопка (Command Button) | Name | cmdClear |
| Caption | & Очистка | |
| Командна кнопка (Command Button) | Name | cmdExit |
| Caption | & Вихід | |
| Етикетка (Label) | Name | lblSPV |
| Caption | Сума первинного внеску: | |
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Етикетка (Label) | Name | lblV |
| Caption | Банківський відсоток: | |
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Етикетка (Label) | Name | lblP |
| Caption | Період: | |
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Етикетка (Label) | Name | lblS |
| Caption | Сума на рахунку: | |
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Етикетка (Label) | Name | lblSR |
| Caption | ||
| BackColor | білий | |
| Font | 12 пунктів, напівжирний | |
| Alignment | 1 – Right Justify (вирівнювання праворуч) | |
| Текстове поле (TextBox) | Name | TxtSPV |
| Text | “ë û ” (порожній рядок) | |
| Текстове поле (TextBox) | Name | TxtV |
| Text | “ë û ” (порожній рядок) | |
| Текстове поле (TextBox) | Name | TxtP |
| Text | “ë û ” (порожній рядок) |
Характеристика коду програми подана в таблиці.
| Дані в рядку коду | Коментар |
| Option Explicit | Оголошення змінних: |
| Dim SPV, V, P, SR | SPV – сума первинного внеску; V – банківський відсоток; P – період; SR – сума на рахунку після P років. |
| Private Sub cmdClear_Click() | Заголовок процедури, яка пов’язана з подією Click на кнопці cmdClear (Очистка). |
| TxtSPV.Text = " " | Властивості Text текстового поля txtSPV (для введення суми первинного внеску) привласнюється значення “ë û ” (порожній рядок). |
| TxtV.Text = " " | Властивості Text текстового поля txtV (для введення банківського відсотку) привласнюється значення “ë û ” (порожній рядок). |
| TxtP.Text = " " | Властивості Text текстового поля txtP (для введення періоду) привласнюється значення “ë û ” (порожній рядок). |
| lblSR.Caption = 0 | Властивості Caption етикетки lblSR (для виведення результату) привласнюється значення 0. |
| End Sub | Кінець процедури cmdClear_Click. |
| Private Sub cmdExit_Click() | Заголовок процедури, яка виконується у випадку події Click – клацання лівою кнопкою миші на кнопці cmdExit (Вихід). |
| End | Кінець роботи програми |
| End Sub | Кінець процедури cmdExit_Click. |
| Private Sub cmdSolve _Click() | Заголовок процедури, яка пов’язана з подією Click на кнопці cmdSolve (Розрахунок). |
| SPV = Val(txtSPV.Text) | Змінній SPV привласнюється значення властивості Text поля txtSPV – значення суми первинного внеску, яка введена в поле txtSPV. При цьому виконується перетворення текстового значення на числове за допомогою функції Val. |
| V = Val(txtV.Text) | Змінній V привласнюється значення властивості Text поля txtV – значення банківського відсотка. |
| P = Val(txtP.Text) | Змінній P привласнюється значення властивості Text поля txtP – значення періоду. |
| SR=SPV | Змінній SR перед початком циклу привласнюється значення змінної SPV. |
| For i=1 To P | Для і, що змінюється від 1 до Р (оскільки Step N не визначено, крок зміни дорівнює 1), доки і< =P виконується дія |
| SR=SR*(100+V)/100 | змінній SR привласнюється значення – попереднє значення SR помножене на (100+V)/100 |
| Next | Значенню і привласнюється і+1, виконується перехід до рядку For. |
| lblSR.Caption = str(SR) | Властивості Caption етикетки lblSR привласнюється значення SR, яке функцією str перетворюється з числового типу текстовий. |
| End Sub | Кінець процедури cmdSolve _Click. |
3. Використання елементів управління в програмах Visual Basic.
Горизонтальну або вертикальну смуги прокручування можна помістити у форму за допомогою відповідних елементів на панелі: 
HscrollBar, 
VscrollBar. Прийнято, щоб імена смуг прокручування у програмах починалися зі сполучення hsb для горизонтальних смуг і vsb для вертикальних.
Переміщення бігунка по смузі призводить до зміни властивості Value елемента, що може знаходиться в діапазоні, обумовленому властивостями Max і Min елемента. Властивість Small Change визначає крок зміни властивості Value при використанні кнопок 
, 
або 
, 
. У програмах смуги прокручування використовуються, на відміну від вікон, не для переміщення всередині вікна, а для визначення значення засобом переміщення бігунка. У результаті виконання переміщення бігунка по смузі прокручування відбувається подія Change, тобто події Change відповідає зміна місця розташування бігунка на смузі, подія відбувається після того, як бігунок займе нове місце. Процесу переміщення бігунка відповідає подія Scroll, лише бігунок зрушив з місця – відбулась подія Scroll.
Для перемикачів (OptionButton) в області діалогу, обмеженою рамкою (Frame), у стані «включено» значення властивості Value дорівнює True (Істина), у стані «вимкнено» - False (Брехня). Аналізуючи значення властивості Value кожного перемикача можна виконувати визначені дії. Імена перемикачів доцільно починати зі сполучень літер opt, груп - fra.
Елемент прапорець (Check Box) у стані «включено» одержує значення властивості Value - True (1), у стані «вимкнено» - False (0). У програмах при аналізі стану прапорців слід використовувати значення 1 або 0. Імена прапорців слід починати зі сполучень літер chk.
Списки, що розчиняються, створюються за допомогою елемента 
(ComboBox), вони використовуються для вибору одного значення з переліку можливих. Імена списків, що розчиняються, доцільно починати зі сполучень літер cbo. Перелік можливих значень визначається як значення властивості List об’єкта. Значення властивості Text відповідає поточному стану списку, дорівнює тому значенню, яке обрано зі списку.
Приклад створення програми з використанням елементів управління.
Визначити суму амортизаційних відрахувань для різних видів основних засобів, якщо відомо їхню залишкову вартість.
Відсоток амортизаційних відрахувань визначається по формулі залежно від виду основних засобів:
· для будинків - 10%;
· для транспортних засобів - 15%;
· для утаткування - 12%.
Залишкову вартість вибирати за допомогою лінійки, а вид основних засобів - за допомогою перемикачів.
Умовні позначки:
Z - залишкова вартість основних засобів;
S - сума амортизаційних відрахувань.
Виконання:
1. Створюємо форму пректу.
 |
2. Задаємо властивості для форми та створюваних об’єктів.
для линейкі (HscrollBar):
Name - hsbLin
Max - 30000
Min - 0
Value - 0
SmallChange - 100
для 1 - го переключателя (OptionButton):
Name - optF1
Caption - здания
Value - True
для 2 - го переключателя:
Name - optF2
Caption - транспорт
Value - False
для 3 - го переключателя:
Name - optF3
Caption - оборудование
Value - False
3. Створюємо програмний код програми.
Процедура, що виконується під час переміщення бігунка по лінейці.
Private Sub hsbLin_Scroll()
hsbLin_Change
End Sub
Процедура, що виконується при завершенні переміщення бігунка по лінейці.
Private Sub hsbLin_ Change ()
txtZ.Text = hsbLin. Value
End Sub
3.3 Процедура виконання розрахунків:
Private Sub cmdRas_Click()
Z= txtZ.Text
If optF1.Value = True Then ¿
S = Z* 0.1 ¿
Else ¿
If optF2.Value = True Then ¿
S = Z * 0.15 ¿
Else ¿
S = Z * 0.12 ¿
End if ¿
End if ¿
txtS.Text = str(S)
End Sub
3.4 Процедура завершення роботи програми:
Private Sub cmdVix_Click()
End
End Sub
3.5 Процедура очистки полей:
Private Sub cmdOch_Click()
txtZ.Text = “”
txtS.Text = “”
End Sub
4. Запускаємо програму на виконання.
|
|