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

[seyhan6591]

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.

 

[Zeki Gürsoy]

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.

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

 

[seyhan6591]

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.

 

[seyhan6591]

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?

 

[Zeki Gürsoy]

Bu kez oldu sanırım...

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

 

[seyhan6591]

Evet

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