易语言监控系统音量

2025-02-26 15:25:06
推荐回答(1个)
回答1:

.版本 2
.支持库 eMMedia
.支持库 spec

.程序集 窗口程序集1
.程序集变量 x, 整数型, , "1,2"

.子程序 __启动窗口_创建完毕

系统音量1.打开 (4) ' 要想调整音量必须先打开设备
系统音量1.取音量 (x [1] [1], x [1] [2]) ' 取出左右声道的音量存到数组X
调试输出 (x [1] [1], x [1] [2])
滑块条1.位置 = x [1] [1] ÷ 系统音量1.取最大音量 () × 滑块条1.最大位置 ' 取出的左右声道音量百分比调整滑动块的位置

.子程序 _滑块条1_位置被改变

x [1] [1] = 滑块条1.位置 ÷ 滑块条1.最大位置 × 系统音量1.取最大音量 () ' 取出滑块位置的百分比乘以最大音量
x [1] [2] = x [1] [1] ' 使左右音量一样
系统音量1.置音量 (x [1] [1], x [1] [2])’设置音量
调试输出 (x)

.子程序 __启动窗口_将被销毁

系统音量1.关闭 (2)