De conversie van tekenreeks veld naar type Integer is ongeldi

[ozakio]

als ik bij het testen een lengte en breedte ingeef en de uitkomst vraag krijg ik steeds de foutmelding : Additional information: De conversie van tekenreeks veld naar type Integer is ongeldig.

iemand een idee wat er fout gaat?

Public Class Form1

    Private Sub btnBerekenen_Click(sender As Object, e As EventArgs) Handles btnBerekenen.Click
        Dim lengte, breedte As Single
        Dim uitkomst As Single


        lengte = txtLengte.Text
        breedte = txtBreedte.Text
        uitkomst = MsgBox("u heeft" & uitkomst, "veld", MsgBoxStyle.Information)


        uitkomst = lengte * breedte

       

    End Sub
End Class

 

[pasan]

je wil een text waarde vermenigvuldigen
Probeer het is zo

lengte = Val(txtLengte.Text)
breedte = Val(txtBreedte.Text)

 

[ozakio]

heb ik gedaan maar heb dan het probleem als ik zeg uitkomst=msgbox("u heeft" & uitkomst) dan geeft die een msgbox weer die zegt u heeft0

Ik heb nu in msgbox de volgende code gezet uitkomst = MsgBox("u heeft" & Val(txtLengte.Text) * Val(txtBreedte.Text)) en dan geeft die wel de juiste waarde weer in de messagebox.
Maar als ik de "uitkomst" declareer als integer en ik zeg dan uitkomst=msgbox("u veld is" & uitkomst) dan geeft die altijd 0 weer

 

[JoZ1]

Waarom moeilijk als het makkelijk kan?

[cpp]If IsNumeric(txtLengte.Text) And IsNumeric(txtBreedte.Text) Then
MsgBox("U heeft" & (CInt(txtLengte.Text) * CInt(txtBreedte.Text), "Veld", MsgBoxStyle.Information)
End If[/cpp]

 

[MartinJM]

JoZ1: Je bent een haakje vergeten

En misschien is een spatie tussen de tekst en de waarde ook wel mooi:
[CPP]MsgBox("U heeft " & (CInt(txtLengte.Text) * CInt(txtBreedte.Text)), "Veld", MsgBoxStyle.Information)[/CPP]

MartinJM

[edit]
De if-statement van JoZ1 is wel goed om te gebruiken.
[/edit]

 

[JoZ1]

Thanks voor de aanvulling Martin, je hebt helemaal gelijk