Лабораторная работа: Знайомство з середовищем розроблення проектів Visual Basic

Ф*Ц₁ , якщо Ф < Н ,

Пл = Н*Ц₁ +(Ф-Н)*Ц₂ , якщо Ф > Н та ,

Н*Ц₁ +(Ф-Н)*Ц₂ +Ш , якщо Ф > Н та > 20%, де

Ф	-	факт
Н	-	норма
Ц1	-	ціна при дотриманні норми
Ц2	-	ціна за кожний понаднормовий кіловат
Ш	-	штраф

Алгоритм розв'язання задачі

Розв'язання задачі здійснюється відповідно до алгоритму, що наведено на рис.1.

Рис.1 Схема алгоритму визначення відхилення від плану

Інтерфейс з користувачем

Розв’язання задачі виконується за допомогою форми, наведеної на рис.2

Код програми

Процедуру, що обробляє подію Клацання на кнопці «Обчислити», подано нижче.

Option Explicit Private Sub bВычислить_Click() Dim s As Currency s = 0 If edФакт <= edНорма Then s = edФакт * edЦена1 ElseIf (edФакт - edНорма) / edФакт * 100 <= 20 Then s = edНорма * edЦена1 + (edФакт - edНорма) * edЦена2 Else s = edНорма * edЦена1 + (edФакт - edНорма) * edЦена2 + edШтраф End If lblСумма = s End Sub

Реалізація проекту

Для реалізації проекту потрібно виконати наступне:

1. Запустити на виконання VB для створення нового проекту.

2. Задати заголовок форми «Плата за электроэнергию» та її ім'я frmПлата_за_электроэнергию.

3. На формі створити написи і текстові поля для вхідних даних План і Факт, Цена1, Цена2, Штраф.

4. Створити кнопку «Вычислить».