double arrow

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









Сейчас читают про: