Apa Itu Timer, Dan Teladan Kegiatan Sederhananya

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

Agar lebih memahaminya, ikuti dan praktekan tutorial berikut, aku akan menciptakan sebuah kegiatan pertambahan nilai, dimana setiap detiknya, nilai tersebut akan bertambah, sepakat berikut tutorialya :

1. Jalankan visual basic, dan pilih kegiatan Standar EXE

2. Jika sudah tambahkan 1 timer (icon stopwatch), 1 label, dan 3 command button, aturlah sehingga menyerupai 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 dikala di jalankan berada di tengah layar

- Enable "False" Di Timer 1, supaya dikala 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 menyerupai 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 dapat mengubah pertambahanya, dari satu menjadi 2, atau angka lainya

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

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

kemudian klik pause, maka otomatis perhitungan pun akan berhenti

dan klik kembali start, untuk memulainya

Itulah tutorial kegiatan dasar mengenai timer, untuk kegiatan lainya akan aku bahas pada tutorial selanjutnya, terus kunjungi Routeros Mikrotik, untuk tutorial menarik lainya

Sekian dan terimakasih