Programalama > VISUAL BASIC

Dim kont, ks, ky As Long
Private Sub Command1_Click()

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 = "kaldı"
Case Else
Text10.Text = "geçti"
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 = ""

End Sub

Private Sub Command3_Click()
kont = MsgBox("çıkacakmısınız?", vbQuestion + vbYesNo, "çıkış")
Select Case kont
Case vbYes
End
End Select
End Sub

Private Sub Form_Load()
giriş:
ky = InputBox("kaç yazılı gircen")
ks = InputBox("kaç sözlü gircen")
If (ky < 2 Or ky > 4) Or (ks < 2 Or ks > 4) Then
MsgBox "yanlış değer"
GoTo giriş
End If
If ky = 2 Then
Text3.Enabled = False
Text3.Text = "---"
End If

End Sub

Private Sub Text1_LostFocus()
If Val(Text1.Text) > 100 Or Val(Text1.Text) < 0 Then
MsgBox "Y"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Text2_LostFocus()
If Val(Text2.Text) > 100 Or Val(Text2.Text) < 0 Then
MsgBox "Y"
Text2.Text = ""
Text2.SetFocus
End If
End Sub

Private Sub Text3_LostFocus()
If Val(Text3.Text) > 100 Or Val(Text3.Text) < 0 Then
MsgBox "Y"
Text3.Text = ""
Text3.SetFocus

End If
End Sub

Private Sub Text4_LostFocus()
If Val(Text4.Text) > 100 Or Val(Text4.Text) < 0 Then
MsgBox "Y"
Text4.Text = ""
Text4.SetFocus
End If
End Sub

Private Sub Text5_LostFocus()
If Val(Text5.Text) > 100 Or Val(Text4.Text) < 0 Then
MsgBox "Y"
Text5.Text = ""
Text5.SetFocus
End If
End Sub

Private Sub Text6_LostFocus()
If Val(Text6.Text) > 100 Or Val(Text6.Text) < 0 Then
MsgBox "Y"
Text6.Text = ""
Text6.SetFocus
End If
End Sub