Membuat Stopwatch di windows form Application di visual Studio 2012

Membuat Stopwatch di Windows Form Aplication pada Visual Studio 2012

Hay hay guys Assalamualaikum Warahmatullahi Wabarakaatu kali ini saya akan nge-share buat kalian semua sekedar berbagi info, untuk kita semua dan membuat kita lebih punya banyak ilmu dan lebih luas wawasannya.
Oh iya perkenalkan nama saya " agam" nama panggilan tergokil yang di berikan kedua ortu saya kepada saya, saya kuliah di salah satu perguruan tinggi swasta di Medan jurusan Sistem Informasi dan kali ini saya sudah semester 4.
Membuat program di visual studio itu susah - susah gampang sebetulnya asalkan kita mau belajar aja kita pasti bisa da langsung aja ini desain dan koding yang akan kita buat.

yang ada tulisan angka - angka itu saya kasi nama lbltimer dan tombol start saya kasi nama btnstart tombol pause btnpause dan tombol stop btnstop dan satu lagi program ini juga harus menggunakan tools yang bernama Timer yang saya kasi nama disini tmrTimer ne dia iconnya .










ingat ya ini di visual studio 2012 dan terletak di windows form application.


  Public Class Form1
    Dim selisih As TimeSpan
    Dim waktu As DateTime

    Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click
        tmrTimer.Start()
        waktu = Now
    End Sub

    Private Sub tmrTimer_Tick(sender As Object, e As EventArgs) Handles tmrTimer.Tick
        selisih = Now - waktu
        lbltimer.Text = Format(selisih.Hours, "00") & ":" & Format(selisih.Minutes, "00") & ":" & Format(selisih.Seconds, "00") & ":" & Format(selisih.Milliseconds, "00")
    End Sub

    Private Sub btnPause_Click(sender As Object, e As EventArgs) Handles btnPause.Click
        If btnPause.Text = "PAUSE" Then
            waktu = Now - selisih
            tmrTimer.Stop()
            btnPause.Text = "CONTINUE"
        ElseIf btnPause.Text = "CONTINUE" Then
            waktu = Now - selisih
            tmrTimer.Start()
            btnPause.Text = "PAUSE"
        End If
    End Sub

    Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click
        tmrTimer.Stop()
    End Sub
End Class

Okey semua selamat mencoba ya....................

Tweet