membuat alarm dengan vb.net 2010

MEMBUAT ALARM SEDERHANA DENGAN VB.NET 2010

Postingan ini saya akan berbagi ilmu lagi, dengan mengambil dari salah satu tugas kuliah saya hehe. Di postingan Ruang kerja VB 2010 saya udah memperkenalkan serta menjelaskan bagaimana cara menggunakan vb.net 2010. Saya juga sudah membuatkan tutorial membuat Aplikasi Sederahana dengan VB 2010, dan tutorial kali ini tentang Alarm Sederhana. Aplikasi alarm ini saya buat hasil dari mengubek-ngubek google. Sangat sederhana sekali, namun cukup membantu lah untuk yg sering bangun kesiangan macem saya ini hehe. Tampilan aplikasi nya seperti gambar diatas. Langsung aja...

1. Pertama anda membuka vb.net 2010, kemudian membuat project baru, namai saja Alarm

2. Yg diperlukan 3 Label, 2 TextBox, 2 Timer, 1 OpenFileDialog dan 2 Button. Buat design nya sesuka anda. Saya membuatnya seperti ini:

3. Selanjutnya coding button Exit dengan klik 2x pada button. Code nya seperti ini:

'Button exit
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

4. Lalu klik 2x pada Timer1 coding dengan code seperti ini:

'Alarm Timer1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Label untuk jam saat ini
        Label4.Text = TimeOfDay
        'Logika jika waktu saat ini = waktu alarm yg sudah diset maka alarm akan bunyi
        If Label4.Text = Label6.Text Then
            Timer1.Enabled = False
            Button2.Enabled = True
            My.Computer.Audio.Play("C:\Users\maula\Music\Ismatul Music\alarm.wav")
            System.Windows.Forms.MessageBox.Show("Banguuuuunnn oy!!!")
        End If
    End Sub

5. Kemudian coding button Set Alarm dengan code seperti ini:

'Button untuk mengset waktu alarm
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'logika jika waktu alarm tidak diset akan muncul peringatan
        Label6.Text = TextBox1.Text
        Button1.Enabled = False
        If Label6.Text = "" Then
            MsgBox("Please set alarm", MsgBoxStyle.Exclamation)
            Button1.Enabled = True
            TextBox1.Enabled = False
        End If
        TextBox1.Enabled = False
    End Sub

6. Dan yg terakhir, coding pada Timer2 dengan code seperti dibawah ini:

'Alarm timer2
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        MyX = Me.Location.X
        MyY = Me.Location.Y
    End Sub

Tinggal di run dengan pincet F5. Dan ini sourcecode lengkapnya:

'Owner      : Ismatul Maula - 1111091000050 - TI-4B 2011
'Date       : Minggu 18-Mar-2013, 08:32 PM
'Compiler   : Visual Studio 2010
'Specific   : Alarm Sederhana, build 1.0

Public Class Form1
    'Deklarasi tipe data
    Public Shared jam_alarm As String
    Dim MyX As Integer
    Dim MyY As Integer

    'Button exit
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    'Alarm Timer1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Label untuk jam saat ini
        Label4.Text = TimeOfDay
        'Logika jika waktu saat ini = waktu alarm yg sudah diset maka alarm akan bunyi
        If Label4.Text = Label6.Text Then
            Timer1.Enabled = False
            Button2.Enabled = True
            My.Computer.Audio.Play("C:\Users\maula\Music\Ismatul Music\alarm.wav")
            System.Windows.Forms.MessageBox.Show("Banguuuuunnn oy!!!")
        End If
    End Sub

    'Button untuk mengset waktu alarm
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'logika jika waktu alarm tidak diset akan muncul peringatan
        Label6.Text = TextBox1.Text
        Button1.Enabled = False
        If Label6.Text = "" Then
            MsgBox("Please set alarm", MsgBoxStyle.Exclamation)
            Button1.Enabled = True
            TextBox1.Enabled = False
        End If
        TextBox1.Enabled = False
    End Sub

    'Alarm timer2
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        MyX = Me.Location.X
        MyY = Me.Location.Y
    End Sub
End Class

Sekian, semoga bermanfaat. Wassalam :D

Sumber: Diajarkan dosen & Cari di Google