sınav notu ortalaması

Örneğimde frmOgrencı_ders form da vize_notu ve final_notu ortalamasını sonuc kutusuda nasıl gorebılırım.Sitede biraz araştırdım ama yapamadım yardım edermısınız. Nasıl yapıldıgınıda bıraz açıklarmısınız lutfen şimdiden teşekkurler.

Ek Dosyalar

vizenin ve finalin yüzdesi şeklindemi(ayrı ayrı hesaplayıp) yoksa vize ve finalin toplamının alıp ortalamamı aldırmak istersin?

ben vizen notunun %30 'u final notununda %70'i şeklinde hesapladım(bizim zamanımızda öyleydi)
form_frmogrenciDers formunun kodlarına aşağıdaki kodları ekle

Private Sub Final_Notu_AfterUpdate()

hesapla

End Sub



Private Sub Vize_Notu_AfterUpdate()

hesapla

End Sub

Sub hesapla()

Dim vize

Dim final

Dim Sonuc

vize = (Me.Vize_Notu.Value * 30) / 100 'vize notunun %30 al

final = (Me.Final_Notu.Value * 70) / 100 'final notunu %70 al

Sonuc = vize + final 'sonuc değişkenine hesaplanan değerleri hesapla

Me.Sonuc.Value = Sonuc 'formundaki sonuç alanına değeri yazdır.

If Sonuc >= 50 Then Me.Durumu.Value = "GEÇTİ": Exit Sub 'sonuç 50 ye eşit yada büyükse formun üstündeki durumu alanına "geçti yaz"

If Sonuc <= 49 Then Me.Durumu.Value = "KALDI": Exit Sub  ''sonuç 50 den küçükse formun üstündeki durumu alanına "kaldı yaz"

End Sub

Umarım anlatabilmişimdir
kolay gelsin

teşekkürler işime yaradı..