selamun aleyküm...

arkdaşlar ben bir müzik çalar yapıyorumda...listbox2 deki url leri sırayla çalmasını istiyorum mediaplayerın..şöyle bir döngü kurdum..
for i as integer=0 to listbox2.items.count -1 step 1
axwindowsmediaplayer1.url=listbox2.items.item(i)
next

bu döngüde mediaplayer direk listenin sonundaki şarkıyı çalıyo..

acaba bu şekilde döngü kurarak mı yapılcak yoksa başka bi yolumu var..varsa nedie acaba bilen varsa söyleyebilir mi..şimdiden sağolun..selametle

---

Mehmet Rıfat Evyap Anadolu Teknik Lisesi Bilgisayar Yazılım Bölümü...!

Sırayla çalmasını istiyosan media playerin playState olayını kontrol edip sanırım 1 ise durmuş demek oluyo yani şarkı bitmiş demek o zaman bir sonraki şarkıya geçiceksin bunuda döngüyle değil listboxsın clik olayına koyarsın kodları sonrada sırayla cliklersin

 

---

Erkekçe Olsun İsterim Dostluk da, Düşmanlık da.

kardeş  şu şekilde oluyo...playstate olayı

 If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped = True Then
                    MsgBox("Şarkı Bitti")
                End If

ama bu şekildede olmuyo yani şarkı bitti mesajı vermiyo...şarkının bittiğini anlamıyo nasıl olacak..yardımcı olabilirmisin?

---

Mehmet Rıfat Evyap Anadolu Teknik Lisesi Bilgisayar Yazılım Bölümü...!

Önce MediaPlayer nesnesinin çalacağı bir şarkı URL değeri belirle HDD üzerinden;

Sonra PlayStateChange olayını handle edebilirsin:

Private Sub AxWindowsMediaPlayer1_stateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
MsgBox("Şarkı bitti/durdu")
End If
End Sub

Denedim, umarım işine yarar, bunun yerine timer kontrolü ile de playstate'i kontrol edebilirsin, karar senin.

Kolay gelsin.

---

Onur Güzel
kimiraikkonen85@hotmail.com

selamun aleyküm..

Allah razı olsun sağolun...belli bi yere geldim ama bi sorun çıktı yine..
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped = True Then
            TextBox1.Text = ListBox2.Items.Item(i - (i - 1))
            AxWindowsMediaPlayer1.URL = TextBox1.Text
        End If
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

şimdi bu şekilde yapınca diğer şarkıya geçiyo ama şarkıyı çalmıyo öyle duruyo....bi türlü çaldıramadım..nasıl olabilir? başka türlü clickleme fln dediniz ama anlayamadım tam ben böyle yapim dedim..şu kısım "ListBox2.Items.Item(i - (i - 1))" sırayla çalması için...o 1 kısmını gittikçe bütütüyorum listedeki şarkılar sırayla geliyo..ama çalmadı işte bi türlü...yardımcı oalbilirmisiniz?

---

Mehmet Rıfat Evyap Anadolu Teknik Lisesi Bilgisayar Yazılım Bölümü...!