Membuat Tulisan Berjalan

Pertemuan ke 7 (Selasa,4 Desember 2012)

                Pada pertemuan kali ini, pak dosen menerangkan tentang bagaimana membuat tulisan di dalam program Delphi bisa bergerak.

Berikut caranya:

1. Masuk  pada program Delphi
2. Buat  sebuah Label beri nama.  Misal, ASSALAAMUALAIKUM
3. Buat sebuah button, beri nama SALAM kemudian klik 2 kali.maka akan muncul perintah sebagai berikut:

        unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

end;

*perintah ini adalah perintah asli dalam program delphi

4.Tulis perintah pada var seperti berikut:

var
  Form1: TForm1;
Jeda: Integer = 300 ; 

5.Tulis perintah seperti ini diatas procedure asli pada delphi:
    
     implementation
    
     {$R *.dfm}
    
     procedure Delay (t:LongInt) ; 

     var mulai, selesai, k:LongInt ;
    begin 
     mulai:=GetTickCount ;
    repeat
     Application.ProcessMessages ;
     selesai:=GetTickCount ; 
     Until (selesai-mulai) >=t ;
    end ; 

6.Pada prosedure aslinya tuliskan perintah berikut:

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:= '' ;

Delay(jeda) ;

Label1.Caption:= 'A' ;

Delay(jeda) ;

Label1.Caption:= 'AS' ;

Delay(jeda) ;

Label1.Caption:= 'ASS' ;

Delay(jeda) ;

Label1.Caption:= 'ASSA' ;

Delay(jeda) ;

Label1.Caption:= 'ASSAL' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALA' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAA' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAM' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMU' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUA' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUAL' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUALA' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUALAI' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUALAIK' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUALAIKU' ;

Delay(jeda) ;

Label1.Caption:= 'ASSALAAMUALAIKUM' ;

Delay(jeda) ;

end;

end;


              Dengan perintah diatas maka saat di running kemudian di klik buttton SALAM maka tulisan ASSALAAMUALAIKUM akan muncul satu per satu hurufnya mulai  dari A hingga M. 

berikut print screen program yang kami buat: