Membuat StopWatch Dengan Visual Studio 2012

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 

Membuat StopWatch Dengan Visual Studio 2012

Nah ! jumpa lagi dengan saya ,

Baiklah sekarang kita akan membuat sebuah aplikasi sederhana yaitu Stopwatch menggunakan Visual Studio 2012.

Langsung aja Buat seperti gambar di bawah

Label (1)-ListBox(1)-Button(4)Timer(1)

Note :Timer = Interval nya 100

Untuk Scrip Codenya Bisa AndaCopy Dibawah :

Public Class Form1

    Private stopwatch As New Diagnostics.Stopwatch

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

        ListBox1.Items.Add(ListBox1.Items.Count + 1 & ". " & Label1.Text)

    End Sub

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

    End Sub

    Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim elapsed As TimeSpan = Me.stopwatch.Elapsed

        Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", _

        Math.Floor(elapsed.TotalHours), _

        elapsed.Minutes, elapsed.Seconds, _

        elapsed.Milliseconds)

    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click

        Timer1.Start()

        Me.stopwatch.Start()

        Button4.Enabled = False

    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click

        Timer1.Stop()

        Me.stopwatch.Stop()

        Button4.Enabled = True

    End Sub

    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click

        Me.stopwatch.Reset()

        Label1.Text = "00:00:00:000"

        ListBox1.Items.Clear()

    End Sub

 

End Class

Tweet