AccessTr.neT

Bul · 18/05/2010, 11:14

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.

Bul · 18/05/2010, 16:41

ö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

Bul · 18/05/2010, 18:04

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 Sub

Bul · 18/05/2010, 21:29

ß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

Bul · 18/05/2010, 22:00

= [Vize 1] * 0.4 + [Vize 2] * 0.4 + [Final] * 0.6
bunu ortalama olarak yaz
sanırım istediğini alacaksın

Bul · 18/05/2010, 22:10

Malesef Hata Veriyor Yanlış Yeremi Ekliyorum ? Sizde Çalıştımı Acaba ? ßaşka ßir Sorunmu Var Anlamadım

AccessTr.neT

Vize Final HesapLatma

Vize Final HesapLatma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri