Aritmetický průměr VB

[G0dzila]

Ahoj může někdo poradit potřeboval bych udělat aritmetický průměr z jednoho texboxu. Zadání x čisel do textboxu stlačení buttonu a zobrazení výpočtu arit. průměru třeba v MSG boxu touž je fuk

[Reklama]

[CZechBoY]

čím s ebudou oddělovat ty čísla?
třeba dáš proměnnou celkem a proměnnou pocet, pak už je to lehké vydělíš celkem/pocet a máš aritmetický průměr

[G0dzila]

nejspíš , nebo ; muzes napsat ydrojak jak by to vypadalo neak nemuzu prijit na to scitani vim ze potom zo bude deleny neak /Len(textbox1.text)

[domitea]

VB .NET (verze 8 )
[syntax]
Public Class Form1
Public pocet As Double = 0
Public cislo As Double = 0
Public soucet As Double = 0
Public prumer As Double = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cislo = CDbl(TextBox1.Text)
soucet = soucet + cislo
pocet = pocet + 1
prumer = soucet / pocet
MsgBox("prumer je" + prumer.ToString())
End Sub
End Class
[/syntax]

[CZechBoY]

no dejme tomu
[syntax lang=vb]
Dim Pocet As Integer
Dim Celkem As Integer
pole = Split(txtText.Text, ",")
Pocet = UBound(pole)
For i = 0 To Pocet
Celkem = Celkem + pole(i)
Next i
MsgBox Celkem
MsgBox Celkem / Pocet
[/syntax]

případně můžeš upravit...

EDIT: maty no pěkný nejsem si jist jestli to ten text rozparsuje nebo co to s tim udělá, protože tohle by vyhodilo průměr jako to první číslo :-) číslo/1

[G0dzila]

neak nefunguje ani jedno ? xD xD

[domitea]

adame: ale je to aritmetický průměr

Stačí to je překopírovat, nebo máš VB6?

[G0dzila]

vb 10 ale vyhodi me to kdyz zadam cisla 2,2 cislo 1,3 xD

[domitea]

tak pouzij ten muj, s tim ze vsechno ve form1.vb smaz vse a nahrad mym a textbox a button nech tak pojmenovanej jak je, cili textbox1 a button1

[G0dzila]

u toho tvýho vypíše jako průměr to co zadám do textboxu - 2 2 vysledek 2 2 2,2 vysledek 2,2

[G0dzila]

Kód: Vybrat vše

 
Public Class Form1


    Private Sub AritmetickýPrůměrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AritmetickýPrůměrToolStripMenuItem.Click
        Dim pocet As Integer = 1
        Dim Celkem As Integer = 0
        Dim pole() As String
        Dim znak As Char


        pole = Split(TextBox1.Text, ",")

        For i = 0 To UBound(pole)
            If "," = znak Then
                pocet = pocet + 1
            End If
        Next


        For i = 0 To UBound(pole)
            Celkem = Celkem + pole(i)
        Next


        MsgBox(Celkem)
        MsgBox(pocet)
    End Sub
End Class





Ale tim mě to taky nejde

[domitea]

a co ti tam nejde?
MsgBox vyzaduje string!