Guidance
指路人
g.yi.org
software / rapidq / Examples / Audio & Video / Wave Volume Balance.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
'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)
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2024-10-6  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:40:31