Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Звуки и Музыка    >>    bkplay10
   
 
 BackPlay - Background Music for PC Speaker   Scott Bussinger 27.09.88

Модуль для проигрывания одноголосой музыки на спикере на фоне выполнения программы.
This unit allows you to play music in the background of your Turbo Pascal 5.0 programs. In the background means that once you start the music playing, you can continue on with the rest of your program and the music keeps playing without any additional effort on your part until the song is finished.



6k 
 

BackPlay -- A unit for playing music in the background. Version 1.00 -- 9/24/1988 -- First version Copyright 1988 Scott Bussinger All rights reserved. Scott Bussinger Professional Practice Systems 110 South 131st Street Tacoma, WA 98444 (206)531-8944 Compuserve [72247,2671] This unit allows you to play music in the background of your Turbo Pascal 5.0 programs. In the background means that once you start the music playing, you can continue on with the rest of your program and the music keeps playing without any additional effort on your part until the song is finished. You can use this to provide special sound effects in your programs or just to add a cute indication that your program is still working on something. The unit accepts music files from Neil Rubenking's PianoMan program version 4.0 and the code in this file is based on information gained from his sample music playing routines. You can either play the .MUZ files off of your disks, or imbed the the MUZ data directly into your program so the the file need not be available at run time. Neil's PianoMan is an excellent shareware product and is available from many bulletin boards on in the IBM Software forum on Compuserve. It allows you to play your computer's keyboard like a piano keyboard and record and edit music entered in real time or from sheet music. There are also many files of songs already entered that you can use. One sample archive for instance contains over 50 sample songs. function PlayingInBackground: boolean; This returns true if there is still