Tab Additional 2 - Animasi Teks

                        Deskripsi Program

Program ini dikerjakan menggunakan delphi7. 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

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. saat pertama kali dijalankan.

2. Saat penginputan teks.