Yuk Belajar Program VisualBasic.Net

Ass.....
Hay Gan apa kabar ??
Mudah"an senantiasa selalu diberi kesehatan oleh Allah SWT..
Ok,untuk mempersingkat waktu, Langsung aja ya Gan..

• Seperti biasa aktifkan terlebih dahulu Vb.net anda.
• Kemudian Disaign lah program seperti yang dibawah ini.

• Naah,,, Disini agak berbeda sedikit Gan, ada penambahan "TIMER" seperti yang tampak di bagian bawah.
• Setelah itu ketikkan Listening sesuai dengan yang dibawah ini.

Public Class Form1

    Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
        jam.Text = "00"
        menit.Text = "00"
        detik.Text = "00"
        mili_Detik.Text = "00"
        Timer1.Start()

    End Sub

    Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click
        Timer1.Stop()
    End Sub
    Sub Rancang_Table()
        With LV
            .Columns.Add("waktu", 100, HorizontalAlignment.Center)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True

        End With

    End Sub
    Sub Masuk_Table()
        Dim lst As New ListViewItem
        With lst
            .Text = jam.Text & ":" & menit.Text & ":" & detik.Text & ":" & mili_Detik.Text
        End With
        LV.Items.Add(lst)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        mili_Detik.Text = Val(mili_Detik.Text) + 1
        If Microsoft.VisualBasic.Len(mili_Detik.Text) = 1 Then
            mili_Detik.Text = "0" & mili_Detik.Text
        End If
        If mili_Detik.Text = "10" Then
            mili_Detik.Text = "0"
            detik.Text = Val(detik.Text) + 1
            If Microsoft.VisualBasic.Len(detik.Text) = 1 Then
                detik.Text = "0" & detik.Text
            End If
            If detik.Text = "02" Then
                detik.Text = "00"
                menit.Text = Val(menit.Text) + 1
                If Microsoft.VisualBasic.Len(menit.Text) = 1 Then
                    menit.Text = "0" & menit.Text
                End If
                If menit.Text = "02" Then
                    menit.Text = "00"
                    jam.Text = Val(jam.Text) + 1
                    If Microsoft.VisualBasic.Len(jam.Text) = 1 Then
                        jam.Text = "0" & jam.Text
                    End If
                End If
            End If
        End If
    End Sub

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

    Private Sub btnrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrecord.Click
        Masuk_Table()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("Yakin Mau Keluar.....!!!!???", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub
End Class 

•   Hasilnya seperti ini Gan ,,,,,,!!!!

 

Gimana Gan ? Cukup singkat kan ... :) 
Boleh di coba atau d praktekin Gan, Semoga sukses ya... 
 Itu saja yang dapat saya berikan, semoga bermanfaat.
Jangan lupa untyuk sering mengunjungi blog saya ini... :)

Wass..