heh heh.. star wars tune through the computer speaker

Printable View

Apr 13th, 2005, 07:48 AM
Arachnid13

1 Attachment(s)

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
Apr 23rd, 2005, 03:05 PM
Dave Sell

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.

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

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
Arachnid13

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 :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
May 4th, 2005, 01:27 PM
radiomage

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
wossname

Re: heh heh.. star wars tune through the computer speaker

Have you guys never heard of arrays? Urgh.
Dec 25th, 2005, 10:45 PM
|2eM!x

Re: heh heh.. star wars tune through the computer speaker

(8 months ago me): no!
Jan 6th, 2006, 01:41 PM
thamizhinpan

Re: heh heh.. star wars tune through the computer speaker

How Can I here this note in normal speaker?
Jan 6th, 2006, 07:02 PM
CVMichael

1 Attachment(s)

Re: heh heh.. star wars tune through the computer speaker

Quote:

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:
Jan 6th, 2006, 09:54 PM
damasterjo

Re: heh heh.. star wars tune through the computer speaker

Quote:

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:
Jan 15th, 2006, 11:47 AM
thamizhinpan

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?
Jan 15th, 2006, 01:22 PM
CVMichael

Re: heh heh.. star wars tune through the computer speaker

Quote:

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.