Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Public Declare Function Beep Lib "Kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
- Public Declare Function MessageBeep Lib "User32" (ByVal wType As Long) As Long
- Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
- '====================================================================
- Public Sub Main()
- PlayMusic1
- End Sub
- '====================================================================
- ' http://www.rohitab.com/discuss/topic/18694-a-really-cool-beep-tune/
- '====================================================================
- Private Sub PlayMusic1()
- Beep 1480, 200
- Beep 1568, 200
- Beep 1568, 200
- Beep 1568, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 369.99, 200
- Beep 392, 200
- Beep 369.99, 200
- Beep 392, 200
- Beep 392, 400
- Beep 196, 400
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 880, 200
- Beep 830.61, 200
- Beep 880, 200
- Beep 987.77, 400
- Beep 880, 200
- Beep 783.99, 200
- Beep 698.46, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 880, 200
- Beep 830.61, 200
- Beep 880, 200
- Beep 987.77, 400
- Sleep 200
- Beep 1108, 10
- Beep 1174.7, 200
- Beep 1480, 10
- Beep 1568, 200
- Sleep 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 783.99, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 880, 200
- Beep 830.61, 200
- Beep 880, 200
- Beep 987.77, 400
- Beep 880, 200
- Beep 783.99, 200
- Beep 698.46, 200
- Beep 659.25, 200
- Beep 698.46, 200
- Beep 784, 200
- Beep 880, 400
- Beep 784, 200
- Beep 698.46, 200
- Beep 659.25, 200
- Beep 587.33, 200
- Beep 659.25, 200
- Beep 698.46, 200
- Beep 784, 400
- Beep 698.46, 200
- Beep 659.25, 200
- Beep 587.33, 200
- Beep 523.25, 200
- Beep 587.33, 200
- Beep 659.25, 200
- Beep 698.46, 400
- Beep 659.25, 200
- Beep 587.33, 200
- Beep 493.88, 200
- Beep 523.25, 200
- Sleep 400
- Beep 349.23, 400
- Beep 392, 200
- Beep 329.63, 200
- Beep 523.25, 200
- Beep 493.88, 200
- Beep 466.16, 200
- Beep 440, 200
- Beep 493.88, 200
- Beep 523.25, 200
- Beep 880, 200
- Beep 493.88, 200
- Beep 880, 200
- Beep 1760, 200
- Beep 440, 200
- Beep 392, 200
- Beep 440, 200
- Beep 493.88, 200
- Beep 783.99, 200
- Beep 440, 200
- Beep 783.99, 200
- Beep 1568, 200
- Beep 392, 200
- Beep 349.23, 200
- Beep 392, 200
- Beep 440, 200
- Beep 698.46, 200
- Beep 415.2, 200
- Beep 698.46, 200
- Beep 1396.92, 200
- Beep 349.23, 200
- Beep 329.63, 200
- Beep 311.13, 200
- Beep 329.63, 200
- Beep 659.25, 200
- Beep 698.46, 400
- Beep 783.99, 400
- Beep 440, 200
- Beep 493.88, 200
- Beep 523.25, 200
- Beep 880, 200
- Beep 493.88, 200
- Beep 880, 200
- Beep 1760, 200
- Beep 440, 200
- Beep 392, 200
- Beep 440, 200
- Beep 493.88, 200
- Beep 783.99, 200
- Beep 440, 200
- Beep 783.99, 200
- Beep 1568, 200
- Beep 392, 200
- Beep 349.23, 200
- Beep 392, 200
- Beep 440, 200
- Beep 698.46, 200
- Beep 659.25, 200
- Beep 698.46, 200
- Beep 739.99, 200
- Beep 783.99, 200
- Beep 392, 200
- Beep 392, 200
- Beep 392, 200
- Beep 392, 200
- Beep 196, 200
- Beep 196, 200
- Beep 196, 200
- Beep 185, 200
- Beep 196, 200
- Beep 185, 200
- Beep 196, 200
- Beep 207.65, 200
- Beep 220, 200
- Beep 233.08, 200
- Beep 246.94, 200
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement