Thursday, November 10, 2011
Membuat Program Alarm Clock dengan VB 6.0
Pada artikel berikut ini anda akan
diajak untuk membuat sebuah program pengingat waktu / alarm clock yang
sederhana. Anda mungkin pernah bertanya-tanya kenapa pada sistem operasi
windows tidak disediakan program pengingat waktu / alarm clock yang sudah built-in,
padahal bila anda sering menggunakan outlook maka kita akan sering menggunakan
alarm clock yang dapat diatur pada menu calendar, tetapi anda tidak akan
membuat yang sekompleks itu.
Program yang akan dibuat relative
sederhana hanya mempunyai sebuah form untuk mengatur waktu, pesan yang akan
ditampilkan, dan memeilih suara dari alarm tersebut. Pembuatan program ini
menggunakan tools Microsoft Visual Basic 2005 Express, anda juga dapat
menggunkan program yang lain yang juga berbasis .NET seperti Visual C# 2005
Express. Untuk versi express dapat didownload dan digunakan secara gratis.
Untuk membuat program ini, langkah
pertama yang dilakukan adalah:
· Buka program Visual Basic 2005
Express dan buat project windows form baru dengan nama “MyAlarmClock”.
Pada form kosong yang terbuka,
tambahkan tiga label, dua textbox, satu DateTimePicker, dan dua button kedalam
form tersebut, atur komponen-komponen tersebut hingga tampilannya berubah
menjadi seperti berikut:
Adapun property-property yang harus
dirubah adalah
·
Kemudian tambahkan komponen ContextMenuStrip
kedalam form, dan tambahkan dua submenu berikut ini
·
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. 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 maka sekarang saatnya untuk menambahkan kode programnya.
· Klik kanan pada form kemudian pilih view code, kemudian tuliskan kode berikut:
· 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 maka sekarang saatnya untuk menambahkan kode programnya.
· 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
Ketika program dijalankan untuk
pertama kali maka program akan langsung muncul pada system try icon yang
terletak pada status bar 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.
.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, “Courier New”, courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }
Subscribe to:
Posts (Atom)