Formda çalan bir ses dosyasını durduracak düğme kodu nasıl yazılır

[Aydıno]

Arkadaşlar Form üzerinde, örneğin okul zili programında çalan zili durdurmak bir düğmede yazılabilecek kodu paylaşacak arkadaşlara şimdiden teşekkür ederim. Bu konuda Accessde yazılmış bir örnek eklenirse daha da memnun olacağım. İyi çalışmalar.

 

[modalı]

Sayın aydıno,

Ses nasıl çalıyor? Media player ınız var mı?

Mesela ben ana form üstünden zaman geldiğinde bir başka form açıyorum ve bu form da bir MediaPlayer active x nesnesi var, ayrıca timerlada çalma zamanını ayarlayabiliyorum.

Örnek kodlar: Ses çalma formu için:

Option Compare Database
Option Explicit
Dim bekle As Integer


Private Sub Form_Close()
Me.WindowsMediaPlayer0.URL = ""
DoCmd.OpenForm "frmAna", acNormal, , , acFormAdd, acWindowNormal
End Sub

Private Sub Form_Load()
Me.WindowsMediaPlayer0.URL = CurrentProject.Path & "\sesler\zil.mp3" 
bekle = 10000 'mili saniye olarak bekleme süresi
End Sub



Private Sub Form_Timer()
bekle = bekle - 1

If bekle = 0 Then
Form_Close
End If


End Sub

İyi çalışmalar

 

[Taruz]

Merhaba..

Bu isteğinize verilecek cevap ses dosyasını hagi yöntemle çalıştırdığınıza göre değişir.. Bir access formundaki ole nesnesinde çalışıyorsanız farklı, komut yardımıyla bilgisayarınızdaki bir playerdan çalıştıyorsanız farklı olur..

Linkteki adreste bir örnek var; fikir verebilir..

Müzik Deposu

 

[Aydıno]

Yaptığım zil programını burada paylaşıyorum. Tek eksiği belirlenen süre kadar zillerin çalmaması. Örnek ekte. Yapabilecek arkadaşlar örnek üzerinde gerekli ilaveleri yapıp eklerse güzel bir program olmuş olacaktır. Çalan ziller wav uzantılıdır. Bilgisayarda Medya Player yüklüdür. İyi çalışmalar.

 

[Aydıno]

Sayın Modalı ve Taruz; verdiğiniz bilgiler için teşekkür ederim , uğraştım fakat amaca tam olarak ulaşamadım. Yardımlarınızı bekliyorum, iyi çalışmalar.