.版本 2 .程序集 窗口程序集1 .程序集变量 Chan, 整数型 .程序集变量 fxPhaser, 整数型 .子程序 __启动窗口_创建完毕 BASS_FX_GetVersion () BASS_Init (-1, 44100, 0, 0, 0) .子程序 _按钮1_被单击 CommonDlg.过滤器 ＝ “Playable files|*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif|All files|*.*” CommonDlg.文件名 ＝ “” .如果真 (CommonDlg.打开 ()) Playable (CommonDlg.文件名) .如果真结束 .子程序 Playable .参数 Files, 文本型 BASS_StreamFree (Chan) Chan ＝ BASS_StreamCreateFile (假, Files, 0, 0, 0, 0, 0) BASS_ChannelPlay (Chan, 真) .子程序 _Phaser_被单击 Phaser () .子程序 Phaser .局部变量 变量, 整数型 .如果 (Phaser.选中 ＝ 真) fxPhaser ＝ BASS_ChannelSetFX (Chan, #BASS_FX_BFX_PHASER, 1) HScrollBar () .否则 BASS_ChannelRemoveFX (Chan, fxPhaser) .如果结束 .子程序 HScrollBar _DryMix_位置被改变 () _WetMix_位置被改变 () _Feedback_位置被改变 () _Rate_位置被改变 () _Range_位置被改变 () _Freq_位置被改变 () .子程序 sldPhaser_Scroll .参数 index, 整数型 .参数 Phaser, 整数型 .局部变量 phs, BASS_BFX_PHASER BASS_FXGetParameters (fxPhaser, phs) .如果真 (index ＝ 1) phs.fDryMix ＝ Phaser ÷ 1000 .如果真结束 .如果真 (index ＝ 2) phs.fWetMix ＝ Phaser ÷ 1000 .如果真结束 .如果真 (index ＝ 3) phs.fFeedback ＝ Phaser ÷ 1000 .如果真结束 .如果真 (index ＝ 4) phs.fRate ＝ Phaser ÷ 10 .如果真结束 .如果真 (index ＝ 5) phs.fRange ＝ Phaser ÷ 10 .如果真结束 .如果真 (index ＝ 6) phs.fFreq ＝ Phaser ÷ 10 .如果真结束 BASS_FXSetParameters (fxPhaser, phs) .子程序 _DryMix_位置被改变 .局部变量 Pos, 整数型 Pos ＝ DryMix.位置 － 2000 sldPhaser_Scroll (1, Pos) .子程序 _WetMix_位置被改变 .局部变量 Pos, 整数型 Pos ＝ WetMix.位置 － 2000 sldPhaser_Scroll (2, Pos) .子程序 _Feedback_位置被改变 .局部变量 Pos, 整数型 Pos ＝ Feedback.位置 － 1000 sldPhaser_Scroll (3, Pos) .子程序 _Rate_位置被改变 sldPhaser_Scroll (4, Rate.位置) .子程序 _Range_位置被改变 sldPhaser_Scroll (5, Range.位置) .子程序 _Freq_位置被改变 sldPhaser_Scroll (6, Freq.位置)