teller vermenigvldigen met string

[droomke]

Hoi iedereen,

Ik ben pas een cursus .net begonnen, maar zit een beetje vast.

Hier een voorbeeld van de ingave op het formulier:

Symbool: *
Startwaarde: 1
Eindwaarde: 5

In het label met de oplossing moet dan komen:
*
**
***
*****

Maar ik krijg de foutmelding :Conversion from string "*" to type 'Double' is not valid.

Hier de code:

Public Class frmTekenen

Private Sub btnTeken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeken.Click
Me.lblResultaat.Text = ""
Dim teller As Integer
Dim symbool As String
symbool = Me.txtSymbool.Text

For teller = Integer.Parse(Me.txtBeginwaarde.Text) To _
Integer.Parse(Me.txtEindwaarde.Text) Step +1
Me.lblResultaat.Text = Me.lblResultaat.Text & (teller * Me.txtSymbool.Text.ToString) & vbCrLf
Next teller

End Sub
End Class


Hopelijk kan iemand me verder helpen.

Alvast bedankt

 

[etri]

Als je het aantal sterren wilt vertalen naar een getal tussen 1 en 5, dan zou ik de length property gebruiken:

Dim iAantalSterren As Integer

iAantalSterren = Me.txtSymbool.Text.Length

 

[droomke]

Public Class frmTekenen
Dit lukt ook niet.

Nu krijg ik als oplossing:
1
2
3
4
5

Private Sub btnTeken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeken.Click
Me.lblResultaat.Text = ""
Dim teller As Integer
Dim symbool As String
Dim iAantalSterren As Integer
symbool = Me.txtSymbool.Text
iAantalSterren = Me.txtSymbool.Text.Length
For teller = Integer.Parse(Me.txtBeginwaarde.Text) To _
Integer.Parse(Me.txtEindwaarde.Text) Step +1
Me.lblResultaat.Text = Me.lblResultaat.Text & (teller * iAantalSterren) & vbCrLf
Next teller

End Sub
End Class

 

[etri]

Sorry, ik snapte je vraag niet...

Je moet eens gaan zoeken in de Help op 'StrDup'. Hiermee kun je een string (in jouw geval "*") x aantal keren herhalen. In een for...next loop moet het lukken! :thumb:

Succes met je opdracht!

 

[etri]

BTW. Je moet in de for...next loop CType gebruiken om de tekst in de tekstbox te converteren naar een integer:

For teller = CType(Me.txtBeginwaarde.Text, Integer) To CType(Me.txtEindwaarde.Text, Integer)

etc

Next

 

[droomke]

Thanks Eelco,

Het is nu gelukt.

Dit is het resultaat:

ublic Class frmTekenen

Private Sub btnTeken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeken.Click
Me.lblResultaat.Text = ""
Dim teller As Integer
Dim symbool As String
symbool = Me.txtSymbool.Text

For teller = Integer.Parse(Me.txtBeginwaarde.Text) To _
Integer.Parse(Me.txtEindwaarde.Text) Step +1
Me.lblResultaat.Text = Me.lblResultaat.Text & CStr(StrDup(teller, Me.txtSymbool.Text.ToString)) & vbCrLf
Next teller

End Sub
End Class