Keskustelu: Ohjelmointikysymykset: [VB6] Äänenvoimakkuus

Miten saan että minun ohjelmallani voisi säätää tietokoneen äänenvoimakkuutta?
Löysin PSC:stä vain sellaisen kuin etä-äänenvoimakkuuden säätö ohjelman, mutta se toimii vain Windows NT:ssä.
Voisihan siellä tietenkin olla musiikinsoittimia, joissa on äänenvoimakkuuden säätö, mutta päätinpä kysyä täältä.
Olisiko pitänyt käyttää taas putkan hakua? =D

Näin mä sain äänenvoimakkuuden 10%, mutta en saa millään 100%

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, _
    ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, _
    dwVolume As Long) As Integer
Dim vol As String
Dim voll As String

Private Sub Timer2_Timer()
   Dim tmp As String
   Dim i As Integer
vol = CLng("&H" & 1880 & 1880)

            waveOutSetVolume 0, vol
Dim a As Long
    waveOutGetVolume 0, a
    voll = "&h" & Right$(Hex$(a), 4)
  Label1.Caption = CLng(((voll) * 100) / 65536) & "%"
End Sub

En pystynyt taaskaan muokkaamaan edellistä viestiä.

Pitääkö se olla sellainen joka säätää PCM/Master ääntä Äänenvoimakkuus ohjelmasta, vai ihan softa pohjanen äänen säätö?

ZcMander kirjoitti:

Pitääkö se olla sellainen joka säätää PCM/Master ääntä Äänenvoimakkuus ohjelmasta, vai ihan softa pohjanen äänen säätö?

Eikö tuosta koodista näe?
Haluaisin että säätää samaa kuin se mikä on taskbarissa kellon vieressä oleva äänenvoimakkuuden säätö - ohjelma.

Kulma kirjoitti:

-koodia-

Hmmm... Itselläni tuo ei mitään mastervolumea muuta (voi johtua myös siitä, että en käytä windowsin omaa paneelia, vaan äänikortin omaa) mutta taasen winampista laski volumea. Jos haluat, että tuo hiljentää 100% niin muuta vol:n arvo nollaksi.

En halua että hiljentää vaan että laittaa täysille.