Tutorial Membuat Program Alarm!! Dengan VB 2008

Yosh!! berhubung dapat tugas membuat program sederhana dengan VB akhirnya aku memutuskan membuat program alarm ini sebagai tugas :p ya, maklumlah kalau sederhana banget. namanya juga lagi belajar!!!

Yosh!! langsung saja berikut tutorialnya!!!!

By : Rinda Syellina Tri Hesti

Source Code :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

        TextBox1.Text = TimeOfDay

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Label1.Text = TimeOfDay

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = TimeOfDay + "   " + DateString

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer2.Start()

        MsgBox("Alarm Set!")

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If TextBox1.Text = TimeOfDay Then

            Me.Show()

            MsgBox("It Is: " + TimeOfDay, MsgBoxStyle.Critical)

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class

1.       Buat Desain awal!!

Untuk Label1 Dengan Properties :

Untuk TexsBox Dengan Properties :

Untuk Button properties :

2.       Selanjutnya Mengisi source codenya :

a.       Untuk From1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

        TextBox1.Text = TimeOfDay

    End Sub

b.      Untuk Label1

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Label1.Text = TimeOfDay

    End Sub

c.       Untuk Timer

Hasilnya :

Pilih timer1  :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = TimeOfDay + "   " + DateString

End Sub

d.  Untuk Set

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer2.Start()

        MsgBox("Alarm Set!")

    End Sub

e.  Untuk Timer2

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If TextBox1.Text = TimeOfDay Then

            Me.Show()

            MsgBox("It Is: " + TimeOfDay, MsgBoxStyle.Critical)

        End If

    End Sub

f.  Untuk Button “Close”

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

        Me.Close()

    End Sub

3.  Sekarang anda bisa mulai menjalankannya!!!
Hasilnya akan jadi seperti ini.

Selamat Mencoba!!!!
Dan please don't copy paste!!! Nyusunya susah loch tutorial itu ToT