Cara Membuat Stopwatch Dengan Visual Basic 2010

Stopwatch Yang Saya Akan Buat Ini Adalah Stopwatch Yang Simple. Dapat Menghapus Waktu Yang Disimpan, Dan Tentu Saja Menghitung Waktu.

Baiklah Dari Pada Panjang Lebar, Langung Saja Lihat Tutorialnya Di Bawah Ini ::

1) Pertama, Tentu Saja Buka Dulu VB 2010-Nya

2) Lalu, Klik "New Project"

3) Setelah Itu, Klik "Windows Form" (Biasanya Sudah Default), Lalu Beri Nama Project , Misalnya Saya: "Stopwatch" Jika Sudah Klik OK

4) Lalu, Masukkan 1 Label, 1 Listbox, 4 Button, dan 1 Timer. Lalu Atur Sesuai Kemauan, Misalnya :

5) Ubah Beberapa Properties Pada Control, Misalnya Saya Mengganti Properties Seperti Berikut: 

Form: Text (Menjadi "Stopwatch")

            Form Border Style (Menjadi "FixedSingel")

            Minimaze box (Menjadi "False")

            Maximaze box (Menjadi "False")

Button 1, Button 2, Button 3, Button 4, Text-Nya Diubah Menjadi, Berturut-Turut: "Mark", "Start", "Stop", Dan "Reset".

6) Dan Label1: Text (Menjadi "00:00:00:000") 

7) Saatnya Coding. Sekarang Klik "View Code" Di Solution Explorer

8) Lalu Ketik Kode Berikut (Anda Dapat Meng-Copy-Nya. Maksud Dari Code Yang Diberikan Warna Akan Saya Jelaskan Di Akhir Artikel.):

Private stopwatch As New Diagnostics.Stopwatch

    

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Start()

        Me.stopwatch.Start()

        Button4.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Timer1.Stop()

        Me.stopwatch.Stop()

        Button4.Enabled = True

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.stopwatch.Reset()

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

        ListBox1.Items.Clear()

    End Sub

    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

9) Jika Sudah Kalian Dapat Mencobanya, Dengan Mengklik Gambar Tanda Panah Hijau Di Toolstrip (Atau Dapat Menekan Tombol F5 Di Keyboard)

10) Selesai! Anda Telah Berhasil Membuat Sebuah Stopwatch Dengan VB 2010, Terjadi Error , Tinggal Tanya Pada Kolom Komentar.

Nah, sekarang saya akan menjelaskan arti warna kode yang saya berikan.

• Hitam: kode ini di taruh di bawah kode Public Class Form1.
• Merah:  Ini adalah kode untuk Button2/Button Start
• Oranye: Ini adalah kode untuk Timer1
• Hijau: Ini adalah kode untuk Button3/Button Stop
• Biru Tua: Ini adalah kode untuk Button4/Button Reset
• Ungu: Ini adalah kode untuk Button1/Button Mark
• Abu: Ini adalah kode induk.

Semoga Membantu!!

TERIMA KASIH 

(***)