Stopwatch

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 basic 6
  
  
  
• Isihkan pada Form dengan 2 tombol CommandButton, 1 Label, dan 1 Timer
  
  
  
• Ganti nama tombol Commandbutton 1 dengan Start dan CommandButton 2 dengan Stop
  
  
  
• Beri nilai Interval pada Timer di Properties dengan angka 10
  
   
• 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