Kod: Tümünü seç
Private Sub Command1_Click()
Text4 = Val(Text1) - (Val(Text2) + Val(Text3))
a = Val(Text3) / 4
Text5 = Val(Text2) - Val(a)
Text7 = Val(Text5) * Val(Text6)
Combo1.Clear
If (Text1 <> "") And (Text2 <> "") And (Text3 <> "") And (Text6 <> "") Then
If Val(Text7) <= 100 Then
Combo1.AddItem "reklamcılık"
Combo1.AddItem "ögretmen"
Combo1.AddItem "rebe"
ElseIf Val(Text7) > 100 Then
Combo1.AddItem "doktor"
Combo1.AddItem "avukat"
Combo1.AddItem "mühendis"
Combo1.AddItem "reklamcılık"
Combo1.AddItem "ögretmen"
End If
Else
MsgBox "bos yer var"
Text4 = ""
Text5 = ""
Text7 = ""
Combo1.Clear
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Text3_Change()
b = Val(Text1) - Val(Text2)
If Val(b) < Val(Text3) Then
MsgBox "Yanlıs sayısını fazla girdiniz", vbCritical, "HATA!"
Text3 = ""
End If
End Sub