Forma 1 tane modül, 6 tane label, 2 tane timer, 1 tane check kutusu, 2 tane slider kontrolü(Microsoft Common Control 6 - MSCOMCTL. OCX) ekleyin. Kod:Option ExplicitPrivate Sub Check1_Click Timer1. Interval = 0Timer2. Interval = 0End SubPrivate Sub Form_Load Label1. Caption = "sag"Label2. Caption = "sol"Label3. Caption = "alçak"Label4. Caption = "yüksek"Label5. Caption = "alçak"Label6. Caption = "yüksek"Check1. Caption = "Kaydirma Gstergeleri Ayni Anda Hareket Etsin"Dim lpc As WAVEOUTCAPSIf waveOutGetNumDevs = 0 ThenMsgBox End IfCall waveOutGetDevCaps(0, lpc, Len If lpc. wChannels = 0 ThenSlider2. Visible = FalseEnd IfIf (lpc. dwSupport And 4) = 0 ThenSlider1. Visible = FalseSlider2. Visible = FalseEnd IfIf (lpc. dwSupport And 8) = 0 ThenSlider2. Visible = FalseEnd IfSlider1. Min = 0Slider1. Max = &HFFFF&Slider1. TickFrequency = &HFFFF& / 10Slider2. Min = 0Slider2. Max = &HFFFF&Slider2. TickFrequency = &HFFFF& / 10Dim x, sol, sag, stCall waveOutGetVolume(0, x)sol = x And &HFFFF&st = Hex(x And &HFFFF0000)If Len > 4 Thenst = Mid(st, 1, Len - 4)Elsest = 0End Ifsag = CDbl Slider1. Value = solSlider2. Value = sagEnd SubSub sesayar Dim x, sol, sag, ssol = Slider1. Valuesag = Slider2. Values = Val("&h" & Hex & String(4 - Len(Hex , "0") & Hex & "&")Call waveOutSetVolume(0, s)End SubPrivate Sub Slider1_Click sesayarEnd SubPrivate Sub Slider1_Scroll If Check1. Value = 0 ThenElseTimer1. Interval = 0Timer2. Interval = 1End IfsesayarEnd SubPrivate Sub Slider2_Click sesayarEnd SubPrivate Sub Slider2_Scroll If Check1. Value = 0 ThenElseTimer2. Interval = 0Timer1. Interval = 1End IfsesayarEnd SubPrivate Sub Timer1_Timer Slider1 = Slider2End SubPrivate Sub Timer2_Timer Slider2 = Slider1End Sub Gel bili bili gates

verdiğin kodlarda Form1 deki programının sesini açıyor, hoperlrün çizgisini geçemiyor

Hala bulamadım Amaç: Sessizde olan bilgisayarın hoperlrünün sesini maksimum seviyeye çıkartmak VB6 olması gerekmiyor

waveOutSetVolume apisini denedim. Bu kod hangi programda çalışıyorsa onun sesini açıyor