易语言BASS库应用源码

.版本 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.位置)

@易语言代码编写例子