2015-04-08
1208
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
