a b c d sayılarının ortalaması 0-44 arası ise 1
45-54 arası ise 2 55-69 arasında ise 3 70-84 arası ise 4 85-100 arasıda ise 5 yazmasını istiyorum kodu nasıl olabilir. :? :?
function puan(notu)
If notu => 0 And notu < 45 Then
puan = 1
Elseif notu => 45 And notu < 55 Then
puan = 2
Elseif notu => 55 And notu < 70 Then
puan = 3
Elseif notu => 70 And notu < 85Then
puan = 4
Elseif notu => 85 And notu <= 100 Then
puan = 5
End If
End Function
bu kod aritmatik ortalamayı veriyordu notlar 1,2,3,4,5 diye veriliyordu ama not sistemi deyişti notlar 1den 100 e kadar veriliyor ve yukarıda belirttiğim sekilde dönem sonunde 1,2,3,4,5 e çevriliyor bunu düzeltirsen tam istediğim olacak.
Function ortalama1(y1#, y2#, y3#, s1#, s2#)
q = 3
w = 2
a1 = Val(y1#)
a2 = Val(y2#)
a3 = Val(y3#)
b1 = Val(s1#)
b2 = Val(s2#)
If a3 = 0 Then
q = 2
End If
If a2 = 0 Then
q = 1
End If
If a1 = 0 Then
q = 0
End If
If b2 = 0 Then
w = 1
End If
If b1 = 0 Then
w = 0
End If
bol = q + w
If bol = 0 Then
bol = 1
End If
Yazılı ve sözlüleri 100 lük sisteme göre giripte ortalamalarda 100 lük sisteme göre çıkıyorsa sanırım bu işinizi görür
Function ortalama1(y1#, y2#, y3#, s1#, s2#)
q = 3
w = 2
a1 = Val(y1#)
a2 = Val(y2#)
a3 = Val(y3#)
b1 = Val(s1#)
b2 = Val(s2#)
If a3 = 0 Then
q = 2
End If
If a2 = 0 Then
q = 1
End If
If a1 = 0 Then
q = 0
End If
If b2 = 0 Then
w = 1
End If
If b1 = 0 Then
w = 0
End If
bol = q + w
If bol = 0 Then
bol = 1
End If
karedeşim bunlarla senin işn hallolmaz sanırım sen not programı yapıyorsun
al sana not ortalama hesabı
Funtion Ortalama()
Toplam = 0
İ = 0
W = 0
If TÜRKÇE1YAZ.Value <> "" Then
sayİ1 = TÜRKÇE1YAZ.Value
Toplam = Toplam + sayİ1
İ = İ + 1
End If
If TÜRKÇE2YAZ.Value <> "" Then
sayİ2 = TÜRKÇE2YAZ.Value
Toplam = Toplam + sayİ2
İ = İ + 1
End If
If TÜRKÇE3YAZ.Value <> "" Then
sayİ3 = TÜRKÇE3YAZ.Value
Toplam = Toplam + sayİ3
İ = İ + 1
End If
If TÜRKÇE1SÃ?Z.Value <> "" Then
sayİ4 = TÜRKÇE1SÃ?Z.Value
Toplam = Toplam + sayİ4
İ = İ + 1
End If
If TÜRKÇE2SÃ?Z.Value <> "" Then
sayİ5 = TÜRKÇE2SÃ?Z.Value
Toplam = Toplam + sayİ5
İ = İ + 1
End If
If TÜRKÇE3SÃ?Z.Value <> "" Then
sayİ6 = TÜRKÇE3SÃ?Z.Value
Toplam = Toplam + sayİ6
İ = İ + 1
End If
If TÜRKÇE1Ã?D.Value <> "" Then
sayİ7 = TÜRKÇE1Ã?D.Value
Toplam = Toplam + sayİ7
İ = İ + 1
End If
If TÜRKÇE2Ã?D.Value <> "" Then
sayİ8 = TÜRKÇE2Ã?D.Value
Toplam = Toplam + sayİ8
İ = İ + 1
End If
W = Toplam / İ
TÜRKÇEYUVARLA1.Value = W
End Sub
Select Case TÜRKÇEYUVARLA1
Case 0 To 44
Türkçeotalama.value="1"
Türkçeyazıyla.value="Bir"
Case 45 To 54
Türkçeotalama.value="2"
Türkçeyazıyla.value="iki"
Case 55 To 69
Türkçeotalama.value="3"
Türkçeyazıyla.value="Üç"
Case 70 To 84
Türkçeotalama.value="4"
Türkçeyazıyla.value="Dört"
Case 85 To 100
Türkçeotalama.value="5"
Türkçeyazıyla.value="Beş"
End Select
yukardaki türkçe1yaz gibi metin kutularının hepsinin güncelendiğinde olayına
=Ortalama()
yaz
kutulardaki rakam her değitiğinde ortalamayı yeniden alır ve yazar
unutma burada ben birde yuvarlama diye alan kullandım öğrenci itiraz edbilir diye sen kullanmayabilir ve yukarıdaki yere birde Y=0 ekler ve döngüyü ona göre oluşturursun
ama unutma hiç bir alanı rakam yapmayacan hepsi metin olcak
sayı olduğunda içinde sıfır sabit olur ve ortalama alırken onuda sayar
zaten mantıkda içinde rakam olanları say topla saydığın sayıya böl diyoruz eeeeeeee sıfırda bir sayı olduğuna göre onuda sayar ve ortalama yanlış olur.
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.