request for printing patterns with for loops tutorial

Code: (Select All)

For row = 1 To 25 ' the default = screen 0 has 25 rows  to put characters you type

    For col = 1 To 80 ' the default = screen 0 has 80 columns  to put characters you type

        ' you can color screen 0 simple by specifying a backcolor and printing a space

        Color , row Mod 8 ' a mod b divides a by b and return remainder a number between 0 & b-1 inclusive

        Locate row, col: Print " "; ' print a space at each location

    Next

Next

Code: (Select All)

For row = 1 To 25 ' the default = screen 0 has 25 rows  to put characters you type

    For col = 1 To 80 ' the default = screen 0 has 80 columns  to put characters you type

        ' you can color screen 0 simple by specifying a backcolor and printing a space

        Color , col Mod 8 ' a mod b divides a by b and return remainder a number between 0 & b-1 inclusive

        Locate row, col: Print " "; ' print a space at each location

    Next

Next

Code: (Select All)

'  a character cell is 8 pixels wide X 16 pixels high

rowStart = 11: rowEnd = 15 ' 5 vertical rows  5 * 16 = 80 pixels

colStart = 36: colEnd = 45 ' 10 columns 10 * 8 = 80 pixels



' 80 pixels X 80- pixels = true square in screen 0



' pick a color 0 to 7 not 0 = default black background say 4

backcolor = 4 ' try different colors here 4 is red



'  color forecolor,  backcolor   '<<< command to control color



Color , backcolor '  set color to 4, now anywhere we print backcolor is red = 4



' color our square on default black background

For row = rowStart To rowEnd

    For col = colStart To colEnd

        Locate row, col: Print " "; ' print a space at each location of the square

    Next

Next

Sleep

Code: (Select All)

rowStart = 11: rowEnd = 15 ' 5 vertical rows  5 * 16 = 80 pixels

colStart = 36: colEnd = 45 ' 10 columns 10 * 8 = 80 pixels



' 80 pixels X 8- pixels = true square in screen 0



' pick a color 0 to 7 not 0 say

sqH = 5 ' 1 to 25 rows

sqW = 2 * sqH ' for a square width = 2*height = twice as many columns

sqLeft = 36 ' left most column

sqTop = 11 ' top most row

backcolor = 4 ' try different colors here 4 is red



GoSub printSquare

Locate 22, 23: Print "zzz... press any for random squares"

Sleep



' riffing again

' pick a random square height max is 25

Do

    sqH = Int(Rnd * 25) + 1 ' 1 to 25 rows

    sqW = 2 * sqH ' for a square width = 2*height = twice as many columns

    sqLeft = Int(Rnd * (80 - sqW)) + 1 ' left most column

    sqTop = Int(Rnd * (25 - sqH)) + 1 ' top most row

    backcolor = (backcolor + 1) Mod 8 ' 0 to 7 colors (including black as "eraser"

    GoSub printSquare

    _Limit 2

Loop Until _KeyDown(27) ' until escape key is pressewd

End

printSquare:

Color , backcolor

For row = sqTop To sqTop + sqH - 1

    For col = sqLeft To sqLeft + sqW - 1

        Locate row, col: Print " "; ' print a space at each location of the square

    Next

Next

Return

Width 60, 24 _Font 16 _ScreenMove _Middle _Title "'Tis The Season" train$ = Space$(_Width) + "[oo]-[oo]-[Oo>" Palette 7, 63 Color 2, 7: Cls msg$ = "Merry Christmas" Locate 4, _Width \ 2 - Len(msg$) \ 2 + 1 Color 4, 7: Print msg$: Color 2 Locate 7 a$ = "*" For i = 1 To 14 If i > 10 Then a$ = "*": Color 0 Locate , _Width \ 2 - Len(a$) \ 2 + 1 Print a$ a$ = a$ + "**" Next y = CsrLin - 1 Color 2: Locate y, 1: Print String$(_Width, 177); _Delay 2: x = 5: z = Timer Do Locate 7: a$ = "*" For i = 1 To 10 Locate , _Width \ 2 - Len(a$) \ 2 + 1 Color 2: Print a$; For j = 1 To Len(a$) If Rnd * 20 > 17 Then Locate , _Width \ 2 - Len(a$) \ 2 + j Color 12 + 16: Print "*"; End If Next Print a$ = a$ + "**" Next If Abs(z - Timer) > x Then z = Timer If t = Len(train$) + 1 Then t = 1: x = 3 Else Sound 300, .05 t = t + 1: x = .05 Locate y - 1, 1: Color 0: Print Mid$(train$, Len(train$) - t, _Width); If t >= _Width / 2 + Len(_Trim$(train$)) Then Color 0: Locate , _Width \ 2 + 1: Print "*"; End If End If Loop Until InKey$ = Chr$(27) System