Forum
Aktif konular
Üyeler
Kurallar
Arama
Vb'de Çalar Saat Yapımı Soru Vb'de Çalar Saat Yapımı Soru
-
Öncelikle herkes selamınaleyküm ..
Yıl sonu ödevim için Visual Basic'te çalar saat programı yapmam gerek ve pek bir programlama bilgim yok yani programı kullanabiliyorum ama kodlama bilgim yok .. Hoca yardımcı olucağını söyledi yalnız bir türlü boş vakit olmadı ve tavrı hoş olmadı bende bir şekilde kendim yapmaya karar verdim yardımlarınızı bekliyorum .....
Kullanıcağım işlemler şunlar ;
- Her saat başı örneğin saat 12:00:00 olduğunda sesli bir şekilde söylecek . (sesleri kaydettim)
- Alarm olarak kurulabilecek .
şimdilik saati forma koymayı form üzerindeki kodlarla internette araştırarak yapmayı becerdim .. daha fazlası yok :))
yardımlarınızı dört gözle bekliyorum şu kardeşinize yardımcı olun = )
-
hocam genel bi fikir vereyim ben kimseden birşey çıkmazsa
if date.now.minute="00" and date.now.second="00"
artık müzik nasıl çalınacaksa burayada onu yaparsın
else
aynen saymaya devam etsin işte
-
hoca o yazdıklarını sil kimse görmesin döverler seni :D ekrana bi saati yazdırmak için o kadar komut mu kullanılır.
bi tane timer bide label ekle forma. interval değerini 1000 yap. bide enabled özelliğini true yap. ilk eklediğinde false olarak ekliyordu sanırım. burada milisaniye olarak hesaplanıyo. 1000=1 saniye. timer'in içine de "label1.caption=time" yaz. otomatikman her saniye saati labele yazdıracak. olay bu kadar basit.
alarm içinde;
başka bi timer daha ekle. kolay olur. yine interval'ini 1000 yap. enabled true
if time="12:00:00" then ses çalma komudu. ezberimde yok şuan. yarını beklersen yazarım. .
.wmv di galiba uzantılı ses dosyalarını tek satırlık kodla çaldırabiliyordun
-
ajan1111 yarını bekliyorum hocam :)
helyum_pasha tarafından 08/Haz/13 02:53 tarihinde düzenlenmiştir -
Up
-
hocam 2 tane label ekle 1 tanede timer ekle.
sonra timer'in üstüne tıklayıp kod kısmına gel ve şunları yaz kendine göre düzenle tabi basit anlatımı bu.
Dim kac As String
Label1.Text = TimeOfDay()
kac = Label1.Text
If kac = "15:00:00" Then
Label2.Text = "Saat 15:00 oldu"
End If
if leri artık kendine göre düzeltirsin.
timer ı otomatik false alıyor bende true yaptım propertiesden ona göre.
-
yettim hacı. en yukarıya
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
bunu yaz. sonra
sndPlaySound "wav dosyasının olduğu adres",0
misal
sndPlaySound "c:\ajan1111.wav", 0
wav uzantılıymış hacı. diğer uzantılarda çalınabilir ama biraz daha karışık ve çok kod gerekebilir. bence en kolayı bu.
-
ajan1111 bunu yazdı
yettim hacı. en yukarıya
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
bunu yaz. sonra
sndPlaySound "wav dosyasının olduğu adres",0
misal
sndPlaySound "c:\ajan1111.wav", 0
wav uzantılıymış hacı. diğer uzantılarda çalınabilir ama biraz daha karışık ve çok kod gerekebilir. bence en kolayı bu.
hocam bir kısıma yardımcı oldun teşekkür ederim .
-
Hocam proje bitince bitmiş hali ile açık kaynak kod + ses dosyalarını paylaşırsan belki işine yarayan arkadaşlar olur.
-
Maddox bunu yazdı
Hocam proje bitince bitmiş hali ile açık kaynak kod + ses dosyalarını paylaşırsan belki işine yarayan arkadaşlar olur.
hocam tabi ki paylaşıcam yalnız en acemice şekilde yapıyorum şuanda her saat - dk başı sesli olarak hem saati hemde dakikayı söylüyor emin olduğum bir konu var yaptığım kodlama komikce yani çok uzun ama işimi görüyor :)) bi bitsin de paylaşırım hocamm = )
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla