saatin orda hoporlorden yapabildikten sonra bunlar icin kasmaya ne gerek vargereksiz konular acmayinizkopyala yapistir konular acmayinizgezegenin adami olunuz pist bak bi! - Ban Golu Canavari

ilk nce yeni bi proje açınproject menüsünden components Blümüne girinekrana vbasic içerisinde kullanabileceğiniz bileşenler gelcek Buradan Microsoft Windows Common Controls 6.0(SP6) Bileşenini İşaretleyinve uygula/tamam deyinşimdi form üzerine 2 adet slider ekleyinslider1 = vol1slider2 = vol2 olarak adlarını değiştirinform üzerine 2 adet timer yerleştirinadlarını s1 ve s2 olarak değiştirinve son olarak checkbox ekleyin bitane adını "eşittir" olarak değiştirinsonra bitane module ekleyin projenize'BURASI MODULE YAPIŞTIRILACAK3Public Declare Function waveOutGetVolume Lib "winmm. dll" As LongPublic Declare Function waveOutSetVolume Lib "winmm. dll" As LongPublic Const MAXPNAMELEN = 32Public Type WAVEOUTCAPSwMid As IntegerwPid As IntegervDriverVersion As LongszPname As String MAXPNAMELENdwFormats As LongwChannels As IntegerdwSupport As LongEnd TypePublic Declare Function waveOutGetNumDevs Lib "winmm. dll" As LongPublic Declare Function waveOutGetDevCaps Lib "winmm. dll" Alias "waveOutGetDevCapsA" As Long'MODULE YAPIŞTIRILACAK YER BU KADAR3' FORMUN KOD SATIRINA 3Private Sub eşittir_Click s1. Interval = 0s2. Interval = 0End SubPrivate Sub Form_Load eşittir. caption = "Kaydirma Gstergeleri Ayni Anda Hareket Etsin"Dim lpc As WAVEOUTCAPSIf waveOutGetNumDevs = 0 ThenMsgBox End IfCall waveOutGetDevCaps(0, lpc, Len If lpc. wChannels = 0 Thenvol2. Visible = FalseEnd IfIf (lpc. dwSupport And 4) = 0 Thenvol1. Visible = Falsevol2. Visible = FalseEnd IfIf (lpc. dwSupport And 8) = 0 Thenvol2. Visible = FalseEnd Ifvol1. Min = 0vol1. Max = &HFFFF&vol1. TickFrequency = &HFFFF& / 10vol2. Min = 0vol2. Max = &HFFFF&vol2. 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 vol1. Value = solvol2. Value = sagEnd SubSub sesayar Dim x, sol, sag, ssol = vol1. Valuesag = vol2. Values = Val("&h" & Hex & String(4 - Len(Hex , "0") & Hex & "&")Call waveOutSetVolume(0, s)End Sub'the holocaust the late night hackerPrivate Sub vol1_Click sesayarEnd SubPrivate Sub vol1_Scroll If eşittir. Value = 0 ThenElses1. Interval = 0s2. Interval = 1End IfsesayarEnd SubPrivate Sub vol2_Click sesayarEnd SubPrivate Sub vol2_Scroll If eşittir. Value = 0 ThenElses2. Interval = 0s1. Interval = 1End IfsesayarEnd SubPrivate Sub s1_timer vol1 = vol2End SubPrivate Sub s2_timer vol2 = vol1End Sub' BU KADAR ' visual basic ile ilgili sorunlarınızı holocaust@w. cn adresine mail olarak yollayabilirsiniz Holocaust The Late Night Hacker