- 當初會做這個sample是因為我找不到Board上BeeBee音而找的替代方案,不像在Linux的環境下只要% beep,就會發出提示音,不過這樣也好拉,古人說塞翁失馬焉知非福...就順其自然摟.沒想到這個model下還可以開發出很多奇怪的東西呢.
- 請先下載 Audio::Beep 套件 安裝教學 http://perl.hcchien.org/ch13.html
- Sample code 底下以Windows XP為範例 Windows API 控制Kernel32.dll的Driver my $player = Win32::API->new('kernel32', 'Beep', 'NN', 'N'); Win32::Beep ( [FREQUENCY, DURATION] )
Kernel32.dll相關說明 http://en.wikipedia.org/wiki/Kernel32.dll#Kernel32.dll Kernel32.dll API http://www.webtropy.com/articles/art9-2.asp?lib=kernel32.dll http://search.cpan.org/dist/Win32-API/samples/Win32/kernel32.pm
如對轉檔有興趣可參考 Perl Audio Converter http://sourceforge.net/projects/pacpl/
沒有留言:
張貼留言