+- 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ığı: Vize Final HesapLatma (/konu-vize-final-hesaplatma.html)
Sayfalar:
1
2
Vize Final HesapLatma - |By|KiDnArUt| - 18/05/2010
Selamlar KoLay GeLsin Ufak ßir Öğrenci programı Yapıyorum. Notlar ßölümünde Vize 1 Vize 2 Final Ve Ortalama Hesaplatması Yaptırcam Yalnız % Lerini Almaya Çalıştığımda Her Hangi Bir Sonuç alamıyorum
Formül Konusunda Yardımcı Olabilirseniz Sevinirim.
Private Sub Vize_1_AfterUpdate()
es = 0
If Vize_1 <> 0 Then es = es + 1
If Vize_2 <> 0 Then es = es + 1
If Final <> 0 Then es = es + 1
Ortalama = (Vize_1 + Vize_2 + Final) / es
Refresh
End Sub
Toplama Çalışıyor yalnız % Leri alınca Her Hangi ßir Sonuç Yok
Es= es*0.4 Vize
Es=es*0.6 Final
Yardımlarınızı ßekliyorum Şimdiden Teşekkürler.
Cvp: Vize Final HesapLatma - C*e*l*o*y*c*e - 18/05/2010
örneğini eklersen daha net cevaplar alırsın
yüzdeyi bulabilmek için şöyle birşey olmalı , yapmalısın
=([nottoplamı] / [vizesayısı])*100
Cvp: Vize Final HesapLatma - Gırgırator - 18/05/2010
Kodlamada hatası varmış gibi geldi bana.
Bi acemi olarak haddim olmayarak bi çözüm önerisi sunmak istiyorum:
Hesapla butonunun olayına kodları yazdığımızı düşünecek olursak sanırım şööle bir şey olması lazım:
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 SubCvp: Vize Final HesapLatma - |By|KiDnArUt| - 18/05/2010
ßuyrun Örnek
Notlar Girişinde V1 V2 FinaL Notunu Ortalama Kısmına Güncelleştirme Sonrasında Yazacak İlğiniz İçin Teşekkürler
Cvp: Vize Final HesapLatma - C*e*l*o*y*c*e - 18/05/2010
= [Vize 1] * 0.4 + [Vize 2] * 0.4 + [Final] * 0.6
bunu ortalama olarak yaz
sanırım istediğini alacaksın
Cvp: Vize Final HesapLatma - |By|KiDnArUt| - 18/05/2010
Malesef Hata Veriyor Yanlış Yeremi Ekliyorum ? Sizde Çalıştımı Acaba ? ßaşka ßir Sorunmu Var Anlamadım