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
|
|