稍微修改下就可以实现音乐音量的渐大渐小

李泽勇2

稍微修改下就可以实现音乐音量的渐大渐小，当然你得先下载播放器源码：https://bbs.125.la/thread-14518772-1-1.html
如果你有源码可以直接复制过去。在粘贴代码前你还必须获取原音量的位置，如下图：

  

子程序名	返回值类型	公开	备 注
_音量条_位置被改变

音量百分比标签.标题 ＝ 到文本 (音量条.位置) ＋ “%”
启动线程 (&子程序_音量调节, , )

子程序名	返回值类型	公开	备 注
子程序_音量调节

变量名	类 型	静态	数组	备 注
新位置	整数型

如果真 (原音量条位置 ≥ 音量条.位置)
新位置 ＝ 原音量条位置 － 音量条.位置
计次循环首 (新位置, )
原音量条位置 ＝ 原音量条位置 － 1
程序_延时 (10, )
bass.置音量 (播放句柄, 原音量条位置)
计次循环尾 ()
原音量条位置 ＝ 音量条.位置
如果真 (原音量条位置 ≤ 音量条.位置)
新位置 ＝ 音量条.位置 － 原音量条位置
计次循环首 (新位置, )
原音量条位置 ＝ 原音量条位置 ＋ 1
程序_延时 (10, )
bass.置音量 (播放句柄, 原音量条位置)
计次循环尾 ()
原音量条位置 ＝ 音量条.位置

i支持库列表	支持库注释
iext6	扩展界面支持库六
EThread	多线程支持库

.版本 2<br /> .支持库 iext6<br /> .支持库 EThread<br /> <br /> .子程序 _音量条_位置被改变<br /> <br /> 音量百分比标签.标题 ＝ 到文本 (音量条.位置) ＋ “%”<br /> 启动线程 (&子程序_音量调节, , )<br /> <br /> .子程序 子程序_音量调节<br /> .局部变量 新位置, 整数型<br /> <br /> .如果真 (原音量条位置 ≥ 音量条.位置)<br />     新位置 ＝ 原音量条位置 － 音量条.位置<br />     .计次循环首 (新位置, )<br />         原音量条位置 ＝ 原音量条位置 － 1<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 原音量条位置)<br />     .计次循环尾 ()<br />     原音量条位置 ＝ 音量条.位置<br /> .如果真结束<br /> .如果真 (原音量条位置 ≤ 音量条.位置)<br />     新位置 ＝ 音量条.位置 － 原音量条位置<br />     .计次循环首 (新位置, )<br />         原音量条位置 ＝ 原音量条位置 ＋ 1<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 原音量条位置)<br />     .计次循环尾 ()<br />     原音量条位置 ＝ 音量条.位置<br /> .如果真结束

long467899509

我是过来拿金币的....

tanjiaqing

李泽勇2 发表于 2020-1-1 19:14
[e=4].版本 2
.支持库 iext6

谢谢楼主 我去试试

alanwoo

共同努力，共同进步

李泽勇2

tanjiaqing 发表于 2020-1-1 00:07
有没有 切换音乐的时候 淡入淡出的？

播放器里有这个，你找下，用线程可以实现。

李泽勇2

tanjiaqing 发表于 2020-1-1 00:07
有没有 切换音乐的时候 淡入淡出的？

  

子程序名	返回值类型	公开	备 注
MainSFade
参数名	类 型	参考	可空	数组	备 注
Type	整数型

变量名	类 型	静态	数组	备 注
i	整数型

判断 (Type ＝ 1)
bass.置音量 (播放句柄, 0)
音量线程中 ＝ 真
计次循环首 (50, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)
如果真 (i ＝ 50)
音量线程中 ＝ 假

计次循环尾 ()
判断 (Type ＝ 2)
音量线程中 ＝ 真
计次循环首 (30, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)
如果真 (i ＝ 30)
音量线程中 ＝ 假

计次循环尾 ()

i支持库列表	支持库注释
iext6	扩展界面支持库六

.版本 2<br /> .支持库 iext6<br /> <br /> .子程序 MainSFade<br /> .参数 Type, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (Type ＝ 1)<br />     bass.置音量 (播放句柄, 0)<br />     音量线程中 ＝ 真<br />     .计次循环首 (50, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)<br />         .如果真 (i ＝ 50)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断 (Type ＝ 2)<br />     音量线程中 ＝ 真<br />     .计次循环首 (30, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)<br />         .如果真 (i ＝ 30)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认

播放器里有这个功能，你用线程可以实现。

李泽勇2

tanjiaqing 发表于 2020-1-1 00:07
有没有 切换音乐的时候 淡入淡出的？

  

子程序名	返回值类型	公开	备 注
MainSFade
参数名	类 型	参考	可空	数组	备 注
Type	整数型

变量名	类 型	静态	数组	备 注
i	整数型

判断 (Type ＝ 1)
bass.置音量 (播放句柄, 0)
音量线程中 ＝ 真
计次循环首 (50, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)
如果真 (i ＝ 50)
音量线程中 ＝ 假

计次循环尾 ()
判断 (Type ＝ 2)
音量线程中 ＝ 真
计次循环首 (30, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)
如果真 (i ＝ 30)
音量线程中 ＝ 假

