• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sesi sadece sağ veya sadece sol hoparlöre veren kod?

Katılım
11 Nisan 2009
Mesajlar
43
Excel Vers. ve Dili
2010 TR
Hoparlörden çıkan sesi istendiğinde sadece sağ, istendiğinde sadece sol tarafa veren kodlar var mı?
Buton1. Left on,Right mute.
Buton2. Right on,Left mute.

http://www.tek-tips.com/viewthread.cfm?qid=1004860
sitesinde bazı VB kodları buldum. VBA'ya uyarlama konusunda yardımcı olabilirmisiniz? Sanırım ayıklama gerekiyor biraz.
 
Hoparlörden çıkan sesi istendiğinde sadece sağ, istendiğinde sadece sol tarafa veren kodlar var mı?
Buton1. Left on,Right mute.
Buton2. Right on,Left mute.

http://www.tek-tips.com/viewthread.cfm?qid=1004860
sitesinde bazı VB kodları buldum. VBA'ya uyarlama konusunda yardımcı olabilirmisiniz? Sanırım ayıklama gerekiyor biraz.

Referanslardan "quartz.dll" ekleyin; boş bir modulde şarkı yolunu değiştirerek test edin.

Kod:
Dim q As New QuartzTypeLib.FilgraphManager
Dim au As QuartzTypeLib.IBasicAudio

Const sol As Long = -10000
Const sag As Long = 10000

Sub cal()
    Set au = q
    q.RenderFile "F:\MP 3\GÜLŞEN (OF...OF)\03-Sakıncalı (Akustik).mp3"
    q.Run
End Sub

Sub dur()
    q.Stop
End Sub

Sub balance_sol()
    au.balance = sol
End Sub

Sub balance_sag()
    au.balance = sag
End Sub
 
Teşekkür ederim.
Windowsun hata sesine benzer bir sesin bir sağdan, bir soldan gelmesini sağlamak istiyorum.
Dim q As New QuartzTypeLib.FilgraphManager
Dim au As QuartzTypeLib.IBasicAudio

Const sol As Long = -10000
Const sag As Long = 10000

Sub cal()
Set au = q
q.RenderFile "C:\2000.mp3"
q.Run
au.balance = sol
End Sub

Sub cal2()
Set au = q
q.RenderFile "C:\2000.mp3"
q.Run
au.balance = sag
End Sub

Sub dur()
q.Stop
End Sub

Sub balance_sol()
au.balance = sol
End Sub

Sub balance_sag()
au.balance = sag
End Sub

kodlarını ekleyip bir butona
Call cal
ekleyip tıkladığımda sadece ilk tıklamada çalışıyor. Sonradan tıkladıklarımda çalışmıyor. Nedeni ne olabilir. Değişkenleri sıfırlamam mı gerekiyor.
 
Son düzenleme:
Neden sadece 1 defa çalıyor?

Aşağıdaki call makrosunu çalıştırdığımda 2000.mp3 bir defa çalıyor, cal makrosunu bir defa daha çalıştırsam da ses gelmiyor. Neden?
Tekrar çalışması için düzenleme moduna geçmem, sonra tekrar normal moda geçmem gerekiyor.

Dim q As New QuartzTypeLib.FilgraphManager
Dim au As QuartzTypeLib.IBasicAudio

Const sol As Long = -10000
Const sag As Long = 10000

Sub cal()
Set au = q
q.RenderFile "C:\2000.mp3"
q.Run
au.balance = sol
End Sub

her Call cal komutu verdiğimde aynı sesin gelmesi için ne yapmalıyım?
 
Bu kez oldu sanırım...

Kod:
Private q         As QuartzTypeLib.FilgraphManager
Private au        As QuartzTypeLib.IBasicAudio
Private pos       As QuartzTypeLib.IMediaPosition

Private Const sol As Long = -10000
Private Const sag As Long = 10000

Sub cal()
    Set q = New QuartzTypeLib.FilgraphManager
    Set au = q
    Set pos = q
    
    [COLOR=DarkGreen]'Sol kolon için çal[/COLOR]
    q.RenderFile "c:\windows\media\notify.wav"
    au.Balance = sol
    q.Run

   [COLOR=DarkGreen] 'Beklet[/COLOR]
    Do: DoEvents: Loop Until pos.CurrentPosition = pos.StopTime
    
   [COLOR=DarkGreen] 'Sağ kolon için nesneyi hazırla[/COLOR]
    Set q = New QuartzTypeLib.FilgraphManager
    Set au = q
    
    [COLOR=DarkGreen]'Sağ kolon için çal[/COLOR]
    q.RenderFile "c:\windows\media\notify.wav"
    au.Balance = sag
    q.Run

End Sub
 
Evet

Zeki bey çok teşekkür ederim. Gereken ve tam cevabımı aldım. Sağolun.
 
Geri
Üst