Читайте также:
|
Цель работы – овладеть навыками работы в визуальной среде программирования при создании приложения для операционной системы Windows, освоить приемы обработки некорректных действий пользователя при работе в приложением.
1. Запустить MS Visual Basic 6.0
2. Выбрать вид нового файла Standart.exe.
3. Разместить на форме элементы управления и определить значения свойства Name каждого элемента формы в соответствии рис. 4.
Рис. 4 Дизайн формы для проекта «АРМ экономиста»
4. Добавить к форме программный код обработки событий в соответствии с листингом 1.
Листинг 1. Коды приложения «АРМ экономиста»
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox ("Введите сумму доходов")
Text1.SetFocus
GoTo m1
End If
If Text2 = "" Then
MsgBox ("Введите стоимость покупных товаров")
Text2.SetFocus
GoTo m1
End If
If Text4 = "" Then
MsgBox ("Введите коммерческие расходы")
Text4.SetFocus
GoTo m1
End If
If Text6 = "" Then
MsgBox ("Введите ставку налога на прибыль")
Text6.SetFocus
GoTo m1
End If
Text3 = Text1 - Text2
Text5 = Text3 - Text4
Text7 = Text5 * Text6 / 100
If Option1.Value = True Then
Text10 = Text5 * Text8 / 100
Text11 = Text5 * Text9 / 100
End If
m1: End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Option1.Value = False
End Sub
Private Sub Command3_Click()
Dim w As fil
If Option2.Value = True And Text12 <> "" Then
Open Text12.Text + ".txt" For Random As #1 Len = 2048
Get #1, 1, w
Text1.Text = w.d
Text2.Text = w.t
Text4.Text = w.k
Text6.Text = w.s
Text8.Text = w.sf
Close 1
End If
If Option3.Value = True And Text12 <> "" Then
w.d = Text1.Text
w.t = Text2.Text
w.k = Text4.Text
w.s = Text6.Text
w.sf = Text8.Text
Open Text12.Text + ".txt" For Random As #1 Len = 2048
Put #1, 1, w
Close 1
End If
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Option1_Click()
If Text6 = "" Then
MsgBox ("Введите ставку налога на прибыль")
Text8.Enabled = True
Text6.SetFocus
GoTo m2
End If
If Text8 = "" Then
MsgBox ("Введите ставку налога на прибыль в ФБ")
Text8.Enabled = True
Text8.SetFocus
GoTo m2
End If
m2: End Sub
Private Sub Option2_Click()
If Option3.Value = True Then
Option3.Value = False
End If
If Text12 = "" Then
MsgBox ("Введите имя файла")
Text12.SetFocus
End If
End Sub
Private Sub Option3_Click()
If Option2.Value = True Then
Option2.Value = False
End If
If Text12 = "" Then
MsgBox ("Введите имя файла")
Text12.SetFocus
End If
End Sub
Private Sub Text8_Change()
If Text9 = "" Then
Text9 = Text6 - Text8
End If
End Sub
Дата добавления: 2015-09-11; просмотров: 97 | Поможем написать вашу работу | Нарушение авторских прав |