home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / EZTest.zip / playsong.xs < prev    next >
Text File  |  2006-06-17  |  2KB  |  73 lines
  1. Function PlayNote(Freq, Octave, Time)
  2.     p = Power(2.0, Octave)
  3.     f = Freq * p
  4.     PlayBeep(f, Time)
  5. End Function
  6.  
  7. Function Main
  8.  
  9. Attach("~P~NOTEPAD.EXE~Edit~Untitled - Notepad", "A")
  10. Type ("starting song\n")
  11.  
  12. NOTE_C  = 262.0
  13. NOTE_Db = 277.0
  14. NOTE_D  = 294.0
  15. NOTE_Eb = 311.0
  16. NOTE_E  = 330.0
  17. NOTE_F  = 349.0
  18. NOTE_Gb = 370.0
  19. NOTE_G  = 392.0
  20. NOTE_Ab = 415.0
  21. NOTE_A  = 440.0
  22. NOTE_Bb = 466.0
  23. NOTE_B  = 495.0
  24.  
  25. PlayNote(NOTE_C, 0, 500)
  26.     PlayNote(NOTE_D, 0, 500)
  27.     PlayNote(NOTE_E, 0, 500)
  28.     PlayNote(NOTE_C, 0, 500)
  29.     PlayNote(NOTE_C, 0, 500)
  30.     PlayNote(NOTE_D, 0, 500)
  31.     PlayNote(NOTE_E, 0, 500)
  32.     PlayNote(NOTE_C, 0, 500)
  33.     PlayNote(NOTE_E, 0, 500)
  34.     PlayNote(NOTE_F, 0, 500)
  35.     PlayNote(NOTE_G, 0, 500)
  36. Sleep(500, "ms")
  37.     PlayNote(NOTE_E, 0, 500)
  38.     PlayNote(NOTE_F, 0, 500)
  39.     PlayNote(NOTE_G, 0, 500)
  40. Sleep(500, "ms")
  41.     PlayNote(NOTE_G, 0, 250)
  42.     PlayNote(NOTE_A, 0, 250)
  43.     PlayNote(NOTE_G, 0, 250)
  44.     PlayNote(NOTE_F, 0, 250)
  45.     PlayNote(NOTE_E, 0, 500)
  46.     PlayNote(NOTE_C, 0, 500)
  47.     PlayNote(NOTE_G, 0, 250)
  48.     PlayNote(NOTE_A, 0, 250)
  49.     PlayNote(NOTE_G, 0, 250)
  50.     PlayNote(NOTE_F, 0, 250)
  51.     PlayNote(NOTE_E, 0, 500)
  52.     PlayNote(NOTE_C, 0, 500)
  53.       
  54.     PlayNote(NOTE_C, 0, 500)
  55.     PlayNote(NOTE_G, -1, 500)
  56.     PlayNote(NOTE_C, 0, 500)
  57. Sleep(500, "ms")
  58.     PlayNote(NOTE_C, 0, 500)
  59.     PlayNote(NOTE_G, -1, 500)
  60.     PlayNote(NOTE_C, 0, 500)
  61.  
  62. Type ("done with  song\n")
  63.  
  64. End Function  Main
  65.  
  66. Function OnErrorHandler
  67.      ;Insert your Error handling code here.
  68.     
  69.     Resume Next  Continue On Error
  70.  
  71. End Function
  72.  
  73.