My Piano (PLAY)

Announce and discuss the progress of your various programming-related projects...programs, games, websites, tutorials, libraries...anything!

Moderators: Pete, Mods

Post Reply
User avatar
GarryRicketson
Veteran
Posts: 90
Joined: Fri Jul 16, 2010 10:02 am
Location: Cuencame,Durango,Mexico
Contact:

My Piano (PLAY)

Post by GarryRicketson »

I just started playing with this, Dose anyone know what code would make it hold a note (continuiously) until the key is released) if that is possible ?
here is what I have so far:
--------code below------
CLS
REM Use A B C D E F G to play notes, W move up octv Z down also X ,S
REM I find it is best to "lock" the caps lock.
COLOR 10, 1, 5
PRINT "THIS WILL HAVE COLORS"
LET MyName$ = "GARRY"
PRINT MyName$
PLAY "abcdeffgbdecaaa"
PRINT "MY MUSIC,By Garry"
'PLAY "MB aaggbbcaaggbbceef<gabcde<fgegfedbcaa<abcdeefg>A10"
DO
A$ = INKEY$
IF A$ = "q" THEN END
IF A$ = "p" THEN PLAY "abcdefg"
IF A$ = "A" THEN PLAY "a10"
IF A$ = "A" THEN PRINT "A"
IF A$ = "B" THEN PLAY "b10"
IF A$ = "B" THEN PRINT "B"
IF A$ = "C" THEN PLAY "c10"
IF A$ = "C" THEN PRINT "C"
IF A$ = "D" THEN PLAY "d10"
IF A$ = "D" THEN PRINT "D"
IF A$ = "E" THEN PLAY "E10"
IF A$ = "E" THEN PRINT "E"
IF A$ = "F" THEN PLAY "F10"
IF A$ = "F" THEN PRINT "F"
IF A$ = "G" THEN PLAY "G10"
IF A$ = "G" THEN PRINT "G"
IF A$ = "W" THEN PLAY ">A10"
IF A$ = "Z" THEN PLAY "<A10"
IF A$ = "X" THEN PLAY "<G8>G8"
IF A$ = "N" THEN PLAY "L4A"
LOOP
---------------- END CODE -----------------
Also I invite anyone that wants to participate in a weely lesson, on qbasic, and qb64,..and or DOS, FREEDOS, MSdos, anyDOS,..you can post your tutorials, or ask questions,...
http://weeklyqbasicandqb64lesson.smffor ... /index.php from Garry
Post Reply