计次循环尾 ()

i支持库列表	支持库注释
iext6	扩展界面支持库六

.版本 2<br /> .支持库 iext6<br /> <br /> .子程序 MainSFade<br /> .参数 Type, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (Type ＝ 1)<br />     bass.置音量 (播放句柄, 0)<br />     音量线程中 ＝ 真<br />     .计次循环首 (50, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)<br />         .如果真 (i ＝ 50)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断 (Type ＝ 2)<br />     音量线程中 ＝ 真<br />     .计次循环首 (30, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)<br />         .如果真 (i ＝ 30)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束

播放器里面有这个，你找下，我只是没有做切歌的淡入淡出，你用线程可以实现。

李泽勇2

tanjiaqing 发表于 2020-1-1 00:07
有没有 切换音乐的时候 淡入淡出的？

  

子程序名	返回值类型	公开	备 注
MainSFade
参数名	类 型	参考	可空	数组	备 注
Type	整数型

变量名	类 型	静态	数组	备 注
i	整数型

判断 (Type ＝ 1)
bass.置音量 (播放句柄, 0)
音量线程中 ＝ 真
计次循环首 (50, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)
如果真 (i ＝ 50)
音量线程中 ＝ 假

计次循环尾 ()
判断 (Type ＝ 2)
音量线程中 ＝ 真
计次循环首 (30, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)
如果真 (i ＝ 30)
音量线程中 ＝ 假

计次循环尾 ()

i支持库列表	支持库注释
iext6	扩展界面支持库六

.版本 2<br /> .支持库 iext6<br /> <br /> .子程序 MainSFade<br /> .参数 Type, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (Type ＝ 1)<br />     bass.置音量 (播放句柄, 0)<br />     音量线程中 ＝ 真<br />     .计次循环首 (50, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)<br />         .如果真 (i ＝ 50)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断 (Type ＝ 2)<br />     音量线程中 ＝ 真<br />     .计次循环首 (30, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)<br />         .如果真 (i ＝ 30)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束

播放器里面有这个，你找下，我只是没有做切歌的淡入淡出，你用线程可以实现。

李泽勇2

tanjiaqing 发表于 2020-1-1 00:07
有没有 切换音乐的时候 淡入淡出的？

  

子程序名	返回值类型	公开	备 注
MainSFade
参数名	类 型	参考	可空	数组	备 注
Type	整数型

变量名	类 型	静态	数组	备 注
i	整数型

判断 (Type ＝ 1)
bass.置音量 (播放句柄, 0)
音量线程中 ＝ 真
计次循环首 (50, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)
如果真 (i ＝ 50)
音量线程中 ＝ 假

计次循环尾 ()
判断 (Type ＝ 2)
音量线程中 ＝ 真
计次循环首 (30, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)
如果真 (i ＝ 30)
音量线程中 ＝ 假

计次循环尾 ()

i支持库列表	支持库注释
iext6	扩展界面支持库六

.版本 2<br /> .支持库 iext6<br /> <br /> .子程序 MainSFade<br /> .参数 Type, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (Type ＝ 1)<br />     bass.置音量 (播放句柄, 0)<br />     音量线程中 ＝ 真<br />     .计次循环首 (50, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)<br />         .如果真 (i ＝ 50)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断 (Type ＝ 2)<br />     音量线程中 ＝ 真<br />     .计次循环首 (30, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)<br />         .如果真 (i ＝ 30)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束

播放器里面有这个，你找下，我只是没有做切歌的淡入淡出，你用线程可以实现。

李泽勇2

tanjiaqing 发表于 2020-1-1 00:07
有没有 切换音乐的时候 淡入淡出的？

  

子程序名	返回值类型	公开	备 注
MainSFade
参数名	类 型	参考	可空	数组	备 注
Type	整数型

变量名	类 型	静态	数组	备 注
i	整数型

判断 (Type ＝ 1)
bass.置音量 (播放句柄, 0)
音量线程中 ＝ 真
计次循环首 (50, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)
如果真 (i ＝ 50)
音量线程中 ＝ 假

计次循环尾 ()
判断 (Type ＝ 2)
音量线程中 ＝ 真
计次循环首 (30, i)
程序_延时 (10, )
bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)
如果真 (i ＝ 30)
音量线程中 ＝ 假

计次循环尾 ()

i支持库列表	支持库注释
iext6	扩展界面支持库六

.版本 2<br /> .支持库 iext6<br /> <br /> .子程序 MainSFade<br /> .参数 Type, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (Type ＝ 1)<br />     bass.置音量 (播放句柄, 0)<br />     音量线程中 ＝ 真<br />     .计次循环首 (50, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 ÷ 50 × i)<br />         .如果真 (i ＝ 50)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断 (Type ＝ 2)<br />     音量线程中 ＝ 真<br />     .计次循环首 (30, i)<br />         程序_延时 (10, )<br />         bass.置音量 (播放句柄, 音量条.位置 － 音量条.位置 ÷ 30 × i)<br />         .如果真 (i ＝ 30)<br />             音量线程中 ＝ 假<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束

播放器里面有这个，你找下，我只是没有做切歌的淡入淡出。你用线程可以实现。