MEMBUAT ANIMASI TEKS BERJALAN

hasilnya bisa di download disini http://aguselek.tk/upload/datafile/teksBerjalan.rar

Kali ini kita akan belajar bersama untuk membuat animasi teks berjaran di Delphi, sebelumnya tentu kita sering melihat teks berjalan di telivisi biasanya sering terlihat di bagian bawah terdapat berita atau iklan tulisan yang berjalan dari arah kanan ke kiri. Nah kita akan membuat program untuk menampilkan pesan seperti itu dengan logika yang mungkin sama dengan pembuatan teks berjalan pada umumnya. Nah hal awal yang perlu kita siapkan tentunya IDE Delphi, terserah memakai versi berapa tai disarankan untuk memakai versi Delphi 6 keatas, saya sendiri menggunakan IDE Delhi versi 2010 dari Embarcodero. Nah buatlah project Delphi baru dan tambahkan komponen Label dengan nama “lblPesan” dan komponen timer dengan nama timer1. 

Nah sekarang kita bersiap untuk bagian code nya.

Pada bagian pendeklarasian variable global tambahkan beberapa variable sebagai berikut :

var

  Form1: TForm1;

  Pesan: string= 'Selamat datang di program kami by.Agus M.R.';

  delay: integer= 100;

  pengurangan: integer=5;

variable-variabel diatas nantinya akan kita guanakan untuk mengatur kecepatan pengurangan posisi tulisan yaitu variable pengurangan dan variable delay untuk mengatur interval dari timer1 yang kita buat, sedangkan bagian variable Pesan untuk memunculkan pesan tersebut pada lblPesan yang nantinya akan kita buat berjalan. Penulisan variable diatas dimaksutkan untuk memudahakan kita untuk memodifikasi pesan dan kecepatan dari animasi teks tersebut.

Kemudian untuk mendefenesikan nilai awal dari beberapa variable yang kita buat tadi tadi kita akan membuat procedure untuk dijalankan setiap kali form di load.

procedure TForm1.FormCreate(Sender: TObject);

begin

        lblPesan.Caption := pesan;

        timer1.Interval := delay;

end;

dan untuk membuat animasi teks berjalan tersebut kita membutukan timer, kita buat procedure sebagai beikut :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if lblpesan.Left+lblpesan.Width  > 0 then

  lblpesan.Left := lblpesan.Left - pengurangan

else

  lblpesan.Left := form1.Width ;

end;

procedure tersebut difungsikan untuk membuat animasi teks berjalan sesuai dengan yang kita harapkan. Inti dari procedure tersebut mengurangi nilai Left (posisi secara horizontal) dari lblpesan sampai lblpesan.Left + lblPesan.Width <=0, dengan kata lain posisi dari label satu bergeser terus kearah kiri sampai seluruh teks tadi hilang. Dan akan kembali kearah paling kanan dari form jika label tersebut hilang.

berikut screanshot dari program yang telah kita compile.

Ok saya rasa sekian sedikit penjelasan tentang pembuatan animasi teks berjalan, semoga bermanfaat bagi kita semua.. Amiiiin.

Salam hangat,

Agus Minanur Rohman