ortalama +yuvarlama

[ccumhur]

Ekte ki dosyada 3 not giriliyor bu 3 not un oralaması alınıp yuvarlanabilirmi.

 

[selections]

Merhaba,
Ekteki çalışma işinizi görecektir sanırım. iyi çalışmalar.

 

[ccumhur]

arkadaşım cevabın için teşekür ederim öğrenci 2 yazılı olduysa 3 textbox boş ise hata veriyor

 

[Mahmut Bayram]

Sayın ccumhur, bence ortalamalarda da sorun var. Çünkü küsüratlı çıkan not ortalamalarını yazı ile okurken yanlış algılıyor.
Bunu da göz önünde bulundurmalısınız. Yani ortalamaya sayı formatı eklenmeli ve yazıyla okunuşu buna göre olmalı.
Ben şu an bu işle uğraşıyorum inşaallah uyumazsam bitirirm.

 

[Mahmut Bayram]

Sayın ccumhur biraz yol kat ettim fakat uykum geldi yarın bakarız.
Veya yapan arkadaş olursa makbule geçer. Biz de faydalanırız.
Uğraştığım örneği ekliyorum

 

[Serpily]

Private Sub o_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If T1.Text <> "" And T2.Text <> "" And T3.Text <> "" Then bol = 3
If T1.Text <> "" And T2.Text <> "" And T3.Text = "" Then bol = 2
If T1.Text <> "" And T2.Text = "" And T3.Text = "" Then bol = 1
Label7.Caption = bol
o = Round(Val(T1.Value) + Val(T2.Value) + Val(T3.Value), 0) / bol
o.Value = Format(o.Text, "##")
End Sub


Ã?ğrenci 2 sınav olmuşsa t3 boştur, 1 sınav olmuşsa t2 ve t3 boş olmalıdır mantığı ile ortalamaya esas sınav sayısını buldurmaya çalıştım. Çalışıyor gibi göründü bana.

 

[Haluk]

Benden de ufak bir örnek.

UserForm üzerinde 4 adet TextBox ve CommandButton1 nesneleri olsun.

İlk 3 tanesine notlar girilecek ve daha sonra CommandButton1' e tıklayınca notların ortalaması alınıp, sonuç yuvarlanarak TextBox4' e yazılacak.

Private Sub CommandButton1_Click()
    TextBox4 = Round((Val(TextBox1) + Val(TextBox2) + Val(TextBox3)) / _
                     WorksheetFunction.Count(TextBox1, TextBox2, TextBox3), 0)
End Sub

 

[ccumhur]

şimdi bilgisayarı açtım cevaplarınıza teşekür. örenekleri okula götürüp bir inceleyim

 

[ccumhur]

textboxta ortalama yuvarlama

Okulda biraz uğraştım sn Raider ın verdiği kodları kullanarak aşağıdaki dosyayı oluşturdum.yardımcı olanlara herkese teşekür.aslında bu formdaki öğretmenler başta olmak üzere herkese önerim form yöneticilerinde katkılarıyla bir öğrenci programı yapalım ne dersiniz?