Aplikasi alarm teks mengunakan vb.net 2008

kali ini saya akan share bagaimana cara membuat Aplikasi Teks Menggunakan vb.net 2008.

saya asumsikan anda sudah paham akan dasar dasar dari visual studio. mungkin langsung saja anda buat projeck baru.(nama projeck terserah anda)

buat atau design form seperti gambar dibawah ini.

atur properteis seperti dibawah

Nomor  1.  teks : Aplikasi Alarm Teks

                  name : lbtitle

Nomor 2.  teks : Aplikasi Alarm Teks

                 name : lbwakeup

Nomor 3. name : mtTime

                 Atur Mask seperti gambar dibawah ini

                 

Nomor 4 . teks : wakeup

                  name : btwakup

Nomor 5. teks : change

                name : btchange

Nomor 6. name : timer1

                enabled: true

                interval : 1000

setelah anda mengatur propertis, sekarang anda klik pada button wakeup. dan lihat pada location.

dan anda copykan isi dari location itu.

setelah anda copy location pada wakeup sekarang pastekan pada location button change

dan sekarang pastikan tampilan form anda button wakeup dan button change menjadi satu seperti gambar dibawah ini.

 proses selanjutnya anda klik dua kali pada form sehingga muncul tampilan untuk mengisi coding.

tuliskn codingnya seperti dibawah ini.

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

        lbwakeup.Text = "Ini Waktu Awal"

        btwakeup.Visible = True

        btchange.Visible = False

    End Sub

sekarang atur coding pada button wakeup, dengan cara seperti dibwah ini.

klik pada propertis, dan klik pada button pojok kanan atas 

pilih btwakeup

lalu anda klik event

dan pilih even click (hingga muncul tampilan coding)

masukan codinganya seperti dibawah ini.

Private Sub btwakeup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btwakeup.Click

        mtTime.Enabled = False

        btchange.Visible = True

        btwakeup.Visible = False

    End Sub

sekarang atur codingan dari button change, caranya klik dua kali pada button change

masukan codinganya seperti dibawah ini.

    Private Sub btchange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btchange.Click

        mtTime.Enabled = True

        btchange.Visible = False

        btwakeup.Visible = True

    End Sub

sekarang anda atur codingan di timer, klik dua kali pada timer

dan masukan codinganya seperti dibawah ini.

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

        Dim hr As String = TimeOfDay.Hour

        If hr.length = 1 Then

            hr = "0" + hr

        End If

        Dim mn As String = TimeOfDay.Minute

        If mn.length = 1 Then

            mn = "0" + mn

        End If

        Dim sc As String = TimeOfDay.Second

        If sc.length = 1 Then

            sc = "0" + sc

        End If

        lbwakeup.Text = hr + ":" + mn + ":" + sc

        If lbwakeup.Text = mtTime.Text Then

            MsgBox("Alarm Aktif")

        End If

    End Sub

dan sekarang anda debug atau run, maka program aplikasi alarm teks pun sudah jadi.

dan jika anda atur pada mttime dan klik wakeup maka teks akan muncul jika waktunya sama.

sekarang aplikasi Alarm Teks sudah jadi dan bisa anda gunakan.

mungkin sekian tutorial tentang membuat aplikasi alarm menggunakan vb.net 2008,

jika anda ingin mendownload aplikasi diatas, silahkan klik link download aplikasi.

jika anda ingin mendownload  source code aplikasi diatas, silahkan klik link download source code

saya teguh dumadi, semoga bermanfaat.