Private Type lVolType
v As Long
End Type
Private Type VolType
lv As Integer
rv As Integer
End Type
'YAPILACAK İŞLEMLER
'1-Yeni bir proje oluşturun.
'2-Formunuza 1 tane Command buton ekleyin(Command1 )
'3-Aşağıdaki kodları Formun general declarations
'bölümüne yapıştırın.
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Type lVolType
v As Long
End Type
Private Type VolType
lv As Integer
rv As Integer
End Type
Private Sub Command1_Click()
Dim id As Long, v As Long, i As Long, lVol As lVolType, Vol As VolType, lv As Double, rv As Double
id = -1
i = waveOutGetVolume(id, v)
lVol.v = v
LSet Vol = lVol
lv = Vol.lv: rv = Vol.rv
lv = lv + &HFFF
rv = rv + &HFFF
If lv > 32767 Then lv = lv - 65536
If rv > 32767 Then rv = rv - 65536
Vol.lv = lv
Vol.rv = rv
MsgBox Vol.lv 'sol volume
MsgBox Vol.rv 'sağ volume
LSet lVol = Vol
v = lVol.v
End Sub
'4-Projenizi Kaydedip Çalıştırın. Command1
'butonuna birkere basın.
'sol ve sağ olmak üzere iki ayrı rakam dönecektir.
5'-Windows un sesiyle oynayın Command1 butonuna
'tekrar basarak yeni değerleri görebilirsiniz.