Private Sub CommandButton1_Click()End Sub Між цими операторами треба ввести код програми:
Dim Ціна As Currency Dim Кількість As Integer Ціна = Val(TextBox1.Text) Кількість = Val(TextBox2.Text) TextBox3.Text = Ціна * Кількість
Перші три оператори оголошують тип змінних. Наступні два оператори присвоюють змінним Ціна і Кількість значення, введені користувачем у перше та друге текстові поля та перетворюють введені дані в числові значення. Наступний оператор присвоює властивості Text третього поля результат перемноження змінних Ціна і Кількість із відображенням результату в третьому текстовому полі. Запуск додатка виконується за допомогою кнопки Run. Введення даних виконується в перше та друге текстове поле. Обчислення виконується натисненням лівою клавішею миші на кнопці «Обчислити». Збереження проекту. Робота над проектом закінчується виконанням команди File ► Save.
8.4.2. Програмування обчислювальних процесів що розгалужуються
Обчислювальний процес, що розгалужується, передбачає вибір одного з кількох можливих варіантів обчислень залежно від результату перевірки умови, яка має вигляд виразу логічного типу (наприклад: X> Y, 15< > 30, (A> B) And (C< D), (A> B) Or (C< D), Not(x=0)). Для вибору одного з кількох можливих варіантів обчислень залежно від результату перевірки умови використовують наступні оператори умовного переходу If... Then.... Else:
Однорядкова форма оператора If умова Then оператор 1[ Else оператор 2], де оператор1 та оператор 2 це любі оператори або можуть бути операторами умовного переходу (квадратні дужки вказують на те що оператор 2 не є обов’язковим). Багаторядкова форма If умова Then послідовність операторів 1 Else послідовність операторів 2 End if Синтаксис вкладеного умовного оператора If умова1 Then if умова 2 Then послідовність операторів A Else послідовність операторів B End if End if
Оператор If... Then.... Else if If головний умовний вираз Then послідовність операторів A Else if умовний вираз 1 Then послідовність операторів 1 Else if умовний вираз 2 Then послідовність операторів 2 ............................................ Else if умовний вираз N Then послідовність операторів N [ Else послідовність операторів B ] End if Наприклад.
Розрахувати відсоток виконання (ВВ) плану випуску продукції підприємством за місяць, користуючись формулою ВВ = ФВП/ПВП*100, де ФВП – фактичний випуск продукції, ПВП –плановий випуск продукції. Для розрахунку спочатку створюємо інтерфейс (рис.8.13).
Рисунок 8.3. Вікно інтерфейсу по розрахунку відсотка виконання (ВВ) плану
При створенні інтерфейсу враховувалось, що можуть бути такі випадки:
· план перевиконано на... відсотків; · план недовиконано на.. відсотків; · план виконано на 100%.
Якщо введені нульове значення плану тоді потрібно вивести: «Не задано план. Помилка». Значення властивостей елементів керування, встановлених на формі приведені в таб.8.5. Таблиця8.5. Значення властивостей елементів керування
Текст програмного коду:
|
