Vize Final HesapLatma
Tarih
18/05/2010 11:14
Konu Sahibi
|By|KiDnArUt|
Yorumlar
7
Okunma
2402
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



|By|KiDnArUt|
Aktif Üye
Kullanici Avatari
Aktif Üye
90
07/05/2010
5
Gaziantep
Ofis 2003
19/04/2013,12:56
Çözüldü 
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.
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,11:34
Çözüldü 
ö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
Cevapla


Gırgırator
Üye
Kullanici Avatari
Üye
2
0
18/05/2010
0
İzmir
Ofis 2003
09/05/2016,21:15
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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

Gırgırator, 18-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


|By|KiDnArUt|
Aktif Üye
Kullanici Avatari
Aktif Üye
90
07/05/2010
5
Gaziantep
Ofis 2003
19/04/2013,12:56
Çözüldü 
ß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


Ek Dosyalar
.rar   Öğrenci Takip.rar (Dosya Boyutu: 309,09 KB / İndirme Sayısı: 30)
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,11:34
Çözüldü 
= [Vize 1] * 0.4 + [Vize 2] * 0.4 + [Final] * 0.6
bunu ortalama olarak yaz
sanırım istediğini alacaksın
Cevapla


|By|KiDnArUt|
Aktif Üye
Kullanici Avatari
Aktif Üye
90
07/05/2010
5
Gaziantep
Ofis 2003
19/04/2013,12:56
Çözüldü 
Malesef Hata Veriyor Yanlış Yeremi Ekliyorum ? Sizde Çalıştımı Acaba ? ßaşka ßir Sorunmu Var Anlamadım
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü süreyi gün ay yıl olarak hesaplatma karaayhan 5 1.168 11/07/2014, 13:18 mntf02
Çözüldü Vize Takip Programı omersom 7 3.146 19/11/2012, 02:04 chopper07
Çözüldü Ortalama Hesaplatma Sorunu nikomedia41 2 1.069 26/12/2011, 02:12 nikomedia41
Çözüldü fiyatları değişik ürünleri hesaplatma htanrikulu 12 2.472 25/08/2011, 23:18 alpeki99
Çözüldü Tablo da farklı guruplara kdv%18 ve %8 hesaplatma ucloy 8 2.044 11/07/2011, 16:28 ucloy


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya