Contoh Program Animasi Teks pada Delphi

• Deskripsi Program

Program ini dikerjakan menggunakan delphi 7. Dalam program ini dibuat 2 buah animasi kata yaitu kata yang dapat berkedip dan kata yang dapat berjalan. Dengan menggunakan timer yang terdapat pada tab system maka kedua kata tersebut dapat beranimasi.

• Interface Program

• Code Program

Nama Komponen	Event	Perintah
Form 1	OnCreate	procedure TForm1.FormCreate(Sender: TObject); begin timer1.Enabled:=false; timer2.Enabled:=false; button1.Caption:='Berkedip'; button2.Caption:='Bergerak'; end;
Timer 1	OnTimer	procedure TForm1.Timer1Timer(Sender: TObject); begin  if label2.Visible then label2.Visible:=false  else label2.Visible:=true; end;
Timer 2	OnTimer	procedure TForm1.Timer2Timer(Sender: TObject); begin if label2.Left>112 then b:=1 else if label2.Left<17 then b:=0; if b=0 then label2.Left:=label2.Left+1 else label2.left:=label2.Left-1; end;
Button 1	OnClick	procedure TForm1.Button1Click(Sender: TObject); begin if button1.caption='Berkedip' then begin label2.Caption:=edit1.Text; timer1.Enabled:=true; button1.Caption:='Stop'; end else if button1.Caption='Stop' then formcreate(sender); end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin if button2.caption='Bergerak' then begin label2.Caption:=edit1.Text; timer2.Enabled:=true; button2.Caption:='Stop'; end else if button2.Caption='Stop' then formcreate(sender); end;

• Output

1.      Tampilan saat pertama kali program dijalankan.

2.      Tampilan saat penginputan teks.

3.      Saat tombol button Berkedip dipilih maka akan secara otomatis kata yang di inputkan akan berkedip.

4.      Saat di klik tombol stop maka teks yang berkedip tadi akan berhenti.

5.      Saat di klik tombol bergerak maka teks akan bergerak ke kiri dan ke kanan.

 

6.      Saat di klik tombol stop maka teks yang bergerak tadi akan berhenti.

Untuk download programnya, silahkan download (DISINI)