Apa itu Timer, dan Contoh Program Sederhananya

Timer merupakan salah satu tools box visual basic yang di gunakan untuk perubahan sebuah nilai / pergerakan posisi tool box lainnya secara otomatis, misalnya seperti untuk membuat tanggal, waktu, pertambahan dan pengurangan sebuah nilai, perhitungan waktu mundur, alarm, dan hal hal lainya.

Agar lebih memahaminya, ikuti dan praktekan tutorial berikut, saya akan membuat sebuah program pertambahan nilai, dimana setiap detiknya, nilai tersebut akan bertambah, baiklah berikut tutorialya :

1. Jalankan visual basic, dan pilih program Standar EXE

2. Jika sudah tambahkan 1 timer (icon stopwatch), 1 label, dan 3 command button, aturlah sehingga seperti ini :

3. Lalu ubahlah captionya, dengan kriteria sebagai berikut :

Tool Box	Properties	Keterangan
Form 1	Start Up Position	2. Center Screen
Label 1	Caption	0
	Font Size	60
	Font Style	Bold
Command 1	Caption	START
Command 2		PAUSE
Command 3		STOP
Timer 1	Interval	1000
	Enable	False

Catatan :

- Start Up Position "Center Screen", Agar Posisi Form ketika di jalankan berada di tengah layar

- Enable "False" Di Timer 1, agar ketika di jalankan timer dalam keadaan off / mati

- Interval 1000 pada timer sama dengan 1 detik, semakin kecil nilai interval, maka pertambahan akan semakin cepat, begitupun sebaliknya semakin besar, maka semakin lambat, pertambahanya.

Properties Timer1

Sehingga seperti ini :

4. Jika sudah, tuliskan script berikut :

Private Sub Command1_Click() 'Ketika Command1 (START) di klik,

Timer1.Enabled = True  'Maka timer aktif, dan mulai untuk menambahkan

End Sub

Private Sub Command2_Click() 'Ketika Command2 (PAUSE) di klik,

Timer1.Enabled = False 'Maka timer tidak aktif, sehingga pertambahan di hentikan

End Sub

Private Sub Command3_Click() 'Ketika Command3 (END) di klik,

End 'Maka Program akan berhenti

End Sub

Private Sub Timer1_Timer() 'Ketika Timer aktif

Label1.Caption = Val(Label1.Caption) + 1 'Maka Nilai Label (0) akan di tambahkan 1/detik

End Sub

Private Sub Command1_Click() 'Ketika Command1 (START) di klik, Timer1.Enabled = True 'Maka timer aktif, dan mulai untuk menambahkan End Sub Private Sub Command2_Click() 'Ketika Command2 (PAUSE) di klik, Timer1.Enabled = False 'Maka timer tidak aktif, sehingga pertambahan di hentikan End Sub Private Sub Command3_Click() 'Ketika Command3 (END) di klik, End 'Maka Program akan berhenti End Sub Private Sub Timer1_Timer() 'Ketika Timer aktif Label1.Caption = Val(Label1.Caption) + 1 'Maka Nilai Label (0) akan di tambahkan 1/detik End Sub

Note :

Anda bisa mengubah pertambahanya, dari satu menjadi 2, atau angka lainya

5. Jika sudah, coba jalankan, (tekan F5)

Pertama, klik terlebih dahulu "START", dan lihat hasilnya

lalu klik pause, maka otomatis perhitungan pun akan berhenti

dan klik kembali start, untuk memulainya

Itulah tutorial program dasar mengenai timer, untuk program lainya akan saya bahas pada tutorial selanjutnya, terus kunjungi Blues Pedia, untuk tutorial menarik lainya

Sekian dan terimakasih