Dngü oluşturabilirsin ama uzun sürer. En kısa yok VAL fonksiyonunu kullan. Bylece kullanıcı textbox a sayı dışında string bir değer girerse 0 kabul edilir. Saygılar... rnek ;Private Sub Command1_Click Dim ORT As DoubleORT = ((Val(Text1. Text) + Val(Text2. Text) + Val(Text3. Text) + Val(Text4. Text) + Val(Text5. Text) + Val(Text6. Text))) / 6Label1. Caption = ORTEnd Sub

bir tane command buton kat. ben senin 6 tane gireceğini varsayaraktan yazıyorumprivate sub command1_click sayı1=inputbox sayı2=inputbox sayı3=inputbox sayı4=inputbox sayı5=inputbox sayı6=inputbox if sayı1="" or sayı2="" or sayı3="" or sayı4="" or sayı5="" or sayı6="" thenmsgbox "Hiçbir alan boş kalmamalı"elseortalama=(sayı1+sayı2+sayı3+sayı4+sayı5+sayı6)/6msgbox "ortalama =&ortalama&"end ifend sub bunu yazabildim. dngü oluşturmaya çalıştım ama visual basic i biraz unutmuşum. şimdilik kafadan bunu yazabildim Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

ya yokmu bilen nolur acele Her akşam yatmadan nce Tanrı"ya bana bir bisiklet vermesi için dua ederdim. Bir gün Tanrı"nın çalışma tarzının bu olmadığını anladım. Ertesi gün gittim ve kendime yeni bir bisiklet çaldım ve her akşam yatmadan nce Tanrı"ya günahlarımı affetmesi için dua ettim. Al Capone

arkadaslar visual basic 6 da ortalama nasıl alacaz. textboxları olusturdum 6 tane fakat topla 6 ya bl dediim zaman eger bi kutu bos olursa error veriyor. normalde otomatikman 5 e bolmesi lazım. yani kısacası aritmetik ortalamayı nasıl yapabilirim tesekkurler Her akşam yatmadan nce Tanrı"ya bana bir bisiklet vermesi için dua ederdim. Bir gün Tanrı"nın çalışma tarzının bu olmadığını anladım. Ertesi gün gittim ve kendime yeni bir bisiklet çaldım ve her akşam yatmadan nce Tanrı"ya günahlarımı affetmesi için dua ettim. Al Capone

arkadaslar gerekeni yazazmışlar zaten ben sana sadece select case deyimini neririm hem pratik hem kafa karıştırmazzzzzzzz fazla diğer dngü de ise hata ola sılıgın fazla olur.. asagıda yazan siteye gir sana cok yardımcı olacaktır. www.hazirkod.com Dikkat: Hazine Ceyhan ırmağının kıyısında iki kprü arasında... kuru ağacın Dibinde...

cok tesekkurler Her akşam yatmadan nce Tanrı"ya bana bir bisiklet vermesi için dua ederdim. Bir gün Tanrı"nın çalışma tarzının bu olmadığını anladım. Ertesi gün gittim ve kendime yeni bir bisiklet çaldım ve her akşam yatmadan nce Tanrı"ya günahlarımı affetmesi için dua ettim. Al Capone

tamamda ozmnda tam ortlama olmuyor ornek (2+2+2)/3=2(2+.2+0)/3=4/3oluyo ama aslında aritmetik ortalamada kac sayı varsa ona bolmen lazım Her akşam yatmadan nce Tanrı"ya bana bir bisiklet vermesi için dua ederdim. Bir gün Tanrı"nın çalışma tarzının bu olmadığını anladım. Ertesi gün gittim ve kendime yeni bir bisiklet çaldım ve her akşam yatmadan nce Tanrı"ya günahlarımı affetmesi için dua ettim. Al Capone

Pardon sorunu tam okumamışım ben sadece aritmetik ort sorduğunu zannettim. Sorunun cevabı altta, normalde başka dngüler kullanarak çok daha kısa zamanda çzebilirsin ama şimdilik aklıma gelen bu. Private Sub Command1_Click Dim x As Doublex = 0If Val(Text1. Text) <> 0 Thenx = x + 1End IfIf Val(Text2. Text) <> 0 Thenx = x + 1End IfIf Val(Text3. Text) <> 0 Thenx = x + 1End IfIf Val(Text4. Text) <> 0 Thenx = x + 1End IfIf Val(Text5. Text) <> 0 Thenx = x + 1End IfIf Val(Text6. Text) <> 0 Thenx = x + 1End IfIf x = 0 ThenMsgBox "Sayı girmelisiniz!!!"ElseLabel1. Caption = ((Val(Text1. Text) + Val(Text2. Text) + Val(Text3. Text) + Val(Text4. Text) + Val(Text5. Text) + Val(Text6. Text))) / xEnd IfEnd Sub