Timer adalah satu control pada visual
basic yang berfungsi untuk menghitung waktu. saat program dijalankan,
kontrol timer ini tidak akan terlihat dilayar apabila aplikasi tersebut
dijalankan.
Dalam menggunakan komponen timer berkaitan dengan waktu,timer juga dapat
digunakan untuk menjadikan tampilan kita lebih dinamis,dan sangat
membantu dalam program yang akan dibuat.
Dalam membuat sebuah aplikasi anda dapat memasang beberapa kontrol Timer
pada sebuah Form dimana masing-masing kontrol timer tidak saling
mempengaruhi anda juga dapat memasang kontrol timer sebagai pembatas
waktu
Batas max interval timer adalah 65535 ms. Nah bagaimana jika ingin set menjadi 1 jam?
Ikuti langkah berikut ini,
1. Siapkan form beserta timer
2. Atur setting interval timer menjadi 60000
3. masukkan code dibawah ini :
------------------------------------------------------------------
Private Sub Timer1_timer()
Static counter As Integer
'Trigger setiap menit
counter = counter + 1
'Trigger setiap jam
If (counter = 60) Then
counter = 0
'masukkan perintah yang diinginkan
:
:
End If
------------------------------------------------------------------
Penjelasan :
counter = counter + 1
counter akan bertambah setiap menit
if (counter = 60) then
counter = 0
ketika counter mencapai angka 60 atau 60 menit (1jam) maka counter akan kembali ke 0
dan berulang lagi.
Semoga Postingan Tentang vb6 timer interval 1 hour Dapat Dijadikan Sebagai Bahan Pembelajaran.
Semoga bermanfaat :)