Naja, met een boekje er bij, uitleg volgen is het best te doen en tot nu toe kwam ik er overal wel uit, maar nu moeten we zelf een programma schrijven *SLIK*
Iemand die verstand heeft van Visual basic?
Ik moet een programma krijgen dat de inhoud berekend....
- Code
Private Sub lstFiguur_Click()
'leest strR uit txtR.Text
'zet strR om naar r (Double)
'txtBoodschap.Text="Vul waarde voor r in en selecteer een figuur"
'declaraties
Dim r As Double
Dim pi As Double
Dim I As Double
Dim strR As String
Dim strFiguur As String
Dim strBoodschap As String
Dim strI As String
If IsNumeric(txtR.Text) Then
strR = txtR.Text
r = Val(strR)
pi = 3.1415927
If lstFiguur.Text = "bol" Then I = (4 / 3) * pi * r ^ 3 [u]= txtInhoud.Text[/u]
If lstFiguur.Text = "kubus" Then I = r ^ 3 [u]= txtInhoud.Text[/u]txtInhoud.Text = Str(I)
Else
TxtBoodschap.Text = "Verkeerde invoer."
Exit Sub
End If
End Sub
Private Sub List1_Click()
End Sub
Private Sub stop_Click()
End
End Sub
Private Sub txtInhoud_Change()
txtInhoud.Text = Str(I)
End Sub
Ik kan een getal invullen en kiezen tussen BOL of KUBUS*met List*, en dan start het programma dus, alleen hij geeft altijd 0
Als ik geen cijfer invul, geeft hij wel de melding Verkeerde invoer enzo...
het zit dus echt in de uitvoer/berekening...
Echt al vanalles geprobeert... hte onderstreepte heb ik dus nu als noodoplossing, voor het idee (als de leraar alleen de code controleert )
Maar het werkt dus niet...
Een reddende engel hier?
Wie kan me helpen?