Hulp gevraagd bij de codes voor berekenen en naar scherm schrijven

[Brood18]

Hallo Iedereen,
Voor school moet ik een aantal opdrachten in Visual Basic maken, dit gaat mij niet helemaal makkelijk af en nu ben ik helemaal vastgelopen. Ik hoop dat jullie kunnen vertellen wat er fout is aan de volgende codes bij 'bereken en bij 'schrijven naar scherm. Alvast bedankt!


Private Sub cmdGemiddelde_Click()

'declaratie van waarden
Dim cijfer1S As String
Dim cijfer1 As Double
Dim cijfer2S As String
Dim cijfer2 As Double
Dim cijfer3S As String
Dim cijfer3 As Double
Dim cijfer4S As String
Dim cijfer4 As Double
Dim cijfer5S As String
Dim cijfer5 As Double
Dim uitkomstS As String
Dim uitkomst As Double

'inlezen van scherm
cijfer1 = txtCijfer1.Text
cijfer1 = Val(cijfer1)
cijfer2 = txtCijfer2.Text
cijfer2 = Val(cijfer2)
cijfer3 = txtCijfer3.Text
cijfer3 = Val(cijfer3)
cijfer4 = txtCijfer4.Text
cijfer4 = Val(cijfer4)
cijfer5 = txtCijfer5.Text
cijfer5 = Val(cijfer5)

'berekenen
uitkomst = cijfer1 + cijfer2 + cijfer3 + cijfer4 + cijfer5 / 5

'schrijven naar scherm
uitkomst = CDbl(uitkomst)
txtUitkomst.Text = uitkomst

End Sub

 

[WarnedGraph]

Je doet te veel werk ... dit is de simpelere oplossing

Private Sub cmdGemiddelde_Click()

'declaratie van waarden
Dim cijfer1 As Double
Dim cijfer2 As Double
Dim cijfer3 As Double
Dim cijfer4 As Double
Dim cijfer5 As Double
Dim uitkomst As Double

'inlezen van scherm
'Als je VB.NET Gebruikt gebruik je beter Convert.ToDouble(txtCijfer1.Text)
cijfer1 = CDbl(txtCijfer1.Text)
cijfer2 = CDbl(txtCijfer2.Text)
cijfer3 = CDbl(txtCijfer3.Text)
cijfer4 = CDbl(txtCijfer4.Text)
cijfer5 = CDbl(txtCijfer5.Text)

'berekenen
'basic math: haakjes rond de optelling, anders deelt hij enkel het laatste cijfer door 5!!!
'cf. volgorde van bewerkingen
uitkomst = (cijfer1 + cijfer2 + cijfer3 + cijfer4 + cijfer5) / 5

'schrijven naar scherm
txtUitkomst.Text = uitkomst

End Sub

 

[Brood18]

Heel erg bedankt voor uw reactie, ik heb hier al heel veel aan gehad!
Helaas zegt hij alleen nog steeds dat er een fout zit in ' schrijven naar scherm

 

[WarnedGraph]

Probeer eens:

txtUitkomst.Text = uitkomst.ToString()

Als dit nog niet werkt, post eens de foutmelding.

 

[Brood18]

Ja, hij doet het nu! Heel erg bedankt