Cara Membuat Stopwatch dengan Visual Basic 6

Siapa yang tidak tau Stopwatch alat yang digunakan untuk menghitung waktu yang sering digunakan pada perlombaan lari jarak jauh maupu jarak pendek, sekarang kita akan mencoba membuat program Stopwatch dengan menggunakn visual basic 6.

⦁    Buatlah sebuah Prospect pada visual basi 6
 Stopwatch

⦁    Isihkan pada Form dengan 2 tombol CommandButton, 1 Label, dan 1 Timer
 Stopwatch2

⦁    Ganti nama tombol Commandbutton 1 dengan Start dan CommandButton 2 dengan Stop
 Stopwatch3

⦁    Beri nilai Interval pada Timer di Properties dengan angka 10
 Stopwatch4

⦁    Masukkan code berikut pada Form

Dim TotalTenthDetik, TotalDetik, TenthDetik, Detik, _
Menit, Jam As Integer
Dim Jam1 As String
‘Fungsi di atas adalah untuk mendeklarasikan variabel

Private Sub Command1_Click() ‘Untuk menjalakan tombol CommandButton 1 saat di klik
    ‘Inisialisasi total sepersepuluh detik
    TotalTenthDetik = -1
    ‘Aktifkan timer
    Timer1.Enabled = True
End Sub

Private Sub Command2_Click() ‘Untuk menjalakan tombol CommandButton 2 saat di klik
    ‘Memulai atau menghentikan timer kembali
   Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Timer1_Timer() ‘Untuk menjalakan fungsi Timer pada program
    ‘Tambah dengan satu untuk total sepersepuluh detik.
    ‘Kita mengeset interval Timer menjadi 10, jadi
    ‘setiap sepersepuluh detik prosedur ini akan
    ‘dieksekusi
   TotalTenthDetik = TotalTenthDetik + 1
    ‘Jika TotalTenthSeconds = 10,
    ‘set kembali menjadi 0.
    TenthDetik = TotalTenthDetik Mod 10
    ’10 kali sepersepuluh detik sama dengan 1 detik.
    ‘int – akan mengembalikan bilangan integer (bulat)
    ‘dari pecahan ‘Contoh: Int(0.9) = 0 menghasilkan 0
    TotalDetik = Int(TotalTenthDetik / 10)
    ‘Jika variabel Seconds = 60, set kembali menjadi 0
    Detik = TotalDetik Mod 60
    If Len(Detik) = 1 Then
       Detik = “0” & Detik
  ‘Agar selalu dalam dua
                            ‘digit
   End If
    Menit = Int(TotalDetik / 60) Mod 60
    If Len(Menit) = 1 Then
       Menit = “0” & Menit
    ‘Agar selalu dalam dua
                          ‘digit
   End If
    Jam = Int(TotalDetik / 3600)
    If Jam < 9 Then
       Jam1 = “0” & Jam
       ‘Agar selalu dalam dua
                      ‘digit
   End If
    ‘Tampilkan hasilnya di Label1 (update terus Label1)
   Label1 = Jam1 & “:” & Menit & “:” & Detik & “:” _
             & TenthDetik & “”
End Sub

⦁    Selesai program Stopwatch selesai dan siap di jalankan

Stopwatch5

 

Selamat mencoba ^_^

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s