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

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

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 оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Гидравлический расчёт трубопроводов Пример 3.4. Вентиляционная труба d=0,1м (100 мм) имеет длину l=100 м. Определить давление, которое должен развивать вентилятор, если расход воздуха, подаваемый по трубе, . Давление на выходе . Местных сопротивлений по пути не имеется. Температура...

Огоньки» в основной период В основной период смены могут проводиться три вида «огоньков»: «огонек-анализ», тематический «огонек» и «конфликтный» огонек...

Упражнение Джеффа. Это список вопросов или утверждений, отвечая на которые участник может раскрыть свой внутренний мир перед другими участниками и узнать о других участниках больше...

СПИД: морально-этические проблемы Среди тысяч заболеваний совершенно особое, даже исключительное, место занимает ВИЧ-инфекция...

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

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

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