Forum
Aktif konular
Üyeler
Kurallar
Arama
Windowsunuzun Sesini Açıp Kısın Windowsunuzun Sesini Açıp Kısın
-
ilk önce yeni bi proje açın
project menüsünden components ( CTRL + T ) Bölümüne girin
ekrana vbasic içerisinde kullanabileceğiniz bileşenler gelcek
Buradan Microsoft Windows Common Controls 6.0(SP6) Bileşenini İşaretleyin
ve uygula/tamam deyin
şimdi form üzerine 2 adet slider ekleyin
slider1 = vol1
slider2 = vol2 olarak adlarını değiştirin
form üzerine 2 adet timer yerleştirin
adlarını s1 ve s2 olarak değiştirin
ve son olarak checkbox ekleyin bitane adını "eşittir" olarak değiştirin
sonra bitane module ekleyin projenize
'###########BURASI MODULE YAPIŞTIRILACAK#################3
Public Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Public Const MAXPNAMELEN = 32
Public Type WAVEOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * MAXPNAMELEN
dwFormats As Long
wChannels As Integer
dwSupport As Long
End Type
Public Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Public Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long
'###########MODULE YAPIŞTIRILACAK YER BU KADAR#################3
'################### FORMUN KOD SATIRINA #####################3
Private Sub eşittir_Click()
s1.Interval = 0
s2.Interval = 0
End Sub
Private Sub Form_Load()
eşittir.caption = "Kaydirma Göstergeleri Ayni Anda Hareket Etsin"
Dim lpc As WAVEOUTCAPS
If waveOutGetNumDevs() = 0 Then
MsgBox ("Ses çalacak donanmim yok")
End If
Call waveOutGetDevCaps(0, lpc, Len(lpc))
If lpc.wChannels = 0 Then
vol2.Visible = False
End If
If (lpc.dwSupport And 4) = 0 Then
vol1.Visible = False
vol2.Visible = False
End If
If (lpc.dwSupport And 8) = 0 Then
vol2.Visible = False
End If
vol1.Min = 0
vol1.Max = &HFFFF&
vol1.TickFrequency = &HFFFF& / 10
vol2.Min = 0
vol2.Max = &HFFFF&
vol2.TickFrequency = &HFFFF& / 10
Dim x, sol, sag, st
Call waveOutGetVolume(0, x)
sol = x And &HFFFF&
st = Hex(x And &HFFFF0000)
If Len(st) > 4 Then
st = Mid(st, 1, Len(st) - 4)
Else
st = 0
End If
sag = CDbl("&h" & st)
vol1.Value = sol
vol2.Value = sag
End Sub
Sub sesayar()
Dim x, sol, sag, s
sol = vol1.Value
sag = vol2.Value
s = Val("&h" & Hex(sag) & String(4 - Len(Hex(sol)), "0") & Hex(sol) & "&")
Call waveOutSetVolume(0, s)
End Sub
'the holocaust the late night hacker
Private Sub vol1_Click()
sesayar
End Sub
Private Sub vol1_Scroll()
If eşittir.Value = 0 Then
Else
s1.Interval = 0
s2.Interval = 1
End If
sesayar
End Sub
Private Sub vol2_Click()
sesayar
End Sub
Private Sub vol2_Scroll()
If eşittir.Value = 0 Then
Else
s2.Interval = 0
s1.Interval = 1
End If
sesayar
End Sub
Private Sub s1_timer()
vol1 = vol2
End Sub
Private Sub s2_timer()
vol2 = vol1
End Sub
' ############################ BU KADAR ######################################
' visual basic ile ilgili sorunlarınızı holocaust@w.cn adresine mail olarak yollayabilirsiniz
-
saatin orda hoporlorden yapabildikten sonra
bunlar icin kasmaya ne gerek var
gereksiz konular acmayiniz
kopyala yapistir konular acmayiniz
gezegenin adami olunuz
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1480 Toplam Mesaj: 2
Cevapla