Membuat animasi teks di delphi Bag. 1

Pada tutorial kali ini saya ingin membuat program animasi teks yang berkurang hurufnya satu demi satu sampai dengan huruf terakhir kemudian kembali ke teks semua, berkurangnya huruf di mulai dari huruf yang paling belakang, misalnya teks “ANIMASI” pada saat program dijalankan maka teks “ANIMASI “ akan berkurang dimulai dari huruf “I”, kemudian “S”, lalu “A”, begitu seterusnya sampai huruf tersebut habis. komponen yang dibutuhkan pun Cuma sedikit yaitu Timer dan label.

Berikut adalah langkah – langkahnya :

1.       Tambahkan sebuah label yang ada di tab standart dan komponen timer yang ada di tab System, seperti gambar di bawah ini :

Dengan mengubah property di form1 pada bagian caption menjadi “Animasi Teks”, 

 

Dan pada property label diubah pada bagian caption menjadi “ANIMASI” dengan font size 60.

2.        Setelah property pada bagian form dan label sudah di ubah, sekaran kita mulai memasukkan source codenya.

3.       Yang pertama yaitu Masukkan variable pencacah misalnya “counter” ke dalam bagian variable yaitu dengan menekan tombol F12, nanti akan keluar jendela coding. Letakkan variable counter pada bagian variable seperti di bawah ini :

4.       Kemudian kembali ke form desaigner dengan menekan tombol F12, klik pada bagian formnya kemudian pilih event --> Oncreate;

Klik dua kali kemudia masukkan source code berikut ini :

5.       Setelah selesai, kembali ke form desainer dengan tekan tombol F12, klik dua kli(2x) pada komponen timer sehingga masuk ke jendela coding lagi, kemudia ketikan source code di bawah ini :

6.       Setelah selesai memasukkan source code di atas, klik F9 atau tombol run untuk menjalankan dan lihat hasilnya.

Untuk tutorialnya bisa didownload disini
Untuk Contoh programnya bisa didownload disini

Selamat mencoba