Aplikasi Azan Menggunakan Visual Basic

Download Disini

Dim alarem As Boolean

Private Sub Command1_Click()
 If alarem = True Then
        Timer2.Enabled = False
        Command1.Caption = "Aktif"
        alarem = False
    Else
        Command1.Caption = "Tidak Aktif"
        alarem = True
    End If
End Sub

Private Sub Command3_Click()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Label2.Caption = "Jam Terkunci"
Command4.Enabled = True
Command3.Enabled = False
End Sub

Private Sub Command4_Click()
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Label2.Caption = "Jam Terbuka"
Command4.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Form_Load()
alarem = False
End Sub

Private Sub Timer1_Timer()
  Label3.Caption = Time
        If Text1.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text2.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text3.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text4.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text5.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If

End Sub

Private Sub Command2_Click()
End
End Sub

Tag : Program Azan, Aplikasi Azan, Aplikasi Visual Basic