窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_窗口1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 音乐句柄 | 整数型 | | 音量 | 小数型 | | 热键1 | 整数型 | | 热键2 | 整数型 | | 热键3 | 整数型 | | 热键4 | 整数型 | | 热键5 | 整数型 | | 热键6 | 整数型 | | 热键7 | 整数型 | | 热键8 | 整数型 | | 热键9 | 整数型 | | 热键10 | 整数型 | | 热键11 | 整数型 | | 热键12 | 整数型 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | N | 整数型 | | | info | BASS_DEVICEINFO | | | Ls文本 | 文本型 | | |
热键1 = 注册热键 (取窗口句柄 (), 标签1. 取窗口句柄 (), 0, #F1键 )热键2 = 注册热键 (取窗口句柄 (), 标签2. 取窗口句柄 (), 0, #F2键 )热键3 = 注册热键 (取窗口句柄 (), 标签3. 取窗口句柄 (), 0, #F3键 )热键4 = 注册热键 (取窗口句柄 (), 标签4. 取窗口句柄 (), 0, #F4键 )热键5 = 注册热键 (取窗口句柄 (), 标签5. 取窗口句柄 (), 0, #F5键 )热键6 = 注册热键 (取窗口句柄 (), 标签6. 取窗口句柄 (), 0, #F6键 )热键7 = 注册热键 (取窗口句柄 (), 标签7. 取窗口句柄 (), 0, #F7键 )热键8 = 注册热键 (取窗口句柄 (), 标签8. 取窗口句柄 (), 0, #F8键 )热键9 = 注册热键 (取窗口句柄 (), 标签9. 取窗口句柄 (), 0, #F9键 )热键10 = 注册热键 (取窗口句柄 (), 标签10. 取窗口句柄 (), 0, #F10键 )热键11 = 注册热键 (取窗口句柄 (), 标签11. 取窗口句柄 (), 0, #F11键 )热键12 = 注册热键 (取窗口句柄 (), 标签12. 取窗口句柄 (), 0, #F12键 ) 计次循环首 (128, N )如果真 (BASS_GetDeviceInfo (N, info )) 组合框1. 插入项目 (N - 1, 指针到文本 (info.name ), N )计次循环尾 () Ls文本 = 读配置项 (取运行目录 () + “\配置.ini”, “设置”, “通道”, ) 如果 (Ls文本 = “”) BASS_Init (-1, 44100, 0, 取窗口句柄 (), 0 )组合框1.现行选中项 = 0 BASS_Init (到整数 (Ls文本 ), 44100, 0, 取窗口句柄 (), 0 )组合框1.现行选中项 = 到整数 (Ls文本 ) - 1
音量 = 1 滑块条1.位置 = 音量 × 100 _启动窗口. 获取焦点 () 音量 = 滑块条1.位置 ÷ 100 BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F1, 0, 取字节集长度 ( #自动F1 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F2, 0, 取字节集长度 ( #自动F2 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F3, 0, 取字节集长度 ( #自动F3 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F4, 0, 取字节集长度 ( #自动F4 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F5, 0, 取字节集长度 ( #自动F5 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F6, 0, 取字节集长度 ( #自动F6 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F7, 0, 取字节集长度 ( #自动F7 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F8, 0, 取字节集长度 ( #自动F8 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F9, 0, 取字节集长度 ( #自动F9 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F10, 0, 取字节集长度 ( #自动F10 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F11, 0, 取字节集长度 ( #自动F11 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_内存 (真, #自动F12, 0, 取字节集长度 ( #自动F12 ), 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_ChannelStop (音乐句柄 )BASS_StreamFree (音乐句柄 )音乐句柄 = BASS_StreamCreateFile_文件 (假, 取运行目录 () + “\sound\manual\” + “自从遇见你铃声.wav”, 0, 0, 0 )BASS_ChannelPlay (音乐句柄, 真)BASS_ChannelSetAttribute (音乐句柄, 2, 音量 )BASS_Free () BASS_Free () BASS_Init (组合框1. 取项目数值 (组合框1.现行选中项 ), 44100, 0, 取窗口句柄 (), 0 ) 写配置项 (取运行目录 () + “\配置.ini”, “设置”, “通道”, 到文本 (组合框1. 取项目数值 (组合框1.现行选中项 )) ) BASS_ChannelStop (音乐句柄 ) BASS_StreamFree (音乐句柄 ) 状态条1. 置文本 (1, “ 时间:” + 到文本 (取现行时间 ()) )|
_标签1_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | 如果真 (参数一 = 热键1 )_声音资源音效F1_被单击 ()|
_标签2_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | 如果真 (参数一 = 热键2 )_声音资源音效F2_被单击 ()|
_标签3_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F3_被单击 ()|
_标签4_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F4_被单击 ()|
_标签5_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F5_被单击 ()|
_标签6_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F6_被单击 ()|
_标签7_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F7_被单击 ()|
_标签8_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F8_被单击 ()|
_标签9_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F9_被单击 ()|
_标签10_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F10_被单击 ()|
_标签11_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F11_被单击 ()|
_标签12_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | _声音资源音效F12_被单击 ()
注册热键 不管是按F1 还是F2 F3 F4 F5 都是一个音效 音乐文件我已经添加到资源了,不知道为啥 还是总是播放一个音效资源里面的音乐
|