PDA

Click to See Complete Forum and Search --> : heh heh.. star wars tune through the computer speaker

Arachnid13
Apr 13th, 2005, 07:48 AM
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
Dave Sell
Apr 23rd, 2005, 03:05 PM
It doesn't work on my laptop I basically hear nothing and it won't close gracefully.
|2eM!x
Apr 24th, 2005, 08:23 PM
i added a whole bunch of doevents and now it closes nice:



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
|2eM!x
Apr 24th, 2005, 08:23 PM
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]
Arachnid13
Apr 27th, 2005, 02:24 PM
@ 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 :D 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! :D
radiomage
May 4th, 2005, 01:27 PM
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)
wossname
Dec 24th, 2005, 12:58 PM
Have you guys never heard of arrays? Urgh.
|2eM!x
Dec 25th, 2005, 09:45 PM
(8 months ago me): no!
thamizhinpan
Jan 6th, 2006, 12:41 PM
How Can I here this note in normal speaker?
CVMichael
Jan 6th, 2006, 06:02 PM
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:
damasterjo
Jan 6th, 2006, 08:54 PM
Have you guys never heard of arrays? Urgh.
Amen to that!
Oh and that is cool stuff though!
:LOOK AT SIGNATURE:
thamizhinpan
Jan 15th, 2006, 10:47 AM
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?
CVMichael
Jan 15th, 2006, 12:22 PM
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.