Wat doe ik verkeerd?

[zettekakkers]

ik wil het volgende
+---
++--
+++-
++++

[CPP]
Dim intPlus, intMin As Integer
Dim objPlus, objMin As Object

For intPlus = 1 To 4 Step -1
objPlus = "+"
For intMin = 4 To 1 Step -1
objMin = "-"
txtTekens.Text = (objPlus * intPlus & objMin * intMin)
Next
Next
[/CPP]

mis ik iets of denk ik niet hard genoeg na?

 

[krolik]

1 to 4 (zonder step -1!).
Step -x is voor het aftellen.

 

[zettekakkers]

ah ja wat dom van me
maar den komt er bij txtgetal.Text ( .......*....*....*..blablablb)
staat er deze error
De conversie van tekenreeks + naar type Double is ongeldig.

 

[JoZ1]

Waarom doe je niet dit:

[CPP] txtTekens.Text = objPlus & intPlus & objMin & intMin[/CPP]

??

 

[zettekakkers]

werkt toch niet? dus

 

[JoZ1]

Foutmelding?

 

[zettekakkers]

nee maar dan krijg ik dit in mijn
txtgetal
+4-1

 

[JoZ1]

[CPP]Dim intPlus As Integer
Dim txtTekens As String

For intPlus = 1 To 4
For i = 1 To intPlus
txtTekens &= "+"
Next
For i = 1 To 4 - txtTekens.Length
txtTekens &= "-"
Next
Console.WriteLine(txtTekens)
txtTekens = ""
Next[/CPP]

Ik heb zelf maar iets geschreven .

 

[zettekakkers]

ja dam, ik had er beter bij gezet dat ik het in een textvak wou afdrukken daarom ook
txtTekens.

 

[JoZ1]

[CPP]Dim intPlus As Integer
Dim txtTekens As String

For intPlus = 1 To 4
For i = 1 To intPlus
txtTekens &= "+"
Next
For i = 1 To 4 - txtTekens.Length
txtTekens &= "-"
Next
RichTextBox1.Text &= txtTekens +vbNewLine
txtTekens = ""
Next[/CPP]

Zo dan? (In een RichTextBox genaamd: RichTextBox1)

 

[zettekakkers]

werkt ook maar ik wil graag weten hoe ik dit in een gewoon textbox krijg?:thumb:

 

[crash]

Hoe vaak moet ik je berichten nog aanpassen? Het is niet nodig te citeren als je direct reageert. De topics worden anders zo lang, met dezelfde tekst.

 

[JoZ1]

Gewoon hetzelfde, maar dan met de naam van de TextBox (Die multiline moet zijn!)

 

[zettekakkers]

oh sorry zal niet meer gebeuren

 

[zettekakkers]

dit werkt niet hoor
txtUitkomst.Text &+ strTekens + vbNewLine
dit ook niet
txtUitkomst.Text = +strTekens + vbNewLine
en staat op multiline

ps: als ik declareer voeg ik altijd iets bij vb als het een "string = "str"Tekens

 

[JoZ1]

Oeps , typfoutje..

Moet zijn:

[CPP]RichTextBox1.Text &= txtTekens +vbNewLine[/CPP]

 

[zettekakkers]

het werkt perfect buiten juist een klein groen golfje
strTekens &= "+"

 

[JoZ1]

Dat groene streepje is gewoon een waarschuwing, maar er komen geen fouten. Als je het toch weg wil hebben, declareer (declaratie + initialisatie) je txtTekens zo:

[CPP]Dim txtTekens As String = ""[/CPP]

 

[zettekakkers]

opgelost