Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Звуки и Музыка    >>    ctv_pas
   
 
 SoundBlaster Unit for Creative Lab's CT-VOICE.DRV  Markus Saukkonen 09.02.1991

Модуль для использования драйвера CT-VOICE.DRV для работы с саундбластеров в Турбо Паскале.
Unit for using Creative Lab's CT-VOICE.DRV with Turbo Pascal. Demo playing added. By Markus Saukkonen 1991, for public domain. For more detailed information about driver, refer to Sound Blaster's User Reference Manual.



4k 
 

CTDEMO.PAS, by Markus Saukkonen 1991. TДtД lДhdekoodia saa levittДД vapaasti, mutta vain CT_VOICE.PAS:n mukana. CTDEMO on yksinkertainen esimerkki CT_VOICE-unitin kДytФstД Sound Blasterin ohjaamiseen. Ohjelma lukee .VOC-tiedostoja ja soittaa ne. Latausosa on hieman monimutkainen, koska .VOC-tiedostossa voi olla rajoittamaton mДДrД erimittaisia datablokkeja (CTDEMO ei ymmДrrД eri blokkityyppejД, se vain soittaa ne kertaalleen lДpi). Tiedot luetaan levyltД vuorotellen kahteen puskuriin, tyylinД "toiseen ladataan - toista soitetaan". procedure getversion(var major, minor: byte); procedure setioaddress(address: word); procedure setinterrupt(int: word); function initializedriver:byte; procedure speaker(status: byte); procedure setstatusaddress(address: pointer); procedure playsample(address: pointer); procedure inputsample(address: pointer; speed: word; length: longint); procedure stopvoice; procedure uninstalldriver; function pausevoice: byte; function continuevoice: byte; function breakloop(when: word): byte; procedure setuserfunction(address: pointer);