Weekly Qbasic and Qb64 Lesson Topics

QB64 lessons and tutorials,Games => Weekly Lesson => Topic started by: GarrisonRicketson on September 13, 2011, 07:43:45 pm



Title: New Lesson, Colored Diamond
Post by: GarrisonRicketson on September 13, 2011, 07:43:45 pm
This is something I did when I was just starting,..it is more of a qbasic program, but works fine in qb64.
 You can try variations on it for a excercise. Here is the thread with the demo.
  http://weeklyqbasicandqb64lesson.smfforfree.com/index.php/topic,19.0.html (http://weeklyqbasicandqb64lesson.smfforfree.com/index.php/topic,19.0.html)
Code:
SCREEN 12

DO
    SCREEN 12
    CLS
    FOR I = 1 TO 15
        COLOR I, 0
        PRINT I; "*** COLOR ***"
    NEXT I
    COLOR 0, 9
    LOCATE 22, 45
    PRINT "Now watch this"
    _DELAY 1
    LOCATE 23, 46
    PRINT "*"
    _DELAY 1
    LOCATE 17, 35
    PRINT "*"
    _DELAY .5
    LOCATE 18, 36
    PRINT "*"
    _DELAY 1
    LOCATE 19, 37
    PRINT "*"
    _DELAY 1
    LOCATE 20, 38
    PRINT "*"
    _DELAY 1
    LOCATE 21, 37
    PRINT "*"
    _DELAY 1
    LOCATE 22, 36
    PRINT "*"
    _DELAY 1
    LOCATE 23, 35
    PRINT "*"
    _DELAY 1
    LOCATE 22, 34
    PRINT "*"
    _DELAY 1
    LOCATE 21, 33
    PRINT "*"
    _DELAY 1
    LOCATE 20, 32
    PRINT "*"
    _DELAY 1
    LOCATE 19, 31
    PRINT "*"
    _DELAY 1
    LOCATE 18, 32
    PRINT "*"
    _DELAY 1
    LOCATE 17, 33
    PRINT "*"
    _DELAY 1
    LOCATE 16, 34
    PRINT "*"
    _DELAY 1
    PLAY "A,Gb10a4e8f4aa"
    _DELAY 1
    COLOR 15, 1
    LOCATE 23, 46
    PRINT "*"
    PLAY "a"
    COLOR 15, 2
    LOCATE 17, 35
    PRINT "*"
    PLAY "b"
    COLOR 15, 3
    LOCATE 18, 36
    PRINT "*"
    PLAY "c"
    COLOR 15, 4
    LOCATE 19, 37
    PRINT "*"
    PLAY "d"
    COLOR 15, 5
    LOCATE 20, 38
    PRINT "*"
    PLAY "e"
    COLOR 15, 6
    LOCATE 21, 37
    PRINT "*"
    PLAY "f"
    LOCATE 22, 36
    COLOR 15, 14
    PRINT "*"
    PLAY "g"
    COLOR 15, 7
    LOCATE 23, 35
    PRINT "*"
    PLAY "<a"
    COLOR 15, 8
    LOCATE 22, 34
    PRINT "*"
    PLAY "b"
    COLOR 15, 9
    LOCATE 21, 33
    PRINT "*"
    PLAY "c"
    COLOR 15, 10
    LOCATE 20, 32
    PRINT "*"
    PLAY "d"
    COLOR 15, 11
    LOCATE 19, 31
    PRINT "*"
    PLAY "e"
    COLOR 15, 12
    LOCATE 18, 32
    PRINT "*"
    PLAY "f"
    COLOR 15, 13
    LOCATE 17, 33
    PRINT "*"
    PLAY "g"
    COLOR 15, 14
    LOCATE 16, 34
    PRINT "*"
    PLAY ">a"
    COLOR 11, 9
    CLS
    PRINT "This was made,useing samples from Ted Felix's tutorial for kids"
    PRINT "The asterix diamond, locate, print, and colors I made up,experimenting"

    INPUT "Would you like to do it again (y/n)? ", Answer$
LOOP WHILE Answer$ = "y" 
If you have any questions,..feel free to ask, if you have any demos, similar,..or want to post a demo of what you come up with, post it at the above link, with the demos,..
from Garry