Güzel bir alarmlı saat proggramı yalnız mp3 play.ocx dosyasına ihtiyacınız olacak
MP3 çalan bir program yapmadan önce mp3play.ocx dosyasını internetden search ederek bulmanız gerekiyor. Bundan sonra işiniz 'kolay.
' Edit box'ın read only (dışarıdan herhangi bir şey girilemesin) olmasını sağlayın ve STOP tuşunun "Enabled" özelliğinide '"False" yapın. Tüm tuşların isimlerine göre fonksiyonlar aşağıdadır. Bu arada formda "SAAT" yazan yerin altında bir label 'var, label'ın background rengini siyah yapın.
' Aşağıdaki tüm kodu kopyalayın ve General Declerations kısmından itibaren paste edin. Uygun tuşlara, uygun fonksiyonlarıda 'bağlayın. Böylece kod çalıştırılabilir hale gelecektir.
Option Explicit
Dim AlarmTime
Dim Sound As String
Dim got As Long
Const conMinimized = 1
Dim char As String
Private Sub alarm_Click()
AlarmTime = InputBox("Saat kaçta alarm çalsın?", "Alaryum", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "Girilen saat geçerli değil"
Else
AlarmTime = CDate(AlarmTime)
Text1.Text = AlarmTime
End If
End Sub
Private Sub cikis_Click()
End
End Sub
Private Sub sarkisec_Click()
CommonDialog1.ShowOpen
Sound = CommonDialog1.FileName
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub stopsong_Click()
Mp3Play1.stop
End Sub
Private Sub Form_Resize()
If WindowState = conMinimized Then
SetCaptionTime
Else
Caption = "Alaryum"
End If
End Sub
Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time")
End Sub
Private Sub Timer1_Timer()
lblTime.Caption = Time
If Time = AlarmTime Then
got = Mp3Play1.Open(Sound, "")
Mp3Play1.Play
stopsong.enabled = True
stopsong.Default = True
End If
If WindowState = conMinimized Then
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
lblTime.Caption = Time
End If
End Sub
' Önce Alarm tuşuna basarak bir alarm zamanı girmeniz gerekir. Bunuda 00:00:00 formatında girmelisiniz. Daha sonrada 'çalacak MP3'ü seçip zamanın gelmesini bekliyeceksiniz. MP3 çalmaya başladıktan sonra STOP tuşu enable olacaktır. Bundan 'sonra stop tuşuna basmak için mouse yerine enter tuşunu kullanmak daha pratik olacağından default seçeneğinide true 'yapıyoruz. Ayrıca runtime (çalışma) esnasında formu minimize ederseniz start barda formun ismi yerine zaman belirecektir.
alıntıdır
MP3 çalan bir program yapmadan önce mp3play.ocx dosyasını internetden search ederek bulmanız gerekiyor. Bundan sonra işiniz 'kolay.
' Edit box'ın read only (dışarıdan herhangi bir şey girilemesin) olmasını sağlayın ve STOP tuşunun "Enabled" özelliğinide '"False" yapın. Tüm tuşların isimlerine göre fonksiyonlar aşağıdadır. Bu arada formda "SAAT" yazan yerin altında bir label 'var, label'ın background rengini siyah yapın.
' Aşağıdaki tüm kodu kopyalayın ve General Declerations kısmından itibaren paste edin. Uygun tuşlara, uygun fonksiyonlarıda 'bağlayın. Böylece kod çalıştırılabilir hale gelecektir.
Option Explicit
Dim AlarmTime
Dim Sound As String
Dim got As Long
Const conMinimized = 1
Dim char As String
Private Sub alarm_Click()
AlarmTime = InputBox("Saat kaçta alarm çalsın?", "Alaryum", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "Girilen saat geçerli değil"
Else
AlarmTime = CDate(AlarmTime)
Text1.Text = AlarmTime
End If
End Sub
Private Sub cikis_Click()
End
End Sub
Private Sub sarkisec_Click()
CommonDialog1.ShowOpen
Sound = CommonDialog1.FileName
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub stopsong_Click()
Mp3Play1.stop
End Sub
Private Sub Form_Resize()
If WindowState = conMinimized Then
SetCaptionTime
Else
Caption = "Alaryum"
End If
End Sub
Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time")
End Sub
Private Sub Timer1_Timer()
lblTime.Caption = Time
If Time = AlarmTime Then
got = Mp3Play1.Open(Sound, "")
Mp3Play1.Play
stopsong.enabled = True
stopsong.Default = True
End If
If WindowState = conMinimized Then
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
lblTime.Caption = Time
End If
End Sub
' Önce Alarm tuşuna basarak bir alarm zamanı girmeniz gerekir. Bunuda 00:00:00 formatında girmelisiniz. Daha sonrada 'çalacak MP3'ü seçip zamanın gelmesini bekliyeceksiniz. MP3 çalmaya başladıktan sonra STOP tuşu enable olacaktır. Bundan 'sonra stop tuşuna basmak için mouse yerine enter tuşunu kullanmak daha pratik olacağından default seçeneğinide true 'yapıyoruz. Ayrıca runtime (çalışma) esnasında formu minimize ederseniz start barda formun ismi yerine zaman belirecektir.
alıntıdır
