2013-06-19 07:40

'control the wave volume balance
'from Lance (6/29/02 12:54:11 pm)

     DECLARE FUNCTION waveOutGetVolume LIB "Winmm" ALIAS "waveOutGetVolume" (wDeviceID AS SHORT, dwVolume AS LONG) AS SHORT
     DECLARE FUNCTION waveOutSetVolume LIB "Winmm" ALIAS "waveOutSetVolume" (wDeviceID AS SHORT, dwVolume AS LONG) AS SHORT

     DIM x AS LONG

     waveoutSetVolume(0, &HFFFF0000)
     waveoutGetVolume(0, VARPTR(x))
     SHOWMESSAGE "Full volume, Right balance -- "+HEX$(x)

     waveoutSetVolume(0, &H00007777)
     waveoutGetVolume(0, VARPTR(x))
     SHOWMESSAGE "Half volume, Left balance -- "+HEX$(x)

     waveoutSetVolume(0, &HFFFFFFFF)
     waveoutGetVolume(0, VARPTR(x))
     SHOWMESSAGE "Full volume, Center balance -- "+HEX$(x)

2013-06-19 07:40