Pada sesi latihan ini anda akan diperkenalkan dengan control timer yang berfungsi untuk menjalankan suatu baris atau beberapa baris perintah dalam interval secara kontinyu. Ada 2 Properti Timer yang sering digunakan yaitu:
* Interval, properti ini digunakan untuk mengatur selang waktu pengeksekusian perintah, nilainya menyatakan dalam ms (milisecond) atau 1/1000 detik. Sebagai contoh, jika properti interval diberi nilai 1000 maka proses eksekusinya setiap detik.
* Enabled, properti ini berfungsi untuk mengatur apakah perintah dapat dieksekusi atau tidak. Jika bernilai True maka baris perintah akan dieksekusi. Sebaliknya jika properti Enabled ini diberi nilai False maka perintan tidak akan dieksekusi.
Untuk memudahkan pemahaman berikut ini contoh program jam digital menggunakan control Timer. Buatlah form dan letakkan sebuah control timer, label, dan button.
Lakukan pengaturan properti pada control Timer1, Pada property Timer diisi = 1000, maksudnya agar perintah dikerjakan setiap 1 detik. Atur properti Enabled dengan True, dengan demikian perintah dapat dikerjakan begitu form dibuka.
Selanjutnya ketik pengkodeannya dengan mengklik ganda control timer1. Adapun codingya sebagai berikut:
view source
1 procedure TForm1.Timer1Timer(Sender: TObject);
2 begin
3 Label1.Caption:=formatdatetime('hh : mm : ss',time);
4 end;
Perintah tersebut akan dikerjakan berulang-ulang sesuai dengan interval waktu yang telah ditentukan. Tambahkan kode berikut pada button1 untuk menutup form view source :
1 procedure TForm1.Timer1Timer(Sender: TObject);
2 begin
3 Close;
4 End
****Sumber : Fairus Alsaid
Sign up here with your email
Pengunjung yang terhormat, untuk memperbaiki konten dan isi blog ini, kami mohon saran dan masukannya, jika ada yang kurang silahkan meninggalkan komentar di sini, Terimakasih atas kunjungan Anda. ConversionConversion EmoticonEmoticon