+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: sınav notu ortalaması (/konu-sinav-notu-ortalamasi.html)
sınav notu ortalaması - caca_qkhn - 30/12/2011
Ö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.
Cvp: sınav notu ortalaması - Coskun0559 - 30/12/2011
vizenin ve finalin yüzdesi şeklindemi(ayrı ayrı hesaplayıp) yoksa vize ve finalin toplamının alıp ortalamamı aldırmak istersin?
Cvp: sınav notu ortalaması - Coskun0559 - 30/12/2011
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 SubUmarım anlatabilmişimdir
kolay gelsin
Cvp: sınav notu ortalaması - caca_qkhn - 30/12/2011
teşekkürler işime yaradı..