Dim kontrol As Integer
Private Sub Command1_Click()
If Text1.Text < 0 Or Text1.Text > 100 Then
MsgBox "yanlış"
ElseIf Text2.Text < 0 Or Text2.Text > 100 Then
MsgBox "yanlış"
ElseIf Text3.Text < 0 Or Text3.Text > 100 Then
MsgBox "yanlış"
ElseIf Text4.Text < 0 Or Text4.Text > 100 Then
MsgBox "yanlış"
ElseIf Text5.Text < 0 Or Text5.Text > 100 Then
MsgBox "yanlış"
ElseIf Text6.Text < 0 Or Text6.Text > 100 Then
MsgBox "yanlış"
End If
Text7.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3
Text8.Text = (Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 3
Text9.Text = (Val(Text7.Text) + Val(Text8.Text)) / 2
Select Case Text9.Text
Case 0 To 44
Text10.Text = "ÇAKTI"
Case Else
Text10.Text = "YIRTTI"
End Select
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 = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
kontrol = MsgBox("ÇIKMAK İSTEDİĞİNİZE EMİN MİSİNİZ?", vbQuestion + vbYesNo, "Çıkış Formu")
Select Case Control
Case vbYes
End
End Select
End Sub