December 21st, 2006, 12:37 AM
|
|
Registered User
|
|
Join Date: Dec 2006
Posts: 1
Time spent in forums: 12 m 16 sec
Reputation Power: 0
|
|
|
Simple sound program
here is a simple sound program i made for fun. it uses your modem speaker built into your comp. to play the sound
Code:
PROGRAM Play_Sound
print "Press 1 for default setup or"
print "Press 2 for advance."
print "Press 3 for help."
print "press 4 for Jingle Bells"
input x
if ( x = 1) then
print "Enter note."
input note$
PLAY note$
else if (x = 2) then
print "How many notes in song?"
input numOfNotes
Dim array$(1024)
for i = 1 to numOfNotes step 1
print i ; "Note."
input Note$
let array$(i) = Note$
next i
for i = 1 to numOfNotes
play array$(i)
next i
print "The song is done."
print "Stop again anytime"
else if (x = 3) then
clear
print "Notes got from A to G( think of guitar notes )"
print "Next to letter write a number"
print "1 = whole, 2 = half, 4 = quarterm and so on"
pause 3
clear
else if (x = 4) then
play note$
play "E4"
play "E4"
play "E2"
play "E4"
play "E4"
play "E2"
play "E4"
play "G4"
play "C4"
play "D4"
play "E1"
play "F4"
play "F4"
play "F4"
play "F4"
play "F4"
play "E4"
play "E2"
play "E4"
play "D4"
play "D4"
play "E4"
play "D2"
play "G2"
! break
play "E4"
play "E4"
play "E2"
play "E4"
play "E4"
play "E2"
play "E4"
play "G4"
play "C4"
play "D4"
play "E1"
play "F4"
play "F4"
play "F4"
play "F4"
play "F4"
play "E4"
play "E2"
play "G4"
play "G4"
play "F4"
play "D4"
play "C1"
print "thank you for listening!"
end if
end
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
