Расчетная работа по дисциплине “Визуально-объектное программирование”
Вариант 2
Создайте форму вида:
Создайте процедуру, которая запускается после щелчка на кнопке Ок. Процедура должна проверять правильность введенных данных и в случае их корректности записывать данные в файл. После записи данных содержимое полей должно быть очищено. После щелчка на кнопке Отмена очистить содержимое всех полей.
Private Sub Command1_Click()
If Option1.Value = True Then
b = "Муж"
ElseIf Option2.Value = True Then
b = "жен"
Else
MsgBox "Выберите пол"
End If
If Option3.Value = True Then
c = "Наличные"
ElseIf Option4.Value = True Then
c = "Кредитная Карта"
Else
MsgBox "Выберите способ оплаты"
End If
If IsNumeric(Text1) = True Then
MsgBox "Введите фамилию"
Text1 = " "
Text1.SetFocus
Exit Sub
Else
If IsNumeric(Text2) = True Then
MsgBox "Введите Имя"
Text2 = " "
Text2.SetFocus
Exit Sub
Else
If IsNumeric(Text3) = True Then
MsgBox "Введите отчество"
Text3 = " "
Text3.SetFocus
Exit Sub
Else
a = List1.ListIndex
Select Case a
Case Is = 0
e = 1
Case Is = 1
e = 2
Case Is = 2
e = 3
Case Is = 3
e = 4
Case Is = 4
e = 5
End Select
Text4 = 100
Text5 = Text4 * e
Dim file As Integer
file = 1
Open "E:\Text1.txt" For Append As file
Write #file, "Фамилия: " & Text1.Text
Write #file, "Имя: " & Text2.Text
Write #file, "Отчество: " & Text3.Text
Write #file, "Стоимость 1 дня проживания: " & Text4.Text
Write #file, "К оплате: " & Text5.Text
Write #file, "Номер: " & Combo1.Text
Write #file, "продолжительность проживания: " & List1.Text
Write #file, "пол: " & b
Write #file, "оплата: " & c
Close file
End If
End If
End If
End Sub
Private Sub Command2_Click()
Form1.Hide
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "101", 0
Combo1.AddItem "102", 1
Combo1.AddItem "103", 2
Combo1.AddItem "104", 3
Combo1.AddItem "105", 4
List1.AddItem "1", 0
List1.AddItem "2", 1
List1.AddItem "3", 2
List1.AddItem "4", 3
List1.AddItem "5", 4
End Sub