membuat jam alarm

                                  Membuat Program Jam Alarm divisual basic

Dalam pembuatan program jam Alarm dibutuhkan beberapa komponen seperti label, textbox, comman button yang telah di sediakan pada toolbox komponen standart. Dan Komponen Windows Media Player dapat ditambahkan dengan cara klik kanan pada toolbox dan klik componen kemudian centang pilihan Windows Media Player, lalu klik OK seperti pada contoh gambar berikut

Komponen yang dibutuhkan untuk membuat contoh sederhana program jam alarm :

KOMPONEN	PROPERTY
	NAME	CAPTION
Label1	Label1	ALARM
Label2	Label2	00:00:00
Label3	Label3	ATUR JAM ALARM
Textbox1	Text1	DIKOSONGKAN
Timer1	Timer1	Interval : 100
Timer2	Timer2	Interval : 100
Comandbutton1	Command1	Aktif/Tidak Aktif
Comandbutton2	Command2	Keluar
Comandbutton3	Command3	-
WindowsMediaPlayer	Command4	URL = Source Lagu.mp3

Pembuatannnya berlangsung sederhana, setelah menyiapkan beberapa komponen. Atur Form atau lembar kerja sesuai keinginan dengan merubah tampilan warna, tata letak komponen dll. Seperti contoh pada gambar berikut.

 

               

Untuk peng – codingan dapat kita lakukan pada lembar code yang dapat aktifkan dengan beberapa cara :

1.       Klik 2 kali pada komponen yang mau diisi source code nya.

2.       Klik kiri icon view code pada project eksplorer yang berada di pojok kanan atas.

3.       Klik kiri menu view yang ada pada menubar dan kemudian pilih code.

Setelah lembar Code aktif masukan codding di bawah ini :

                                                                        

Dim alarm As Boolean

Private Sub Form_Load()

alarm = False

Timer2 = False

wmp.Controls.stop

End Sub

Private Sub Command2_Click()

 If alarm = True Then

Timer2.Enabled = False

Command2.Caption = "Aktif"

alarm = False

Else

Command2.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Timer1_Timer()

Label2 = Time

If Label2.Caption = Text1.Text & alrm Then

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

 wmp.Controls.play

End Sub

Private Sub Command3_Click()

Form1.WindowState = 1 - minimize

End Sub

Setelah semua coding diisi, coba jalankan program dengan cara menekan tombol F5 pada keyboard atau klik icon start pada toolbar dan bisa juga klik run pada menubar kemudian pilih Start. Jika program telah berhasil di jalankan, save project dengan cara klik file pada menubar pilih save project as, pilih lokasi tempat penyimpanan file yang diinginkan kemudian klik save. Untuk menyajikan file project dalam bentuk aplikasi, bisa dilakukan dengan pilih file pada menubar kemudian klik make project.exe dan pilih tempat penyimpanan nya.