[VB] Gemiddelde uitrekenen

[mazz]

Hallo,
Ik probeer een programma in vb te maken dat het gemiddelde cijfer uitrekent van een reeks van 5 ingevulde velden.

Ik heb nu dit.

code:

Private Sub CmdGemiddelde_Click()
Dim gemiddelde1 As String
Dim gemiddelde1S As Double
Dim gemiddelde2 As String
Dim gemiddelde2S As Double
Dim gemiddelde3 As String
Dim gemiddelde3S As Double
Dim gemiddelde4 As String
Dim gemiddelde4S As Double
Dim gemiddelde5 As String
Dim gemiddelde5S As Double

gemiddelde1S = rekenbox1.Text
gemiddelde2S = rekenbox2.Text
gemiddelde3S = rekenbox3.Text
gemiddelde4S = rekenbox4.Text
gemiddelde5S = rekenbox5.Text

gemiddelde1 = Val(gemiddelde1S)
gemiddelde2 = Val(gemiddelde2S)
gemiddelde3 = Val(gemiddelde3S)
gemiddelde4 = Val(gemiddelde4S)
gemiddelde5 = Val(gemiddelde5S)

gemiddeldebox = gemiddelde1 + gemiddelde2 + gemiddelde3 + gemiddelde4 + gemiddelde5


End Sub

Nu krijg is als ik alles invul met bijv een 1 als gemiddelde 11111.
Hij zet de reeksen naast elkaar. Hoe los ik dit op, dat het gewoon opgeteld wordt?

[BasieP]

als je string + string doet krijg je stringstring
maak er eens getallen van (int/double whatever)

edit:
ow en je weet dat voor een gemiddelde ook een deling nodig is?

[ Voor 27% gewijzigd door BasieP op 31-05-2007 18:45 ]

[Verwijderd]

Visual Basic:

Dim r1 as double
Dim r2 as double
Dim r3 as double
Dim r4 as double
Dim r5 as double
Dim gemiddelde as double
Dim totaal as double
totaal = r1+r2+r3+r4+r5
gemiddelde  = totaal/5

[ Voor 68% gewijzigd door Verwijderd op 31-05-2007 18:50 ]

[Stiegl]

Wat je doet kan wel werken, maar je hebt je declaraties verkeerd staan:
Je declareert je strings (gemiddelde1S) als Double en vise versa. Daarnaast zul je inderdaad een deling moeten uitvoeren.
Als je gebruik maakt van 5 textboxen, dan kan je beter gebruik maken van een control array

Visual Basic:

For i = 0 to 4
    Totaal = Totaal + Val(Textbox(i))
Next i

Gemiddelde = Totaal / 5

[Verwijderd]

Stiegl schreef op donderdag 31 mei 2007 @ 18:55:
Als je gebruik maakt van 5 textboxen, dan kan je beter gebruik maken van een control array

Ik heb niet zo'n verstand van VB maar is dit nog steeds mogelijk? Volgens mij hadden ze dit na VB6 eruit gehaald.

[gorgi_19]

Welke VB hebben we het uberhaupt over?

[NMe]

Tsja, als je strings als doubles gaat gebruiken en doubles als string, dan is het nogal wiedes dat het niet werkt. Stringconversies en gemiddeldes uitrekenen behoort toch echt toch het basispakket, een pakket dat we hier op GoT als bekend veronderstellen. Als je hier al problemen mee hebt, dan zul je toch echt wat meer tijd moeten steken in het onder de knie krijgen van de taal voordat je hier vragen komt stellen.

Zie ook Programming Beleid - De "quickstart".