Студопедия — Private Sub CommandButton1_Click()
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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. Значення властивостей елементів керування

 

Елемент керування Назва властивості Значення властивості
TextBox1 Name Font Text План Times New Roman, жирний, 14
TextBox2 Name Font Text Факт Times New Roman, жирний, 14
Label 1 Caption Font Факт Times New Roman, жирний, 14
Label 2 Caption Font План Times New Roman, жирний, 14
Label 3 Name Caption Виконання
Label 4 Name Caption Відсоток
CommandButton1 Caption Обчислити
Form Caption Програма обчислення відсотка виконання плану

 

Текст програмного коду:

 







Дата добавления: 2014-11-10; просмотров: 573. Нарушение авторских прав; Мы поможем в написании вашей работы!



Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

ПУНКЦИЯ И КАТЕТЕРИЗАЦИЯ ПОДКЛЮЧИЧНОЙ ВЕНЫ   Пункцию и катетеризацию подключичной вены обычно производит хирург или анестезиолог, иногда — специально обученный терапевт...

Ситуация 26. ПРОВЕРЕНО МИНЗДРАВОМ   Станислав Свердлов закончил российско-американский факультет менеджмента Томского государственного университета...

Различия в философии античности, средневековья и Возрождения ♦Венцом античной философии было: Единое Благо, Мировой Ум, Мировая Душа, Космос...

Травматическая окклюзия и ее клинические признаки При пародонтите и парадонтозе резистентность тканей пародонта падает...

Подкожное введение сывороток по методу Безредки. С целью предупреждения развития анафилактического шока и других аллергических реак­ций при введении иммунных сывороток используют метод Безредки для определения реакции больного на введение сыворотки...

Принципы и методы управления в таможенных органах Под принципами управления понимаются идеи, правила, основные положения и нормы поведения, которыми руководствуются общие, частные и организационно-технологические принципы...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия