Lidiawati Simanjuntak: 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..