Ders Ortalaması

KULLANILAN BUTONLAR

1 ADET COMBO
1 ADET COMMAND
4 ADET TEXT
5 ADET LABEL


Private Sub Command1_Click()
Label5.Caption = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4)) / 4
End Sub

Private Sub Form_Load()

Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"

End Sub

Private Sub Text1_Change()
If Val(Text1) > 100 Or 0 > Val(Text1) Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text1.Text = ""
End If
End Sub

Private Sub Text2_Change()
If Val(Text2) > 100 Or Val(Text2) < 0 Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text2.Text = ""
End If

End Sub

Private Sub Text3_Change()
If Val(Text3) > 100 Or 0 > Val(Text3) Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text3.Text = ""
End If

End Sub

Private Sub Text4_Change()
If Val(Text4) > 100 Or 0 > Val(Text4) Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text4.Text = ""
End If

End Sub