Membuat Alarm Mp3 Visual Basic 6.0 (VB6)

Membuat Alarm Mp3 Visual Basic 6.0

1. Buka Microsoft Visual Basic 6.0

2. Pilih Standar EXE

3. Tambahkan Components

1. Microsoft Common Dialog Control 6.0 (SP3)

2. Microsoft Multimedia Control 6.0

4. Design Form Seperti Gambar dibawah ini:

Component	Name	Ket/Caption/Text
Label	Label1	Waktu Sekarang
Label	Label2	Set Alarem
Label	LaTime	00:00:00
TextBox	TexTime	-
TextBox	TexLInk	-
CommandButton	Command1	Mulai
CommandButton	Command2	Cari Lagu
MMControl	MMC	-
CommonDialog	CD1	-
Shape	Shape1	(Oval)
Timer	Timer1	(Interval 100)
Timer	Timer2	(Interval 100)

5. Klik 2x Pada Timer 1 Pastekan Kode Berikut ini:

If TexTime.Text = LaTime.Caption Then

MMC.FileName = TexLInk.Text

MMC.Command = "Open"

MMC.Command = "Play"

End If

6. Klik 2x Pada Timer2 Masukan Kode Berikut:

LaTime.Caption = Format(Time, "HH:mm:ss")

If Timer1.Enabled = False Then

Shape1.BackColor = &HFF&

ElseIf Timer1.Enabled = True Then

Shape1.BackColor = &HFF00&

End If

7. Klik 2x Pada Command2 Masukan Kode Berikut:

CD1.DialogTitle = "Set musik Alarem"

CD1.Filter = "Mp3 File (*.Mp3)|*.Mp3;*.wav"

CD1.ShowSave

TexLInk.Text = CD1.FileName

8. Klik 2x Pada Command1 Masukan Kode Berikut :

If Command1.Caption = "Mulai" Then

Command1.Caption = "Stop"

If TexLInk.Text = "" Then

MsgBox "Musik Belum Ditentukan...!", vbExclamation

Exit Sub

End If

Timer1.Enabled = True

Command2.Enabled = False

TexTime.Enabled = False

Else

Command1.Caption = "Mulai"

Timer1.Enabled = False

Command2.Enabled = True

TexTime.Enabled = True

End If

9. Selesai Silahkan Simpan Projectnya.

Run Program Tekan F5 Atay Klik Menu Run => Start. Tentukan Lagu Untuk Alarem, Seting Waktu Alarem Berbunyi, Klik Mulai Dan Tunggu..
Jika Berhasil Lagu Akan Diputar Sesuai Dengan Waktu Yg Sudah Ditentukan.

Sekian Dari Saya Semoga Membantu...
Selamat Mencoba...

My Channel:

---Youtube---