Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/12/2011 02:50
Konu Sahibi
caca_qkhn
Yorumlar
3
Okunma
1638
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

caca_qkhn

Üye
 Belirtilmemiş
 4
 2
 29/12/2011
0
 İstanbul
 
 Ofis 2007
 17/01/2012,16:42
Çözüldü 
Ö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
_Öğrenci.rar(106.67 KB)



Kullanici Avatari

Coskun0559

Uzman
CO.... ÇA....
 33
 1.221
 99
 02/11/2008
516
 Tekirdağ
 
 -
 03/12/2018,16:34
Çözüldü 
vizenin ve finalin yüzdesi şeklindemi(ayrı ayrı hesaplayıp) yoksa vize ve finalin toplamının alıp ortalamamı aldırmak istersin?


GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Kullanici Avatari

Coskun0559

Uzman
CO.... ÇA....
 33
 1.221
 99
 02/11/2008
516
 Tekirdağ
 
 -
 03/12/2018,16:34
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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


GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Kullanici Avatari

caca_qkhn

Üye
 Belirtilmemiş
 4
 2
 29/12/2011
0
 İstanbul
 
 Ofis 2007
 17/01/2012,16:42
Çözüldü 
teşekkürler işime yaradı..




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Satış ortalaması alarak bir sonraki satış miktarını belirleme fascioğlu 7 1.134 12/01/2016, 21:12
Son Yorum: fascioğlu
Çözüldü Öğrenci Bilgileri Hazır Sınav Kağıdı Oluşturma matkap 11 1.775 28/12/2015, 15:26
Son Yorum: atoz112
Çözüldü Sınav programında kaç doğru kaç yanlış saydırmak SCavusoglu 4 2.199 17/04/2014, 16:56
Son Yorum: SCavusoglu
Çözüldü Sınav Programı Kullanıcı Problemi soldier3801 9 2.546 09/01/2013, 22:20
Son Yorum: soldier3801
Çözüldü Sınav Ortalamasına Göre Sınıf Geçme Sql Kodu potenza 1 2.259 21/11/2012, 11:01
Son Yorum: accessman

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.