Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Sourcecode [ Membuat program tulisan bergerak ] :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Timer2: TTimer;
Label2: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
VAR LOGO : STRING;
P:INTEGER;
begin
LOGO:= Label1.Caption;
P:= LENGTH(LOGO);
LOGO:= COPY(LOGO,P-1,1)+ COPY(LOGO,1,P-1);
label1.Caption :=LOGO;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
VAR LOGO : STRING;
P:INTEGER;
begin
LOGO:= Label2.Caption;
P:= LENGTH(LOGO);
LOGO:=COPY(LOGO,2,P-1)+ COPY(LOGO,1,1);
label2.Caption :=LOGO;
end;
end.