çalan mp3 bittikten sonra otomatik mesaj

[İhsan Tank]

s.a.
arkadaşlar bugün yeni bir projeye başladım ve takıldığım ikinci nokta
çalan bir mp3 bittikten sonra istediğim mesajı yada diğer parçaya geçmesini istiyorum.
medıaplayer kullanıyorum userform'un üzerinde

 

[halit3]

Aşağıdaki linkdeki dosyayı inceleyiniz

 

[İhsan Tank]

Aşağıdaki linkdeki dosyayı inceleyiniz

hocam link'î göremedim_?

 

[halit3]

Eklemeyi unutmuşum.

http://www.excel.web.tr/f128/excelde-mp3-muzik-dinlemek-t90049.html

 

[İhsan Tank]

Eklemeyi unutmuşum.

http://www.excel.web.tr/f128/excelde-mp3-muzik-dinlemek-t90049.html

hocam yalnız ben herşeyi kendisi yapsın istiyorum ayrıca timer nesneside istemiyorum.
direk kodlarla yapabilirseniz çok sevinirim.

 

[halit3]

hocam yalnız ben herşeyi kendisi yapsın istiyorum ayrıca timer nesneside istemiyorum.
direk kodlarla yapabilirseniz çok sevinirim.

Çalan müzikin çalma süresini bilmeden bu tür uygulamanın olmıyacağını düşünüyarum timer nesnesi aktif olduğunda zaman işliyecektir mp3 deki çalma süresine denk geldiği zaman bir sonraki müzike geçiyor.

Burada timer nesnesinin vazifesini kadlarla belki yapılabilir ama baya uğraşmak gerekiyor.

 

[İhsan Tank]

Çalan müzikin çalma süresini bilmeden bu tür uygulamanın olmıyacağını düşünüyarum timer nesnesi aktif olduğunda zaman işliyecektir mp3 deki çalma süresine denk geldiği zaman bir sonraki müzike geçiyor.

Burada timer nesnesinin vazifesini kadlarla belki yapılabilir ama baya uğraşmak gerekiyor.

hocam peki şöyle bir imkanımız var mı_?
Label'de yazan saat - Dakika ve saniyeyi geri dönüşüme çevirsek oradaki saniye bittiğinde otomatik mesaj verse olabilir mi_?
örnek dosya ekte

 

[Levent Menteşoğlu]

İhsan bey aşağıdaki gibi denermisiniz.

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.playState = 1 Then MsgBox "Şarkı bitmiştir."
End Sub

 

[İhsan Tank]

İhsan bey aşağıdaki gibi denermisiniz.

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.playState = 1 Then MsgBox "Şarkı bitmiştir."
End Sub

hocam tek kelime ile mükemmel