Bitirdim sayılır ancak
Kod:
Private Sub Hesapla_Click()
Dim birincivize As Integer
Dim ikincivize As Integer
Dim Finalnotu As Integer
Dim NotOrtalamasi As Integer
If Vize_1 = 0 Or IsNull(Vize_1) Or Vize_1 = "" Then
MsgBox "Birinci Vize alanı boş."
Exit Sub
Else
birincivize = (Vize_1 * 0.2)
End If
If Vize_2 = 0 Or IsNull(Vize_2) Or Vize_2 = "" Then
MsgBox "İkinci Vize alanı boş."
Exit Sub
Else
ikincivize = (Vize_2 * 0.2)
End If
If Final = 0 Or IsNull(Final) Or Final = "" Then
MsgBox "Final alanı boş."
Exit Sub
Else
Finalnotu = (Final * 0.6)
End If
NotOrtalamasi = birincivize + ikincivize + Finalnotu
Me.Ortalama = NotOrtalamasi
End Sub