UNIVERSITE DERS NOTLARI ORTALAMA HESAPLAMA
Private Sub command1_Click()
a = Val(text5.Text)
b = Val(text6.Text)
c = Val(text7.Text)
d = Val(text8.Text)
e = Val(text9.Text)
f = text1.Text
g = text2.Text
h = text3.Text
j = text4.Text
If a < 0 Or a > 100 Then
MsgBox "HATA:0 DAN KÜÇÜK VE 100 DEN BÜYÜK SAYI GİREMEZSİNİZ!!!"
End If
If b < 0 Or b > 100 Then
MsgBox "HATA:0 DAN KÜÇÜK VE 100 DEN BÜYÜK SAYI GİREMEZSİNİZ!!!"
End If
If c < 0 Or c > 100 Then
MsgBox "HATA:0 DAN KÜÇÜK VE 100 DEN BÜYÜK SAYI GİREMEZSİNİZ!!!"
End If
If d < 0 Or d > 100 Then
MsgBox "HATA:0 DAN KÜÇÜK VE 100 DEN BÜYÜK SAYI GİREMEZSİNİZ!!!"
End If
If e < 0 Or e > 100 Then
MsgBox "HATA:0 DAN KÜÇÜK VE 100 DEN BÜYÜK SAYI GİREMEZSİNİZ!!!"
End If
text10.Text = (a + b + c + d + e) / 5
If ORT.Text >= 45 Then
text11.Text = "GEÇTİ"
text11.BackColor = vbGreen
End If
If ORT.Text < 45 Then
text11.Text = "KALDI"
text11.BackColor = vbRed
End If
MsgBox f + g + h + j + text10.Text + text11.Text
End Sub
