让类_系统音量的设置音量 支持单独设置左右声道

生命苦短

  

子程序名	返回值类型	公开	备 注
设置音量	整数型		返回0表示成功，返回非零为错误代码。
参数名	类 型	参考	可空	数组	备 注
音量大小	整数型				0-100
声道	整数型				1为左声道，2为右声道

变量名	类 型	静态	数组	备 注
真实音量值	小数型
hr	整数型

如果真 (初始化 () ≠ 0)
返回 (-1)

判断 (音量大小 ＜ 0)
音量大小 ＝ 0
判断 (音量大小 ＞ 100)
音量大小 ＝ 100



真实音量值 ＝ 音量大小 ÷ 100
如果 (是否为空 (声道))
hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetMasterVolumeLevelScalar, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , , )
hr ＝ COM_调用COM方法 (endpointVolume, 11, 声道 － 1, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , )

返回 (hr)

.版本 2<br /> <br /> .子程序 设置音量, 整数型, 公开, 返回0表示成功，返回非零为错误代码。<br /> .参数 音量大小, 整数型, , 0-100<br /> .参数 声道, 整数型, 可空, 1为左声道，2为右声道<br /> .局部变量 真实音量值, 小数型<br /> .局部变量 hr, 整数型<br /> <br /> .如果真 (初始化 () ≠ 0)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> .判断开始 (音量大小 ＜ 0)<br />     音量大小 ＝ 0<br /> .判断 (音量大小 ＞ 100)<br />     音量大小 ＝ 100<br /> .默认<br /> <br /> .判断结束<br /> <br /> 真实音量值 ＝ 音量大小 ÷ 100<br /> <br /> .如果 (是否为空 (声道))<br />     hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetMasterVolumeLevelScalar, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , , )<br /> .否则<br />     hr ＝ COM_调用COM方法 (endpointVolume, 11, 声道 － 1, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , )<br /> .如果结束<br /> <br /> <br /> 返回 (hr)

主要自己的耳机插电脑里只有单声道播放时才有语音，手动改来改去太麻烦了。做个程序运行就改成单声道方便。