membuat Aplikasi Jam "VB.NET"

Pada postingan yang kemarin kita sudah mencoba membuat aplikasi split kata,nah untuk kali ini ,saya akan mencoba membuat sebuah aplikasi sederhana lagi yaitu aplikasi jam. oke dech...langsung  siapin project baru di VB.Net agan.

Pada Form tambahkan beberapa Control ini :

• tambahkan 3 Label
• tambahkan Tool Timer ( ada dimenu : toolbox )

Ubah propertise masing-masing control.

Control	Name	Text
Label1	lblHour	H
Label2	lblMinute	M
Label3	lblSecond	S

 

 gambar diatas adalah tampilan dari form saya,agan bisa mengkreasikan sendiri.

double klik pada control timer,masukan code berikut :

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

        Dim Jam As Date
        Jam = DateTime.Now
        lblHour.Text = Jam.Hour.ToString()
        lblMinute.Text = Jam.Minute.ToString()
        lblSecond.Text = Jam.Second.ToString()
        lblDate.Text = Jam.Date.ToString()
    End Sub

selanjutnya pada event Form_load tambahkan code dibawah ini :

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

        Timer1.Start()
    End Sub

kl lengkapnya kayak gini gan :

Public Class Form1

    '###############################################################

    '#                     Aplikasi Jam Digital                    #

    '#------------------------------------------------------------ #

    '#               Code by GaaR4 & Jatim community               #

    '#                                           27 februari 2011  #

    '###############################################################

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

        Timer1.Start()

    End Sub

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

        Dim Jam As Date

        Jam = DateTime.Now

        lblHour.Text = Jam.Hour.ToString()

        lblMinute.Text = Jam.Minute.ToString()

        lblSecond.Text = Jam.Second.ToString()

        lblDate.Text = Jam.Date.ToString()

    End Sub

End Class

 sekarang agan Run aplikasi agan,jika tidak terjadi eror maka. SELAMAT AGAN BERHASIL.
selanjutnya tinggal Save All. Sourch Code
Tunggu postingan selanjutnya ya gan...jgn lupa Comment
 Aplikasi ini Terinspirasi Dari Agan Sebelah