Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Оператор Select Case

Приклад використання оператора множинного вибору. Розглянемо використання оператора множинного вибору Select Case на прикладі обчислення денного заробітку робітника з врахуванням тарифу і тарифного розряду. Код і форма відображені на рис. 3.8.

На формі розмістимо командну кнопку, яку перейменуємо на «Пуск» та відповідно змінимо напис на ній.

Подією для програмування оберемо клацання лівою кнопки миші на кнопці Пуск.

Для вибору тарифного коефіцієнта за розрядом використаємо оператор Select Case r.

Параметр вибору r може приймати 7 різних значень тож використання множинного оператора вибору значно зручніше ніж багаторазове використання лінійної форми умовного оператора If.

If r=1 then k=1

If r=2 then k=1.1

………………….

If r=7 then k=2.2

 

Private Sub Пуск_Click()

Dim Z!, r%, t!, tr!, k!

Т = Val(InputBox("Т", "Укажіть тариф"))

r = Val(InputBox("r", "Тарифний розряд"))

tr = Val(InputBox("tr", "Відпрацьований час"))

Select Case r

Case 1: k = 1: Case 2: k = 1.1: Case 3: k = 1.35:

Case 4: k = 1.5: Case 5: k = 1.7: Case 6: k = 2:

Case 7: k = 2.2

End Select

Z = t * tr * k

Print "Тариф Т=" & Т; " Грн/годину"

Print "Розряд r=" & r

Print "k=" & k

Print " Відпрацьовано tr=" & tr & " Годин"

Print "Заробіток Z=" & Z & " Грн."

End Sub

 

Рисунок 3.8. Результат обчислень заробітку

 

В вище розглянутому додатку запрограмовано подію, якою є щиглик на командній кнопці Пуск, єдиному елементу інтерфейсу встановленому на формі. Введеня даних здійснюється за допомогою функції InputBox, а фіксація їх і результату виконується безпосереднім виведенням на форму за допомогою оператора Print.

4.2. ПРОЕКТУВАННЯ ДОДАТКА НА БАЗІ ОПЕРАТОРІВ ЦИКЛУ

Циклічні операціїї, тобто виконання одних і тих же дій багаторазово при різних значеннях величин, які входять до циклу, використовуються в програмуванні доволі часто. Для організації циклу необхідно: а) задати початкове та кінцеве значення параметра циклу – змінної, що змінюється при повтореннях циклу. б) перевірити умову, яка забезпечує вихід з циклу при досягненні мети; в) вказати крок зміни параметру циклу.

Розрізняють цикли, де число повторень заздалегідь відоме (арифметичні) і такі цикли, де число повторень заздалегідь невідоме, але його можна визначити під час виконання циклу (ітераційні).

Якщо число повторень відома заздалегідь, то краще використовувати оператор циклу з лічильником, у протилежному випадку оператор умовного циклу з верхнім або нижнім закінченням. Вміння викорстовувати циклічні алгоритми є базовими для реалізації додатків з використанням масивів даних і масивів елементів керування. Вони дозволяють краще зрозуміти сутність циклічних поцесів, які зустрічаються під час розвязання різних задач на комп’ютері.

Цикл в програмі можна організувати за допомогою операторів циклу For...Next, While…Wend, Do...Loop.

 

4.3. ОПЕРАТОРИ УМОВНОГО ЦИКЛУ

 

Умовний цикл одержав свою назву через те, що при кожному повторенні превіряється виконання умови, і рішення про подальші дії приймається залежно від результатів перевірки.

<== предыдущая лекция | следующая лекция ==>
Умовний оператор If…Then…Else | Оператор циклу While…Wend
Поделиться с друзьями:


Дата добавления: 2014-01-04; Просмотров: 269; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.012 сек.