Weekly Qbasic and Qb64 Lesson Topics
January 24, 2018, 03:31:47 am
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News: Want to see a specific Tutorial? ASK!
 
  Home Help Search Arcade Links Staff List Login Register  

New Lesson, Colored Diamond


Pages: [1]
  Print  
Author Topic: New Lesson, Colored Diamond  (Read 174 times)
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« 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
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
« Last Edit: September 13, 2011, 07:46:56 pm by GarrisonRicketson » Report Spam   Logged

Social Buttons


Pages: [1]
  Print  
 
Jump to:  

Powered by EzPortal
Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum

Buy traffic for your forum/website
traffic-masters
Powered by SMF | SMF © 2016, Simple Machines