Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
şimdi bir sınıfın ham başarı ortalaması var ona göre şunlar hesaplanacak
1.ham başarı puanı 80 il 100 arasındaysa öğrencinin notu 22 den küçükse ff 22-26 fd 27-31 dd 32-36 dc 37-41 cc 42-46 cb 47-51 bb 52-56 ba 57 den büyük aa olacak ama bunun gibi
70 il 80 arası
62 ile 70 arası
57 ile 62 arası
vss olacak
Daha önce birisi için fonksiyon yazmıştım bu iş için.
=Point(Credit;Grade)
Dersin kredisi ile AA-FF arasındaki notu çarpıyor.
Option Explicit
Dim GradeValue As Integer
[vb:1:0e8440a5f5]Function point(Credit As Integer, Grade As String)
Dim ReturnValue
GradeValue = 1000
If Grade = "AA" Then GradeValue = 4
If Grade = "BA" Then GradeValue = 3.5
If Grade = "BB" Then GradeValue = 3
If Grade = "CB" Then GradeValue = 2.5
If Grade = "CC" Then GradeValue = 2
If Grade = "DC" Then GradeValue = 1.5
If Grade = "DD" Then GradeValue = 1
If Grade = "FD" Then GradeValue = 0.5
If Grade = "FF" Then GradeValue = 0
ReturnValue = Credit * GradeValue
If ReturnValue > 1000 Then
point = "Yanlış Grade"
Else
point = ReturnValue
End If
End Function[/vb:1:0e8440a5f5]
Değil.. Ama sorularamı bakalım, forum düzeninin ve seviyesinin devamınamı çalışalım diye koştururken bazen gözden kaçıyor. Bazende uyardığımız arkadaşlar bunu şahsi algılayıp hiç gerek yokken kırılıyor. Uyarı için Teşekkürler.
@yusuf 128, siz sorunuzu sorsanız bir ilgilenen çıkar elbet.
Hatta kafanızda nasıl bir dosya varsa siz başlayın tasarlamaya bizde formülleri yazalım üstüne.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.