ortalama

[recep]

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. :? :?

[omerceri]

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

yukardaki fonksiyonu accesste nerede kullanacaksan (form yada raporda) ....

[recep]

formda

[omerceri]

örnek ekte

[recep]

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

s = Val(Int(((a1 + a2 + a3 + b1 + b2) / bol) + 0.5))
ortalama1 = Val(s)

End Function

[recep]

galiba anlaşılmadı yokmu düzeltecek

[turtle]

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

s = Val(Int(((a1 + a2 + a3 + b1 + b2) / bol) + 0.5))
ortalama1 = Val(s)

If ortalama1 => 0 And ortalama1 < 45 Then
ortalama1 = 1
Elseif ortalama1 => 45 And ortalama1 < 55 Then
ortalama1 = 2
Elseif ortalama1 => 55 And ortalama1 < 70 Then
ortalama1 = 3
Elseif ortalama1 => 70 And ortalama1 < 85Then
ortalama1 = 4
Elseif ortalama1 => 85 And ortalama1 <= 100 Then
ortalama1 = 5
End If

End Function

[recep]

tamam sorunum giderildi
:hey :hey:

[muallim]

Bu ortalama kodlarını excelde kullanabilir miyiz? Nereye yazmalıyım, bir türlü beceremedim. Selamlar. :agla:

[esrefigit1]

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.