还是音量设置问题，vb代码转成pb代码

[bombshell]

在取值是0-65536的这段带码怎么改？

Public Sub SetVol()
Dim lVol As Long, rVol As Long, vMax As Long
vMax = CLng(VScroll1.Value) + 32768
If HScroll1.Value < 0 Then
lVol = vMax
rVol = vMax * (HScroll1.Value + 32767) / 32767
Else
rVol = vMax
lVol = vMax * Abs(HScroll1.Value - 32767) / 32767
End If
SetWaveVolume lVol, rVol
End Sub

=======================================

Public Sub GetVol()
Dim lVol As Long, rVol As Long, vMax As Long

GetWaveVolume lVol, rVol

If rVol > lVol Then
vMax = rVol
HScroll1.Value = 32767 * (vMax - lVol) / vMax
ElseIf rVol = lVol Then
vMax = rVol
HScroll1.Value = 0
Else
vMax = lVol
HScroll1.Value = (-32767& * (vMax - rVol) / vMax)
End If


vMax = vMax - 32768

VScroll1.Value = vMax

End Sub

[lzheng2001]

marks,有时间再来看看

[lzheng2001]

楼主的上一个贴子不是已经解决了设置与读取音量的问题了吗?

你现在只要在窗口上放置两个vTtrackBar设置MinPosition=0 MaxPosition = 65535

然后分别在两个控件的move事件(或者其它事件也可以)写一句代码就可以了
setwavevolume(vTtrackBarL.Position,vTtrackBarR.Position)
当然你也可以加一个OK按钮,把这行代码写在clicked事件中

*****************************************************************
*函数名称： setwavevolume
*参 数： long lvolume by value , long rvolume by value
*作 用： 设置系统音量
****************************************************************/


long svolume
integer volumeset[2]

if lvolume > 32767 then
lvolume = lvolume - 65536
end if
if rvolume > 32767 then
rvolume = rvolume - 65536
end if
volumeset[1] = lvolume
volumeset[2] = rvolume
copymemory(svolume , volumeset[1] , 4)
waveoutsetvolume(WAVE_MAPPER , svolume)

[lzheng2001]

上面的函数代码贴错了,再贴

/*****************************************************************
*函数名称： setwavevolume
*参 数： long lvolume by value , long rvolume by value
*作 用： 设置系统音量
****************************************************************/


long svolume
integer volumeset[2]

if lvolume > 32767 then
lvolume = lvolume - 65536
end if
if rvolume > 32767 then
rvolume = rvolume - 65536
end if

svolume = lvolume * 2^16 + rvolume

waveoutsetvolume(WAVE_MAPPER , svolume)

[bombshell]

关键是vTtrackBar的MinPosition=0 MaxPosition = 32767了？

没发设置成65536呀？

[bombshell]

我是想用户打开程序后当前的音量值 = vTtrackBar.Position

[lzheng2001]

那么你就设置成 0 - 32767 吧

你的代码改成
setwavevolume(vTtrackBarL.Position * 2,vTtrackBarR.Position * 2)
这样就行了!很基本的换算呀!

初始化显示音量的时候，你只要写
vTtrackBarL.Position = lvol / 2
vTtrackBarR.Position = rvol / 2
即可