Membuat Aplikasi Alarm Sederhana Dengan VB.NET

Posting kali ini saya mencoba memberikan tutorial singkat membuat aplikasi alarm dengan vb.net yang merupakan hasil dari tugas PKL. Kita akan membuat tampilan desain seperti dibawah ini, anda juga dapat mendesain senderi sesuai selera


1. Langkah pertama pastikan kita punya Visual studio 2005 / 2010 , Buka vb.Net nya kemudian buat project baru namai dengan Alarm saja.
2. Pada form kosong tambahkan 3 label, 2 button, 2 textBox, 1 DateTimePicker, dan 1 checkBox. Susun dan tata.
3. Atur property nya.


4. Tambahkan komponen ContextMenuStrip kedalam form, dan tambahkan dua submenu berikut

• Tambahkan komponen NotifyIcon, komponen ini berfungsi untuk menampilkan Ballon Tip berisi pesan pada system try icon. Ubah propery name menjadi “AlarmNotifyIcon” Atur property BalloonTipIcon, BalloonTipText, dan BalloonTipTitle bebas sesuai dengan keinginan anda, pesan ini akan ditampilkan pada taskbar PC anda. Jangan lupa untuk mengisi property icon, anda dapat memilih icon apa yang akan digunakan untuk notifikasi, bebas asalkan berekstensi .ico 
•  Tambahkan komponen Timer kedalam form, ubah property interval menjadi 1000. · Tambahkan juga komponen OpenFileDialog kedalam form. · Setelah semua komponen ditambahkan kedalam form dan posisisnya sudah diatur sekarang saatnya untuk coding. · Klik kanan pada form kemudian pilih view code, kemudian tuliskan kode berikut: 
• Public Class frmAlarm 'property yang digunakan untuk mengambil nilai dari datetimepicker Public Property AlarmTime() As DateTime Get Return dtpAlarm.Value End Get Set(ByVal value As DateTime) dtpAlarm.Value = value End Set End Property 'method yang digunakan untuk mengecek alarm, jika jam alarm lebih kecil dari jam sekarang 'maka dapat disimpulkan waktu tersebut adalah waktu pada hari berikutnya. Private Sub RolloverTime() If DateTime.Now.TimeOfDay.CompareTo(AlarmTime.TimeOfDay) > 0 Then AlarmTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day + 1, _ AlarmTime.Hour, AlarmTime.Minute, AlarmTime.Second) Else AlarmTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Year, _ AlarmTime.Hour, AlarmTime.Minute, AlarmTime.Second) End If End Sub 'method yang dijalankan ketika Timer dijalankan Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'membandingkan apakah waktu sekarang cocok dengan waktu yang telah diset pada alarm If DateTime.Now.CompareTo(AlarmTime) >= 0 Then 'memastikan apakah alarm berlaku untuk hari ini atau besok RolloverTime() 'pesan yang ditampilkan pada balloon tip AlarmNotifyIcon.BalloonTipText = IIf(txtMessage.Text.Length > 0, txtMessage.Text, "Attention!") AlarmNotifyIcon.ShowBalloonTip(60000) 'perintah untuk menjalankan file audio If txtSound.Text <> String.Empty Then My.Computer.Audio.Play(txtSound.Text, AudioPlayMode.BackgroundLoop) End If End If End Sub 'method yang dikerjakan ketika button browse diklik Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click 'membuka filedialog baru, untuk memilih file yang akan digunakan OpenFileDialog1.ShowDialog() End Sub 'jika file pada opendialog sudah dipilih Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk txtSound.Text = OpenFileDialog1.FileName End Sub 'pada saat menu setting pada contextmenustrip diklik Private Sub SettingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingToolStripMenuItem.Click 'mengarahkan lokasi form sehingga dapat dilihat user Me.Location = New Point(100, 100) End Sub 'ketika button OK diklik Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 'mengarahkan lokasi form ketempat yang tidak bisa dilihat oleh user Me.Location = New Point(5000, 5000) 'jika checkbox dicheck maka timer dijalankan If chkAlarm.Checked Then Timer1.Enabled = True Else Timer1.Enabled = False My.Computer.Audio.Stop() End If End Sub 'pada saat pertama kali form diload Private Sub frmAlarm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Location = New Point(5000, 5000) End Sub 'pada saat menu Exit pada contextmenustrip diklik Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Application.Exit() End Sub End Class

5. Ketika program dijalankan untuk pertama kali maka program akan langsung muncul pada system try icon yang terletak pada taskbar windows sebelah kanan bawah, didekat jam sistem. Untuk merubah setting alarm clock maka user dapat mengklik kanan pada tampilan icon dari program tersebut untuk memilih setting. Kemudian user dapat menentukan waktu alarm, pesan, dan memilih suara.


Selamat mencoba...