Студопедия Главная Случайная страница Обратная связь

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

Option Explicit





Dim r1, r2 As Double

Dim p As Boolean

Dim oper As String

=============================================================== Следующая процедура запускает форму с калькулятором и отражает ее на экране

====================================================================

Sub Calculator()

Load UserForm.Calculator

Show UserForm

End Sub

================================================================

Ряд следующих процедур являются приватными, то есть работают в рамках формы, и обрабатывают нажатие кнопок с цифрами и знаками действий.

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

=====================================================================

Private Sub CommandButton1_Click()

r1 = Val(TextBox1.text)

p = True

oper = "+"

End Sub

================================================================

CommandButton10_Click() проверяет истинность переменной p. Если она истинна, то в текстовом поле пишется 0, затем переменной p присваивается значение ложь. Если в текстовом поле не ноль, то к содержащемуся там числу приписываем 7. Аналогично работают процедуры для кнопок с другими цифрами.

====================================================================

Private Sub CommandButton10_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "7" Else TextBox1.text = "7"

End Sub

 

Private Sub CommandButton11_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "2" Else TextBox1.text = "2"

End Sub

 

Private Sub CommandButton12_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "5" Else TextBox1.text = "5"

End Sub

 

Private Sub CommandButton13_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "8" Else TextBox1.text = "8"

End Sub

 

Private Sub CommandButton14_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "3" Else TextBox1.text = "3"

End Sub

 

Private Sub CommandButton15_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "6" Else TextBox1.text = "6"

End Sub

 

Private Sub CommandButton16_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "9" Else TextBox1.text = "9"

End Sub

 

Private Sub CommandButton17_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "0" Else TextBox1.text = "0"







Дата добавления: 2015-06-15; просмотров: 303. Нарушение авторских прав; Мы поможем в написании вашей работы!




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


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


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


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

Реформы П.А.Столыпина Сегодня уже никто не сомневается в том, что экономическая политика П...

Виды нарушений опорно-двигательного аппарата у детей В общеупотребительном значении нарушение опорно-двигательного аппарата (ОДА) идентифицируется с нарушениями двигательных функций и определенными органическими поражениями (дефектами)...

Особенности массовой коммуникации Развитие средств связи и информации привело к возникновению явления массовой коммуникации...

Метод Фольгарда (роданометрия или тиоцианатометрия) Метод Фольгарда основан на применении в качестве осадителя титрованного раствора, содержащего роданид-ионы SCN...

Потенциометрия. Потенциометрическое определение рН растворов Потенциометрия - это электрохимический метод иссле­дования и анализа веществ, основанный на зависимости равновесного электродного потенциала Е от активности (концентрации) определяемого вещества в исследуемом рас­творе...

Гальванического элемента При контакте двух любых фаз на границе их раздела возникает двойной электрический слой (ДЭС), состоящий из равных по величине, но противоположных по знаку электрических зарядов...

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