|
|
|
 |
|
|
 |
 |
Not Baremi (Puan Hesaplama) |
|
|
|
|
 |
Düzce Meslek Yüksek Okulu’ndan mail atan arkadaşlarımız, not
baremini hesaplama zorluğu çekmişler ve bizden böyle bir istekte bulunmuşlardı.
Aşağıda verdiğimiz uygulamanın sonucunda, not karşılıklarının kod haline
dönüştürülmesini göreceksiniz.
0-39 FF
40-49 FD
50-54 DD
55-59 DC
60-69 CC
70-74 CB
75-84 BB
85-89 BA
90-100 AA
Excel VBA sayfasında yeni bir modül açın ve bu modüle
aşağıdaki kodu kaydedin.
Function Puan(a As Integer)
If a < 0 Then
Puan = "NOT Sıfırdan Küçük Olmaz"
If a >= 0 And a
<= 39 Then Puan = "FF"
If a >= 40 And
a <= 49 Then Puan = "FD"
If a >= 50 And
a <= 54 Then Puan = "DD"
If a >= 55 And
a <= 59 Then Puan = "DC"
If a >= 60 And
a <= 69 Then Puan = "CC"
If a >= 70 And
a <= 74 Then Puan = "CB"
If a >= 75 And
a <= 84 Then Puan = "BB"
If a >= 85 And
a <= 89 Then Puan = "BA"
If a >= 90 And
a <= 100 Then Puan = "AA"
If a > 100 Then
Puan = "Notun 100 den büyük olduğuna emin misiniz?"
End Function
 |
|
|
 |
|
|
|
