Opsomming

[Thom1]

Ik ben op school met een projectje bezig, maar een eigen programma waarbij als je de straal invult de omtrek en oppervlakte eruit komen. Maar als je een letter invuld moet hij wel een foutmelding geven. Maar ik krijg het maar met 1letter voorelkaar.. hoe kan ik er meer in zetten, ik begrijp er niks meer van, want ik heb al veel geprobeerd

Hier zit de fout in (als ik b invul komt de melding er wel, maar hoe krijg ik er meer?:

'lezen van scherm
OppervlakteS = txtOppervlakte.Text
Oppervlakte = Val(OppervlakteS)

If txtOppervlakte.Text = "b" Then
txtUitvoer.Text = "Voer een getal in!"
Else: txtUitvoer.Text = Straal
End If

If txtOppervlakte.Text = "" Then
txtUitvoer.Text = Straal
End If


Alvast bedankt!:thumb:

 

[Wigi]

Zoiets

If IsNumeric(txtOppervlakte.Text) = False Then
    txtUitvoer.Text = "Voer een getal in!"
Else
    '...
End If

Wigi

 

[Thom1]

Jaa! Het werkt bedankt!:thumb:

 

[Wigi]

Jaa! Het werkt bedankt!:thumb:

Graag gedaan