Weekly Qbasic and Qb64 Lesson Topics
March 29, 2024, 12:23:19 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  

Color Numbers

Pages: [1]
  Print  
Author Topic: Color Numbers  (Read 733 times)
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« on: January 25, 2011, 01:02:16 am »

This is one,
------- code below----
Code:
FOR i% = 1 TO 15
PLAY "ga2be4cgefa8g"
    COLOR i%: PRINT " color ="; i%
NEXT
FOR i% = 1 TO 15
PLAY "aa2ag8e2fagd4a"
    COLOR i%: PRINT " This Pretty ="; i%
NEXT
---------- end code --------
from Garry

« Last Edit: September 13, 2011, 07:19:37 pm by GarrisonRicketson » Report Spam   Logged

Share on Facebook Share on Twitter

GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« Reply #1 on: January 25, 2011, 01:06:16 am »

This one is better, basicly the same,.but I added some more stuff,
------------------ code below --------------
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"
------------------ end code ----------




« Last Edit: September 13, 2011, 07:15:26 pm by GarrisonRicketson » Report Spam   Logged

Dustie Bear
Full Member
***
Posts: 115


« Reply #2 on: March 17, 2011, 09:04:33 pm »




When it first starting I was wondering what happen to the music
then it started playing,, pretty snazzy

Dustie
Report Spam   Logged
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« Reply #3 on: September 13, 2011, 07:21:00 pm »

This too. is a good demo, for someone starting out.
from Garry
Report Spam   Logged


Pages: [1]
  Print  
 
Jump to:  

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


Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy