Студопедия


Авиадвигателестроения Административное право Административное право Беларусии Алгебра Архитектура Безопасность жизнедеятельности Введение в профессию «психолог» Введение в экономику культуры Высшая математика Геология Геоморфология Гидрология и гидрометрии Гидросистемы и гидромашины История Украины Культурология Культурология Логика Маркетинг Машиностроение Медицинская психология Менеджмент Металлы и сварка Методы и средства измерений электрических величин Мировая экономика Начертательная геометрия Основы экономической теории Охрана труда Пожарная тактика Процессы и структуры мышления Профессиональная психология Психология Психология менеджмента Современные фундаментальные и прикладные исследования в приборостроении Социальная психология Социально-философская проблематика Социология Статистика Теоретические основы информатики Теория автоматического регулирования Теория вероятности Транспортное право Туроператор Уголовное право Уголовный процесс Управление современным производством Физика Физические явления Философия Холодильные установки Экология Экономика История экономики Основы экономики Экономика предприятия Экономическая история Экономическая теория Экономический анализ Развитие экономики ЕС Чрезвычайные ситуации ВКонтакте Одноклассники Мой Мир Фейсбук LiveJournal Instagram

End Sub. 3. Insert / User Form – создание формы




3. Insert / User Form – создание формы. Свойства формы:

Свойство Значение
Name frmValuta
Caption Пересчет валюты

4. Размещение на форме текстовых полей, меток, флажков, рамок, командных кнопок, имеющих свойства:

Свойства текстовых полей:

Name Text
txtEurRub 35,70
txtUSDRubl 24,85
txtSumma -

Свойства меток текстовых полей:

Name Autosize Caption
lblEURRUB True Евро/Рубль
lblUSDRub True Доллар/Рубль
lblSumma True Сумма

Свойства блока кнопок для выбора курса валют:

Элемент Name Caption Autosize Value
Рамка FraKurs Курс Нет Нет
Радиокнопка optEURRUB ЕВРО False False
Радиокнопка optUSDRUB ДолларСША False True

Свойства блока кнопок для выбора типа операции:

Элемент Name Caption Autosize Value
Рамка FraExec Вид операции Нет Нет
Радиокнопка optValutaRub Валюта-Рубли False True
Радиокнопка optRubValuta Рубли-Валюта False False

Свойства командных кнопок:

Name Caption Default
cmdGo Расчет True
cmdReset Сброс False

Свойства текстовой метки для вывода результатов расчетов:

Name Caption Autosize BorderStyle Value
lblItog Итого: False Нет
Операторы программы
Option Explicit
Private Sub cmdGo_Click()
‘Контроль данных
If Not IsNumeric(txtUSDRubl.Text) Or Not IsNumeric(txtEurRub.Text) Or Not IsNumeric(txtSumma.Text) Then
MsgBox "Введены неверные данные !", vbCritical, ""
Exit Sub
End If
‘Чтение курса валюты
Dim kurs As Single
If OptUSDRUB.Value Then
kurs = CSng(txtUSDRubl.Text)
Else
kurs = CSng(txtEurRub.Text)
End If
‘Проведение вычислений
Dim summa As Single
Dim mes As String
summa = CSng(txtSumma.Text)
Dim itogo As Single
If optValutaRub.Value Then
itogo = kurs * summa
mes = " Валюта - Рубли «
Else
itogo = summa / kurs
mes = " Рубли - Валюта "
End If
lblItog.Caption = " Итого: Вид операции " & Chr(10) & Chr(13) & mes & Format(itogo, "###0.00")
End Sub
Private Sub cmdReset_Click()
‘Возврат формы в исходное состояние
txtUSDRubl.Text = "24,85"
txtEurRub.Text = "35,70"
txtSumma.Text = ""
lblItog.Caption = " Итого: "
optValutaRub.Value = True
OptUSDRUB.Value = True
End Sub

БАЗЫ ДАННЫХ ACCESS








Дата добавления: 2015-04-08; просмотров: 727; Опубликованный материал нарушает авторские права? | Защита персональных данных | ЗАКАЗАТЬ РАБОТУ


Не нашли то, что искали? Воспользуйтесь поиском:

Лучшие изречения: Сдача сессии и защита диплома - страшная бессонница, которая потом кажется страшным сном. 8700 - | 7123 - или читать все...

Читайте также:

 

35.175.191.168 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.


Генерация страницы за: 0.001 сек.