request for printing patterns with for loops tutorial

[fistfullofnails]

OK, I think this is how to spoonfeed a dummy like me.

[qb][FOR count% = 1 TO 4
    PRINT STRING$(5, "*")
NEXT/qb]

I thank an earlier comment that turned me on to STRING$.  Although I will say there are some pretty cool solutions here, even though I don't understand them all. And I guess I need to learn how to insert code again.

[fistfullofnails]

So using what I figured here months later, I came up with this for a tree

Code: (Select All)

DIM spaces%
DIM n%
spaces% = 20
n% = 1

PRINT
PRINT


FOR count% = 1 TO 20
    PRINT STRING$(spaces%, " ");
    PRINT STRING$(n%, "*")
    spaces% = spaces% - 1
    n% = n% + 2
NEXT
spaces% = 18
FOR count% = 1 TO 2
    PRINT STRING$(spaces%, " ");
    PRINT STRING$(4, "|")
NEXT

I guess I'll have to get on you other fine folk's level to be able to turn my tree into a Christmas tree though.  That could very well never happen though.

[bplus]

Code: (Select All)

Dim spaces%

Dim n%

spaces% = 20

n% = 1



Print

Print





For count% = 1 To 20

    Print String$(spaces%, " ");



    'Print String$(n%, "*")

    For i = 1 To n%

        Color Int(Rnd * 15) + 1

        Print "*";

    Next

    Print



    spaces% = spaces% - 1

    n% = n% + 2

Next

spaces% = 18

For count% = 1 To 2

    Print String$(spaces%, " ");

    Print String$(4, "|")

Next

[fistfullofnails]

Code: (Select All)

Dim spaces%

Dim n%

spaces% = 20

n% = 1



Print

Print





For count% = 1 To 20

    Print String$(spaces%, " ");



    'Print String$(n%, "*")

    For i = 1 To n%

        Color Int(Rnd * 15) + 1

        Print "*";

    Next

    Print



    spaces% = spaces% - 1

    n% = n% + 2

Next

spaces% = 18

For count% = 1 To 2

    Print String$(spaces%, " ");

    Print String$(4, "|")

Next

Code: (Select All)

Print "But how?"

[bplus]

But how what?

You don't want a tree all lit up with different colors, as my code mod of yours does?