SHARE
TWEET

BeepTest0001.BAS

Linda-chan Jul 7th, 2015 209 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2.  
  3. Public Declare Function Beep Lib "Kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
  4. Public Declare Function MessageBeep Lib "User32" (ByVal wType As Long) As Long
  5. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  6.  
  7. '====================================================================
  8. Public Sub Main()
  9.   PlayMusic1
  10. End Sub
  11.  
  12. '====================================================================
  13. ' http://www.rohitab.com/discuss/topic/18694-a-really-cool-beep-tune/
  14. '====================================================================
  15. Private Sub PlayMusic1()
  16.   Beep 1480, 200
  17.   Beep 1568, 200
  18.   Beep 1568, 200
  19.   Beep 1568, 200
  20.   Beep 739.99, 200
  21.   Beep 783.99, 200
  22.   Beep 783.99, 200
  23.   Beep 783.99, 200
  24.   Beep 369.99, 200
  25.   Beep 392, 200
  26.   Beep 369.99, 200
  27.   Beep 392, 200
  28.   Beep 392, 400
  29.   Beep 196, 400
  30.   Beep 739.99, 200
  31.   Beep 783.99, 200
  32.   Beep 783.99, 200
  33.   Beep 739.99, 200
  34.   Beep 783.99, 200
  35.   Beep 783.99, 200
  36.   Beep 739.99, 200
  37.   Beep 783.99, 200
  38.   Beep 880, 200
  39.   Beep 830.61, 200
  40.   Beep 880, 200
  41.   Beep 987.77, 400
  42.   Beep 880, 200
  43.   Beep 783.99, 200
  44.   Beep 698.46, 200
  45.   Beep 739.99, 200
  46.   Beep 783.99, 200
  47.   Beep 783.99, 200
  48.   Beep 739.99, 200
  49.   Beep 783.99, 200
  50.   Beep 783.99, 200
  51.   Beep 739.99, 200
  52.   Beep 783.99, 200
  53.   Beep 880, 200
  54.   Beep 830.61, 200
  55.   Beep 880, 200
  56.   Beep 987.77, 400
  57.   Sleep 200
  58.   Beep 1108, 10
  59.   Beep 1174.7, 200
  60.   Beep 1480, 10
  61.   Beep 1568, 200
  62.   Sleep 200
  63.   Beep 739.99, 200
  64.   Beep 783.99, 200
  65.   Beep 783.99, 200
  66.   Beep 739.99, 200
  67.   Beep 783.99, 200
  68.   Beep 783.99, 200
  69.   Beep 739.99, 200
  70.   Beep 783.99, 200
  71.   Beep 880, 200
  72.   Beep 830.61, 200
  73.   Beep 880, 200
  74.   Beep 987.77, 400
  75.   Beep 880, 200
  76.   Beep 783.99, 200
  77.   Beep 698.46, 200
  78.   Beep 659.25, 200
  79.   Beep 698.46, 200
  80.   Beep 784, 200
  81.   Beep 880, 400
  82.   Beep 784, 200
  83.   Beep 698.46, 200
  84.   Beep 659.25, 200
  85.   Beep 587.33, 200
  86.   Beep 659.25, 200
  87.   Beep 698.46, 200
  88.   Beep 784, 400
  89.   Beep 698.46, 200
  90.   Beep 659.25, 200
  91.   Beep 587.33, 200
  92.   Beep 523.25, 200
  93.   Beep 587.33, 200
  94.   Beep 659.25, 200
  95.   Beep 698.46, 400
  96.   Beep 659.25, 200
  97.   Beep 587.33, 200
  98.   Beep 493.88, 200
  99.   Beep 523.25, 200
  100.   Sleep 400
  101.   Beep 349.23, 400
  102.   Beep 392, 200
  103.   Beep 329.63, 200
  104.   Beep 523.25, 200
  105.   Beep 493.88, 200
  106.   Beep 466.16, 200
  107.   Beep 440, 200
  108.   Beep 493.88, 200
  109.   Beep 523.25, 200
  110.   Beep 880, 200
  111.   Beep 493.88, 200
  112.   Beep 880, 200
  113.   Beep 1760, 200
  114.   Beep 440, 200
  115.   Beep 392, 200
  116.   Beep 440, 200
  117.   Beep 493.88, 200
  118.   Beep 783.99, 200
  119.   Beep 440, 200
  120.   Beep 783.99, 200
  121.   Beep 1568, 200
  122.   Beep 392, 200
  123.   Beep 349.23, 200
  124.   Beep 392, 200
  125.   Beep 440, 200
  126.   Beep 698.46, 200
  127.   Beep 415.2, 200
  128.   Beep 698.46, 200
  129.   Beep 1396.92, 200
  130.   Beep 349.23, 200
  131.   Beep 329.63, 200
  132.   Beep 311.13, 200
  133.   Beep 329.63, 200
  134.   Beep 659.25, 200
  135.   Beep 698.46, 400
  136.   Beep 783.99, 400
  137.   Beep 440, 200
  138.   Beep 493.88, 200
  139.   Beep 523.25, 200
  140.   Beep 880, 200
  141.   Beep 493.88, 200
  142.   Beep 880, 200
  143.   Beep 1760, 200
  144.   Beep 440, 200
  145.   Beep 392, 200
  146.   Beep 440, 200
  147.   Beep 493.88, 200
  148.   Beep 783.99, 200
  149.   Beep 440, 200
  150.   Beep 783.99, 200
  151.   Beep 1568, 200
  152.   Beep 392, 200
  153.   Beep 349.23, 200
  154.   Beep 392, 200
  155.   Beep 440, 200
  156.   Beep 698.46, 200
  157.   Beep 659.25, 200
  158.   Beep 698.46, 200
  159.   Beep 739.99, 200
  160.   Beep 783.99, 200
  161.   Beep 392, 200
  162.   Beep 392, 200
  163.   Beep 392, 200
  164.   Beep 392, 200
  165.   Beep 196, 200
  166.   Beep 196, 200
  167.   Beep 196, 200
  168.   Beep 185, 200
  169.   Beep 196, 200
  170.   Beep 185, 200
  171.   Beep 196, 200
  172.   Beep 207.65, 200
  173.   Beep 220, 200
  174.   Beep 233.08, 200
  175.   Beep 246.94, 200
  176. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top