help please

[malehda3y]

aprogram using while loops or for loops to draw a christmas atree ,such as :
*
***
*****


* has box for the tree
Draw at least 10 levels of the tree , increasing the size of each level. ( space between each asterisk for visbility is optional )

[Phil Weber]

What problem are you having? Please post the code you have so far.

[brouse]

Methinks I smell a student project...

[malehda3y]

this my code but will looks like the first one
what I need is to be looks like TREE !!


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntree.Click
Dim i, j As Integer
Dim raw As String
For i = 1 To 12
raw = " "
For j = 1 To i
raw &= "*"
Next
Lsttree.Items.Add(raw)
Next

End Sub

[brouse]

You need to add something akin to:

raw = Space((12 - i) / 2) & raw & Space((12 - i) / 2)

after the inner loop (the first "Next")

[Phil Weber]

Try this:

Dim i, j As Integer
Dim raw As String
For i = 1 To 24 Step 2
    raw = ""
    For j = 1 To i
        raw &= "*"
    Next
    raw = Space((24 - i) \ 2) & raw
    Lsttree.Items.Add(raw)
Next

[malehda3y]

THANKSSS ALOTSSSSS .... it work
i was trying to do it in long way but this 's easier
HAVE AGREAT WEEKEND

[Phil Weber]

The important thing, though, is do you understand why it works? ;-)

[malehda3y]

yeahhhh i understood

[mstraf]

not to sound peeky (please correct my spelling), but because this is a "learning" thread:
The code

   raw = ""
    For j = 1 To i
        raw &= "*"
    Next

can be replaced with:

raw = String(i, "*")

Marco

[malehda3y]

THankkkkkkkkkkk you agin

[Phil Weber]

Marco: Except that his assignment specifically said to use "while loops or for loops." ;-)

[mstraf]

I know, but I could not resist... there is an outer loop anyway!

To the original poster: you can change the space between asterisks printing directly in the Form via
Me.Print "*"
This prints an asterisk at the coordinates:
Me.CurrentX
Me.CurrentY
To find the size of a string you can use:
Me.TextWidth
Me.TextHeight
And remember to do your drawing in the Form_Paint event.
That is enough for today, I think.

Marco

[malehda3y]

lol .... thank you so much PHil and Macro.
I learned from both of you new things