Tutorial Cara Membuat Software Pengingat Adzan Visual Basic 6

Contoh program berikut adalah program untuk mengingatkan waktu adzan yang telah kita tentukan
Software ini juga dapat di jadikan software di leptop pribadi untuk mengingatkan secara pribadi tidak hanya di hp android leptop pun ada dan caranya sangatlah mudah dengan modal visual basic yang sudah di install di leptop anda dan anda bisa berkreasi dengan program yang asaya berikan

Berikut codinganya
 

Private Sub Form_Load()
player.URL = App.Path & "\Song\adzan.mp3" ' nama file adzan tsb
Form1.Width = 11880
End Sub

Private Sub Label10_Click() ' tombol setting
Form1.Width = 13500
Label20.Visible = True
End Sub

Private Sub Label20_Click() ' tombol close
Label20.Visible = False
Form1.Width = 11880
End Sub

Private Sub Metode1_Timer() ' sistem utama dalam pembuatan waktu adzan
If HasilM1.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM2.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM3.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM4.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM5.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
HasilM1.Caption = (Text1.Text) + ":" + (Text2.Text) + ":00" ' ini settingan untuk menu setting
HasilM2.Caption = (Text4.Text) + ":" + (Text3.Text) + ":00"
HasilM3.Caption = (Text6.Text) + ":" + (Text5.Text) + ":00"
HasilM4.Caption = (Text8.Text) + ":" + (Text7.Text) + ":00"
HasilM5.Caption = (Text10.Text) + ":" + (Text9.Text) + ":00"

End Sub

Private Sub Timer1_Timer()
Label8.Caption = Format(Now, "HH:mm:ss") ' jam memnggunakan format
End Sub

Private Sub Timertxt_Timer()
Label15.Caption = Right(Label15.Caption, Len(Label15.Caption) - 1) & Left(Label15.Caption, 1) ' text berjalan
turnofftxt.Caption = turnofftxt.Caption + 1
Select Case turnofftxt.Caption
Case "300"
Label15.Visible = False
MsgBox " Saatnya Sholat ", vbInformation
turnofftxt.Caption = "1"
Timertxt.Enabled = False
End Select
End Sub

jika anda kebingungan untuk penempatanya bisa download projectnya di sini 
atau jika ada pertanyaan bisa komentar dibawah ini , kami akan menanggapi sebaik mungki

Download Project