Zamanı gelince ses dosyası çalsın

[Erdal]

Merhabalar
A1 hücresi ss:dd şeklinde biçimlendirilmiştir.Bilgisayarın saati A1 hücresine eşit olduğunda Windows\media içindeki wav uzantılı herhangi bir ses dosyasını excele çaldırabilirmiyiz. Yardımlarınız için şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Public X As Boolean
 
Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Sub AUTO_OPEN()
    Application.OnTime Now + TimeValue("00:00:01"), "KONTROL"
End Sub
 
Sub KONTROL()
    DoEvents
    If X = True Then GoTo Son
    If Format(Sheets("Sayfa1").[A1], "hh:mm") = Format(Time, "hh:mm") Then
    Call PlayIt("c:\windows\media\tada.wav", 0)
    X = True
    End If
    AUTO_OPEN
Son:
End Sub

 

[Erdal]

Merhabalar
Korhan Bey kodları uyguladım.Yazmış olduğunuz kodların hepsini bir modüle kopyaladım.Garip gelecek ama bazen çalışıyor bazen çalışmıyor.Sayfanın veya hücrenin aktif olup olmamasıyla ilgili birşey gibi düşünüyorum ama tam olarak anlayamadım.Yardımlarınız için teşekkürler.

 

[hsayar]

If [A1] = Time Then

satırını

If ThisWorkbook.Sheets("sayfaadınız").[A1] = Time Then

olarak değiştirmeniz gerekiyor sanırım.

 

[Erdal]

Satırı değiştirencede çalışmıyor Sn. hsayar

 

[Korhan Ayhan]

Selamlar,

Üstteki mesjımdaki kodu güncelledim. Ayrıca örnek dosya ekledim. İncelermisiniz.

 

[Erdal]

Merhabalar
Korhan Bey ses dosyası A1 hücresindeki zaman sürecinde sürekli çalıyor.Bir defa çalması için ne yapmamız lazım.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki örnek dosyayı güncelledim. İncelermisiniz.

 

[Erdal]

Yardımlarınız için teşekkür ederim Korhan Bey.
Bir nevi namaz vakit çizelgesi yapmak ve vakti gelince ezan okutmak istiyordum. Ama iki sorunla karşılaştım birincisi en son vermiş olduğunuz kodlarda ses dosyası 1 dk uzun olduğu için 1 dk sonunda ses dosyasını kapatıyor.(malum ezan 1 dk'dan uzun) İkincisi ise dikkate alacağı hücre sayısını arttırmak. Bunu kendim uyarlamaya çalıştım ama başaramadım.Yani sadece A1 hücresini değilde A1;A2;A3;A4;A5 hücrelerini (beş vakit namaz) sırayla dikkate alarak ses dosyasını çalıştırsın.İlgi ve alakanız için tekrar teşekkürler

 

[erdal3781]

Elımde Ezan Programı Mevcuttur Daha Oncelerı Cuneyta Arkadasımın yardımyla Gerceklestırmıstık.

Proje ıcın Goruselım ıstersenız Dun Aksam 2008 vakıtlerınıde Guncelledım Artı Her vakte Ayrı Ezan Okuyor Ufak Tefek Bır ıkı Eksıgım kaldı

Sadece Projenın Kapalı hale getırılmesı Yanı Setup Gıbı olması Kaldı.

Msn Adresım dragon37811@gmail.com Eklersenız Goruselım.