Love Timor: Membuat Jam Alarm dengan VB.NET

Membuat Jam Alarm dengan Visual Basic.NET

Dengan Jam alarm kita bisa diingatkan akan suatu kegiatan. Dasar dari Aplikasi ini adalah sama seperti ketika kita menyalakan Alarm Jam pada umumnya. kita menentukan kapan waktunya untuk membunyikan alarm lalu setelah waktu yang kita tentukan sama dengan waktu yang sedang berjalan, maka akan ada tanda atau suara yang berbunyi.

Berikut adalah langkah-langkah membuat aplikasi alarm sederhana dengan visual basic.net :

Langkah 1 : Jalankan Aplikasi Visual Basicmu

Langkah 2 : Klik menu bar Project à Add Reference .. Tunggu sampai tampil box berikut. Di tab COM pilih Windows Media Player lalu klik ok.

Klik Kanan di toolbox lalu pilih Choose Item..

Setelah itu akan tampil icon Windows media player di toolbox. Icon itu yang di drag ke dalam form1.

Langkah 3 : Buat Project baru dan desain form1 seperti gambar dibawah ini

Langkah 4 : Atur control properties form1 sesuai table dibawah ini

NO	KONTROL	PROPERTIES
1	Label	Name : Label1 Text : Timoresse.blogspot.com
2	Label	Name : Label2 Text : Jam Sekarang
3	Label	Name : Label3 Text : Waktu
4	Label	Name : Label4 Text : Nada
5	DateTimePicker	Name : DateTimePicker1 Format : Time
6	TextBox	Name : TextBox1 Text : Enable : False
7	Button	Name : btnSetWaktu Text : Atur
8	Button	Name : btnCariNada Text : Pilih
9	AxWindowsMediaPlayer	Name : AxWindowsMediaPlayer1 Visible : False
10	Timer	Name : Timer1
11	Timer	Name : Timer2
12	OpenFileDialog	Name : OpenFileDialog1

Langkah 5 : Masukan script kode barikut ke halaman code form tersebut

Imports System.IO

Public Class Form1
    Dim s As Integer = 0
    Dim d As Path

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer2.Enabled = True
        DateTimePicker1.Format = DateTimePickerFormat.Time

    End Sub

    Private Sub btnSetWaktu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetWaktu.Click
        Timer1.Enabled = True
    End Sub

    Private Sub btnCariNada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCariNada.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Text = ""
            TextBox1.Text = OpenFileDialog1.FileName
            s = 1
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If TimeOfDay = DateTimePicker1.Text Then
                If s = 1 Then
                    AxWindowsMediaPlayer1.URL = TextBox1.Text.ToString
                Else
                    MsgBox(DateTimePicker1.Value)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label2.Text = DateTime.Now.ToLongTimeString
    End Sub
End Class

Langkah 6 : Sekarang tekan F5 untuk running dan testing program. Apabila tidak ada kesalahan maka akan tampil form berikut. Silahkan set waktu lalu klik Atur dan pilih nada dering lalu tunggu sampai waktu yang ditentukan maka nada akan berbunyi.