23
Gambar 2.15 Contoh form timer sebagai pengatur waktu
Koding pada timer1 :
Dim a As Integer
Private Sub Timer1_Timer()
a = a + 1
If a = 5 Then
Text1.Text = "batas waktu anda telah 5 detik"
End If
End Sub
Sebelum menjalankan
program timer
diatas
harus
dipastikan
terlebih
dahulu
interval
timer1
diset
1000
yang
berarti 1
detik.
Maka
saat
dijalankan selama 5 detik hasil yang keluar pada kotak dialog window
sebagai berikut :
Gambar 2.16 Hasil dari form timer sebagai pengatur
Menggunakan massage box. Contoh programnya yaitu:
Private Sub Command1_Click()
 |