Apr 13th, 2005, 07:48 AM
#1
Thread Starter
Hyperactive Member
heh heh.. star wars tune through the computer speaker
got a bit bored messin about with the Beep Api... there's ode to joy too, anyone feel free to use it to make their own, post them on here tho so we can all listen! ive made it really simple, all you need to know is the musical notes now, rather than the exact frequency
Attached Files
Do you wake up in the morning feeling sleepy and grumpy? Then you must be Snow White
Apr 23rd, 2005, 03:05 PM
#2
Re: heh heh.. star wars tune through the computer speaker
It doesn't work on my laptop I basically hear nothing and it won't close gracefully.
Nobody knows what software they want until after you've delivered what they originally asked for.
Don't solve problems which don't exist.
"If I had eight hours to cut down a tree, I'd spend six hours sharpening my axe." --- Abraham Lincoln (1809-1865)
2 idiots don't make a genius.
Apr 24th, 2005, 08:23 PM
#3
Re: heh heh.. star wars tune through the computer speaker
i added a whole bunch of doevents and now it closes nice:
VB Code:
Private Sub cmdOdeToJoy_Click()
Beat = GetLengthOfBeat(Tempo_Allegro)
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1.5
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1.5
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 2
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_3, Note_D_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1.5
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 2
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_3, Note_D_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_C_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1
Beep GetFrequency(Octave_4, Note_B_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 1.5
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 2
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
End Sub
Private Sub cmdStarWars_Click()
Beat = GetLengthOfBeat(Tempo_Allegro)
Sleep Beat * 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 4
DoEvents
Beep GetFrequency(Octave_3, Note_E_Natural), Beat * 1.5
Beep GetFrequency(Octave_3, Note_E_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 2
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 2
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_3, Note_E_Natural), Beat / 4
Beep GetFrequency(Octave_3, Note_F_Sharp), Beat
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 4
DoEvents
Beep GetFrequency(Octave_3, Note_E_Natural), Beat * 1.5
Beep GetFrequency(Octave_3, Note_E_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 2
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 2
DoEvents
Beep GetFrequency(Octave_4, Note_D_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 4
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 4
DoEvents
Beep GetFrequency(Octave_3, Note_E_Natural), Beat * 1.5
Beep GetFrequency(Octave_3, Note_E_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 2
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 2
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_3, Note_E_Natural), Beat / 4
Beep GetFrequency(Octave_3, Note_F_Sharp), Beat
Beep GetFrequency(Octave_4, Note_D_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_4, Note_D_Natural), Beat / 4
Apr 24th, 2005, 08:23 PM
#4
Re: heh heh.. star wars tune through the computer speaker
VB Code:
DoEvents
Beep GetFrequency(Octave_4, Note_G_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_4, Note_F_Natural), Beat / 4
Beep GetFrequency(Octave_4, Note_E_Flat), Beat / (4 / 3)
Beep GetFrequency(Octave_4, Note_D_Natural), Beat / 4
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_4, Note_B_Flat), Beat / 4
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 4
DoEvents
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3
DoEvents
Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 2
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1
DoEvents
Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 1.5
Beep GetFrequency(Octave_4, Note_E_Natural), Beat / 2
Beep GetFrequency(Octave_4, Note_D_Natural), Beat / (4 / 3)
Beep GetFrequency(Octave_4, Note_D_Natural), Beat / 4
Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 4
Beep GetFrequency(Octave_4, Note_G_Natural), Beat
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3
Beep GetFrequency(Octave_3, Note_G_Natural), Beat
Sleep Beat
End Sub
Private Sub Picture_Click()
End
End Sub
very cool btw, howd you figure that out?!![/Highlight]
Apr 27th, 2005, 02:24 PM
#5
Thread Starter
Hyperactive Member
Re: heh heh.. star wars tune through the computer speaker
@ Dave Sell:
The only problem ive had with it is playing it on windows 98 so maybe if your laptop has 98, otherwise i cant think why it wont, apart from if ur motherboard didnt have a speaker... but i think all pcs do, dunno.
@ |2eM!x:
Thanks for the comment i just found the frequencies for the different notes on a website and devised the formula that's in the GetFrequency code from that... i suppose a bit of the credit should go to my bro tho who taught me how to read music in about 30 minutes!
Do you wake up in the morning feeling sleepy and grumpy? Then you must be Snow White
May 4th, 2005, 01:27 PM
#6
Junior Member
Re: heh heh.. star wars tune through the computer speaker
AFAIK the VB "Beep" only works if system sound beep iis on.
The API Beep (freq, duration) only works on NT family (NT4, 2K, XP) on Win9x/ME I think it is mapped to the system beep (which is in Control Panel Sounds)
Dec 24th, 2005, 01:58 PM
#7
Re: heh heh.. star wars tune through the computer speaker
Have you guys never heard of arrays? Urgh.
I don't live here any more.
Dec 25th, 2005, 10:45 PM
#8
Re: heh heh.. star wars tune through the computer speaker
Jan 6th, 2006, 01:41 PM
#9
Addicted Member
Re: heh heh.. star wars tune through the computer speaker
How Can I here this note in normal speaker?
If above question or answer will help to you
Don't forget to rate me
தமிழ்இன்பன்
Jan 6th, 2006, 07:02 PM
#10
Re: heh heh.. star wars tune through the computer speaker
Originally Posted by
thamizhinpan
How Can I here this note in normal speaker?
Check this out:
I modified the original project that Arachnid13 attached, and came up with this:
Attached Files
Jan 6th, 2006, 09:54 PM
#11
Fanatic Member
Re: heh heh.. star wars tune through the computer speaker
Originally Posted by
wossname
Have you guys never heard of arrays? Urgh.
Amen to that!
Oh and that is cool stuff though!
:LOOK AT SIGNATURE:
Software languages known:
Qbasic - TI-Basic - Liberty Basic - Visual Basic 6
Software API's known:
Directx 7 and 8
Internet languages, in the process of learning:
HTML - JAVASCRIPT - PHP - CSS - MYSQL - AJAX
Jan 15th, 2006, 11:47 AM
#12
Addicted Member
Re: heh heh.. star wars tune through the computer speaker
Your code is not working in windows me (It is working in XP). What can I do to play music in system speaker when I use windows me?
If above question or answer will help to you
Don't forget to rate me
தமிழ்இன்பன்
Jan 15th, 2006, 01:22 PM
#13
Re: heh heh.. star wars tune through the computer speaker
Originally Posted by
thamizhinpan
Your code is not working in windows me (It is working in XP). What can I do to play music in system speaker when I use windows me?
The code that I added (the 2 new buttons), first make a WAV file, then it will play that WAV file using the MMControl.
A WAV file should play in any windows, so maybe there is something wrong with the MMControl in your windows. Change the code to use something else. Just change the code to play the WAVE file with anything that works for your computer. There are a lot of samples how to play wave files in the forums, just search for them.
Posting Permissions
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
Forum Rules
Click Here to Expand Forum to Full Width