9.4 版本的类_系统音量的设置音量 多打了一个逗号。

生命苦短

  

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

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

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

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



真实音量值 ＝ 音量大小 ÷ 100
如果 (是否为空 (声道))
hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetMasterVolumeLevelScalar, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , , )
hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetChannelVolumeLevelScalar, 声道 － 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 />     hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetMasterVolumeLevelScalar, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , , )<br /> .否则<br />     hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetChannelVolumeLevelScalar, 声道 － 1, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , ,)<br /> .如果结束<br /> 返回 (hr)

新增的这个COM_调用COM方法   多了一个逗号，导致使用时程序编译不通过。
实际应该是

  

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

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

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

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



真实音量值 ＝ 音量大小 ÷ 100
如果 (是否为空 (声道))
hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetMasterVolumeLevelScalar, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , , )
hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetChannelVolumeLevelScalar, 声道 － 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 />     hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetMasterVolumeLevelScalar, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , , )<br /> .否则<br />     hr ＝ COM_调用COM方法 (endpointVolume, #IAudioEndpointVolume_SetChannelVolumeLevelScalar, 声道 － 1, 指针_到整数 (取指针地址_小数型 (真实音量值)), #NULL, , , , , , , )<br /> .如果结束<br /> 返回 (hr)

260308

正好需要 拿走学习

yuxuanju

经测试：CoCreateInstance失败！　环境：winxp

yuxuanju

什么时候更新模块。

huxian

哈哈！这个错误可以，如果没有开源会怎么样