MyPiano_with-recorder

[GarrisonRicketson]

This was made to be used with qb64 for Linux, If you wanted to compile it with Windows you could but would need to set the SHELL command to use your appropriate windows program.

Code:

 ' kEYS ABCDEFGHIJK, EACH KEY GOES TO A HIGHER TONE,..
' So start with "A", and so on.
'
'
'
'
'   Esc exits.
'A=30
'B = 48
'C = 46
'D = 32
'E = 18
'F = 33
'G = 34

CLS
'--------------------
PRINT "This should start your recorder,and after you start it,hide the window"
PRINT "Start playing the notes, when you finish,stop the recording and save"
PRINT "if so desired,close the window, some changes in this code,would be needed"
PRINT "according to your OS,and path to a recording program."
SHELL _DONTWAIT "gnome-sound-recorder"
'SHELL "/home/garry/Desktop/qb64/./Mypiano2-fast"
'once it is compiled you can use this with the filename of your program.(For Linux)

CONST ESC = 27

'Define A
KEY 20, CHR$(0) + CHR$(30)
ON KEY(20) GOSUB A
KEY(20) ON
'Define B
KEY 21, CHR$(0) + CHR$(48)
ON KEY(21) GOSUB B
KEY(21) ON
'Define C
KEY 15, CHR$(0) + CHR$(46)
ON KEY(15) GOSUB C
KEY(15) ON
'Define D
KEY 16, CHR$(0) + CHR$(32)
ON KEY(16) GOSUB D
KEY(16) ON
'Define E
KEY 17, CHR$(0) + CHR$(18)
ON KEY(17) GOSUB E
KEY(17) ON
'Define F
KEY 18, CHR$(0) + CHR$(33)
ON KEY(18) GOSUB F
KEY(18) ON
'Define G
KEY 19, CHR$(0) + CHR$(34)
ON KEY(19) GOSUB G
KEY(19) ON
'Define H
KEY 22, CHR$(0) + CHR$(35)
ON KEY(22) GOSUB H
KEY(22) ON
'Define I
KEY 23, CHR$(0) + CHR$(23)
ON KEY(23) GOSUB I
KEY(23) ON
'Define J
KEY 24, CHR$(0) + CHR$(36)
ON KEY(24) GOSUB J
KEY(24) ON
'****End Key Definitions****
PRINT "Based on code written by Scuey, posted by Clippy"
PRINT " Start with typing A,B,C, and so on up to J"

PRINT "Press Esc to quit.note anykey dose not exit,only keys that have not "
PRINT "been used in the subs seem to work after pressing esp."
PRINT "thank you for trying this"
WHILE INKEY$ <> CHR$(ESC)
WEND
END

SOUND 0, 0
A:
SOUND 300, 4
PRINT "THIS IS A"
RETURN

B:
SOUND 400, 4
PRINT "B"
RETURN

C:
SOUND 500, 4
PRINT "C"
RETURN

D:
SOUND 600, 4
PRINT "D"
RETURN

E:
SOUND 700, 4
PRINT "E"
RETURN

F:
SOUND 800, 4
PRINT "F"
RETURN

G:
SOUND 900, 4
PRINT "G"
RETURN

H:
SOUND 1000, 4
PRINT "H"
RETURN
'Add I
I:
SOUND 1100, 4
PRINT "I"
RETURN
J:
SOUND 1200, 4
PRINT "J "
RETURN

PRINT " Esc to exit."




  

enjoy, from Garry

[GarrisonRicketson]

I added hand drawn letters to this, the code is some what different, also I started a sprite sheet, but I have not figured out how to use the sprite sheet, instead of individual pitchures,.
 

Code:

 ' kEYS ABCDEFGHIJK, EACH KEY GOES TO A HIGHER TONE,..
' So start with "A", and so on.
'
'
'
'
'   Esc exits.
'A=30
'B = 48
'C = 46
'D = 32
'E = 18
'F = 33
'G = 34

CLS
'--------------------
PRINT "This should start your recorder,and after you start it,hide the window"
PRINT "Start playing the notes, when you finish,stop the recording and save"
PRINT "if so desired,close the window, some changes in this code,would be needed"
PRINT "according to your OS,and path to a recording program."
SHELL _DONTWAIT "gnome-sound-recorder"
'SHELL "/home/garry/Desktop/qb64/./Mypiano2-fast"
'once it is compiled you can use this with the filename of your program.(For Linux)

CONST ESC = 27

'Define A
KEY 20, CHR$(0) + CHR$(30)
ON KEY(20) GOSUB A
KEY(20) ON
'Define B
KEY 21, CHR$(0) + CHR$(48)
ON KEY(21) GOSUB B
KEY(21) ON
'Define C
KEY 15, CHR$(0) + CHR$(46)
ON KEY(15) GOSUB C
KEY(15) ON
'Define D
KEY 16, CHR$(0) + CHR$(32)
ON KEY(16) GOSUB D
KEY(16) ON
'Define E
KEY 17, CHR$(0) + CHR$(18)
ON KEY(17) GOSUB E
KEY(17) ON
'Define F
KEY 18, CHR$(0) + CHR$(33)
ON KEY(18) GOSUB F
KEY(18) ON
'Define G
KEY 19, CHR$(0) + CHR$(34)
ON KEY(19) GOSUB G
KEY(19) ON
'Define H
KEY 22, CHR$(0) + CHR$(35)
ON KEY(22) GOSUB H
KEY(22) ON
'Define I
KEY 23, CHR$(0) + CHR$(23)
ON KEY(23) GOSUB I
KEY(23) ON
'Define J
KEY 24, CHR$(0) + CHR$(36)
ON KEY(24) GOSUB J
KEY(24) ON
'****End Key Definitions****
PRINT "Based on code written by Scuey, posted by Clippy"
PRINT " Start with typing A,B,C, and so on up to J"

PRINT "Press Esc to quit.note anykey dose not exit,only keys that have not "
PRINT "been used in the subs seem to work after pressing esp."
PRINT "thank you for trying this"
WHILE INKEY$ <> CHR$(ESC)
WEND
END
CLS

SOUND 0, 0
A:
SOUND 300, 4
PRINT "THIS IS A"


SCREEN 12
i& = _LOADIMAGE("1.png")
_PUTIMAGE , i&
_DELAY 1
CLS
RETURN

B:
SOUND 400, 4
SCREEN 12
i& = _LOADIMAGE("2.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

C:
SOUND 500, 4
SCREEN 12
i& = _LOADIMAGE("3.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

D:
SOUND 600, 4
SCREEN 12
i& = _LOADIMAGE("4.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

E:
SOUND 700, 4
SCREEN 12
i& = _LOADIMAGE("5.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

F:
SOUND 800, 4
SCREEN 12
i& = _LOADIMAGE("6.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

G:
SOUND 900, 4
SCREEN 12
i& = _LOADIMAGE("7.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

H:
SOUND 1000, 4
SCREEN 12
i& = _LOADIMAGE("8.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN
'Add I
I:
SOUND 1100, 4
SCREEN 12
i& = _LOADIMAGE("9.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN
J:
SOUND 1200, 4
SCREEN 12
i& = _LOADIMAGE("10.png")
_PUTIMAGE , i&
_DELAY 1
CLS

RETURN

PRINT " Esc to exit."




  

If they fit, I will include the drawings for the letters. Here are 5, the other 4 will be in a added reply

[GarrisonRicketson]

Here is the remaining 3.

[GarrisonRicketson]

Here is the sprite sheet, converted to a .png image.