Membuat Animasi Teks Sederhana Pada Delphi Dengan Menggunakan Komponen Timer

Komponen TIMER yang terletak pada Tab system, banyak digunakan untuk membuatan animasi-animasi pada Delphi. Cara kerja dari komponen adalah dengan mengeksekusi perintah-perintah (code) yang terdapat pada procedure komponennya setiap rentang waktu (interval) selama komponen ini dalam keadaan aktif (enabled=true).

Dari sekian banyak animasi yang bisa dibuat dengan menggunakan TIMER, disini kita akan mencoba membuat beberapa animasi teks sederhana yang mungkin bisa dikembangkan/ digunakan untuk mempercantik program yang kita buat.

Untuk membuat animasi teks, komponen yang kita gunakan adalah LABEL, BUTTON, dan TIMER.

LABEL dan BUTTON ->terdapatpada Tab Standart.

TIMER ->terdapatpada Tab System.

Komponen Timer

Properties
Enabled	True {default}	Digunakanuntuk men-set TIMER aktif / tidak. True : TIMER aktif False : TIMER tidakaktif
Interval	1000 {default}	Digunakan untuk rentang waktu TIMER mengeksekusi perintah yang ada pada komponen tersebut.1000 -> 1 detik
Name	Timer1 {default}	Namadarikomponen TIMER
Tag	0 {default}

Berikut langkah-langkah dalam pembuatan animasi teks sederhana dengan menggunakan timer :

Langkah 1.

Masukkan komponen-komponen yang akan kita gunakan ke dalam Form.

Setting Properties dari setiap komponen yang ada sesuai dengan kebutuhan anda, misalnya :

Komponen	Properties
Label1	- Name: Teks- Font : Size (28), Name (Tahoma), Style[fsBold]- Caption : Teks
Button1	- Name: BtnOK- Caption : OK
Timer1	- Name: Timer1- Interval: 500 {0.5 detik}- Enabled : False
Form1	- Caption : AnimasiTeks

Berikut tampilan setelah Propertiesnya kita setting :

Langkah 2 (Coding)

1. Animasi Blink

Animasi Blink atau lebih dikenal dengan efek hilang-muncul adalah salah satu efek yang paling mudah kita buat. Animasi ini hanya memanfaatkan properties visible.

Klik ganda pada Form1 untuk membuat procedure Form Create, danbuatlah coding-nya seperti dibawah ini :

Kemudian klik ganda pada Timer1 untuk membuat procedure Timer1Timer, dan buatlah coding seperti dibawah ini :

Selanjutnya klik ganda pada BtnOK untuk membuat procedure BtnOKClick, dan buatlah coding seperti dibawah ini :

Dan terakhir silahkan anda Run program yang barusan kita buat.
2. Animasi Marque

Animasi Marque adalah animasi pergerakan sebuah objek. Animasi banyak bentuk, seperti pergerakan dari kiri-kanan, kanan-kiri, atas-bawah, bawah-atas, dan lain-lain.

Adapun animasi yang akan kita buat adalah Marque Left to Right (pergerakan dari kiri – kanan).

Prinsip dari animasi ini adalah menggunakan properties left.

Klik ganda padaForm1 untuk membuat procedure FormCreate, danbuatlah coding-nya seperti dibawah ini :

Kemudian Klik ganda pada Timer1 untuk membuat procedure Timer1Timer, dan buatlah coding seperti dibawah ini :

Dan terakhir silahkan anda Run program yang barusan kita buat.
3. AnimasiTyping

Animasi Typing adalah animasi dimana sebuah kata /kalimat ditampilkan secara huruf per huruf. Prinsip dari animasi ini adalah menggunakan properties Caption dan Length.

Kemudian, klik ganda pada Form1 untuk membuat procedure FormCreate, dan buatlah coding-nya seperti dibawah ini :

Selanjutnya, klik ganda padaTimer1untukmembuatprocedure Timer1Timer, dan buatlah coding seperti dibawah ini :

Selanjutnya klik ganda pada BtnOK untuk membuat procedure BtnOKClick, danbuatlah coding seperti dibawah ini :

Dan terakhir silahkan anda Run program yang barusan kita buat.
4. Animasi Count Down.

Animasi Count Down atau lebih dikenal perhitungan mundur adalah animasi yang menampilkan sebuah angka dihitung mundur sampai 0. Prinsip dari animasi ini adalah menggunakan properties caption.

Klik ganda pada Form1 untuk membuat procedure FormCreate, dan buatlah coding-nya seperti dibawah ini :