Silinder Springs

Kalo kemaren udah bikin animasi form, sekarang gw mw bikib animasi tulisan pada delphi7.
Sript nya sih gk begitu sulit,. hampir sama dengan vb6.
Namun jelas beda antara vb dan delphi..
disini ada beberapa jenis animasi tulisan pada delphi, diantaranya berkedip, berjalan dan memantul.

Oke lah langsung aja masuk ke coding nya..



// === Tulisan Berkedip === // * Int. Timer =100

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;


// === Tulisan berjalan di panel dan ganti warna === // * Int. Timer =100

procedure TForm1.Timer2Timer(Sender: TObject);
var a,b,c : String;
begin
  a := Panel2.Caption;
  b := copy(a,1,1);
  c := copy(a,2,length(a));  //kode agar teks berjalan
  Panel2.Caption := c+b;

  if Panel2.Font.Color = clblack then
    begin
      Panel2.Font.Color := clgreen;
    end
  else
    if Panel2.Font.Color = clgreen then
      begin
        Panel2.Font.Color := clyellow;
      end
  else
    if Panel2.Font.Color = clyellow then
      begin
        Panel2.Font.Color := clred;
      end
  else
    if Panel2.Font.Color = clred then
      begin
        Panel2.Font.Color := clblue;
      end
  else
    begin
      Panel2.Font.Color := clblack;
    end;
end;

// === Tulisan berjalan di form === //  * Int. Timer =10

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if label3.left = -136 then label3.Left := 472; // sesuaikan lebar form
Label3.Left := Label3.Left-1;
end;


// === Tulisan berjalan kiri-kanan di panel === //  * Int. Timer =10

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if Label4.Left >= panel4.Width then
Label4.Left := -136  // sesuaikan lebar panel
else
Label4.Left := Label4.Left + 1;
end;


// === Tulisan berjalan kanan-kiri di panel === //  * Int. Timer =10

procedure TForm1.Timer5Timer(Sender: TObject);
begin
Label5.left:= Label5.left-1;
if Label5.left <= -130 Then  // sesuaikan lebar panel
Label5.left:= Panel5.Width;
end;

// === Tulisan memantul kiri-kanan === //  * Int. Timer =10

procedure TForm1.Timer6Timer(Sender: TObject);
begin
if Label6.Left > 336 then aa:=1
else if Label6.Left < 2   then aa:=0;

if aa=0 then Label6.Left:=Label6.Left+1
else Label6.Left:=Label6.Left-1;
end;
// tambah variabel di atas:
// var
  // Form1: TForm1;
  // aa:BYTE;

end.

contoh Projectnya bisa didownload disini