PERCOBAAN 5

 PERCOBAAN 5
MEMBUAT TAMPILAN RUNNING LED DENGAN MENGGUNAKAN SHAPE


1.    Tujuan : Agar Bintara Mahasiswa mampu membuat tampilan Running LED dengan menggunakan shape.

2.     Alat dan Bahan.
        a.    Laptop.
        b.    Delphi.
        c.    Image.
        d.    Timer.
        e.    Shape.
        f.     Label.

3.    Landasan Teori.
a.    Image pada Delphi, komponen Image digunakan untuk menampilkan gambar atau foto dalam aplikasi. Komponen Image dapat digunakan untuk menampilkan gambar statis atau dinamis dalam aplikasi Delphi. Komponen ini berguna untuk menambahkan visualisasi pada aplikasi, seperti menampilkan logo, gambar, atau foto.

b.    Timer pada Delphi, komponen dasar untuk mengatur waktu dalam Delphi.

c.    Shape pada Delphi, komponen Shape digunakan untuk membuat berbagai bentuk grafis seperti lingkaran, elips, bujur sangkar dan bentuk lainnya.

d.   Label pada Delphi, komponen visual yang digunakan untuk menampilkan teks pada aplikasi.

e.    Tampilan Running LED dengan menggunakan Shape pada Delphi, merupakan hasil visualiasi dari pergerakan Shape, sehingga membuat seakan-akan bergerak. 

4.    Langkah-Langkah Percobaan.

        a .   Membuat Flowchart.





        b.    Membuat Coding.
               1). Coding Form1

                unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit4, Unit5;

procedure TForm1.Button10Click(Sender: TObject);
begin
FORM1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
Form3.CLOSE;
Form4.CLOSE;
Form5.CLOSE;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.CLOSE;
Form3.Show;
Form4.CLOSE;
Form5.CLOSE;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.CLOSE;
Form3.CLOSE;
Form4.Show;
Form5.CLOSE;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Form2.CLOSE;
Form3.CLOSE;
Form4.CLOSE;
Form5.Show;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Timer1.Interval:=200;
Timer2.Interval:=200;
Timer3.Interval:=200;
Timer4.Interval:=200;
Timer5.Interval:=200;
Timer6.Interval:=200;
Timer7.Interval:=200;
Timer8.Interval:=200;
end;


procedure TForm1.Button7Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer2.Interval:=500;
Timer3.Interval:=500;
Timer4.Interval:=500;
Timer5.Interval:=500;
Timer6.Interval:=500;
Timer7.Interval:=500;
Timer8.Interval:=500;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer2.Interval:=1000;
Timer3.Interval:=1000;
Timer4.Interval:=1000;
Timer5.Interval:=1000;
Timer6.Interval:=1000;
Timer7.Interval:=1000;
Timer8.Interval:=1000;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Timer1.Interval:=1500;
Timer2.Interval:=1500;
Timer3.Interval:=1500;
Timer4.Interval:=1500;
Timer5.Interval:=1500;
Timer6.Interval:=1500;
Timer7.Interval:=1500;
Timer8.Interval:=1500;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=TRUE;
Timer1.Enabled:=FALSE
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=TRUE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=TRUE;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=TRUE;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=TRUE;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=TRUE;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=TRUE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=TRUE;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=TRUE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=TRUE;
end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=TRUE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
end;
end.
               
                
                  2). Coding Form2

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    Timer9: TTimer;
    Timer10: TTimer;
    Timer11: TTimer;
    Timer12: TTimer;
    Timer13: TTimer;
    Timer14: TTimer;
    Timer15: TTimer;
    Timer16: TTimer;
    Button10: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer9Timer(Sender: TObject);
    procedure Timer10Timer(Sender: TObject);
    procedure Timer11Timer(Sender: TObject);
    procedure Timer12Timer(Sender: TObject);
    procedure Timer13Timer(Sender: TObject);
    procedure Timer14Timer(Sender: TObject);
    procedure Timer15Timer(Sender: TObject);
    procedure Timer16Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1, Unit3, Unit4, Unit5;

procedure TForm2.Button10Click(Sender: TObject);
begin
FORM1.Close;
FORM2.Close;
FORM3.Close;
FORM4.Close;
FORM5.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
form2.CLOSE;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
FORM2.Close;
Form3.Show;
FORM4.Close;
FORM5.Close;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
FORM2.Close;
FORM3.Close;
Form4.Show;
FORM5.Close;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
FORM2.Close;
FORM3.Close;
FORM4.Close;
Form5.Show;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
Timer1.Interval:=200;
Timer2.Interval:=200;
Timer3.Interval:=200;
Timer4.Interval:=200;
Timer5.Interval:=200;
Timer6.Interval:=200;
Timer7.Interval:=200;
Timer8.Interval:=200;
Timer9.Interval:=200;
Timer10.Interval:=200;
Timer11.Interval:=200;
Timer12.Interval:=200;
Timer13.Interval:=200;
Timer14.Interval:=200;
Timer15.Interval:=200;
Timer16.Interval:=200;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer2.Interval:=500;
Timer3.Interval:=500;
Timer4.Interval:=500;
Timer5.Interval:=500;
Timer6.Interval:=500;
Timer7.Interval:=500;
Timer8.Interval:=500;
Timer9.Interval:=500;
Timer10.Interval:=500;
Timer11.Interval:=500;
Timer12.Interval:=500;
Timer13.Interval:=500;
Timer14.Interval:=500;
Timer15.Interval:=500;
Timer16.Interval:=500;
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer2.Interval:=1000;
Timer3.Interval:=1000;
Timer4.Interval:=1000;
Timer5.Interval:=1000;
Timer6.Interval:=1000;
Timer7.Interval:=1000;
Timer8.Interval:=1000;
Timer9.Interval:=1000;
Timer10.Interval:=1000;
Timer11.Interval:=1000;
Timer12.Interval:=1000;
Timer13.Interval:=1000;
Timer14.Interval:=1000;
Timer15.Interval:=1000;
Timer16.Interval:=1000;
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
 Timer1.Interval:=1500;
Timer2.Interval:=1500;
Timer3.Interval:=1500;
Timer4.Interval:=1500;
Timer5.Interval:=1500;
Timer6.Interval:=1500;
Timer7.Interval:=1500;
Timer8.Interval:=1500;
Timer9.Interval:=1500;
Timer10.Interval:=1500;
Timer11.Interval:=1500;
Timer12.Interval:=1500;
Timer13.Interval:=1500;
Timer14.Interval:=1500;
Timer15.Interval:=1500;
Timer16.Interval:=1500;
end;

procedure TForm2.Timer10Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=TRUE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=TRUE;
end;

procedure TForm2.Timer11Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=TRUE;
end;

procedure TForm2.Timer12Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=TRUE;
end;

procedure TForm2.Timer13Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
   Timer14.Enabled:=TRUE;
end;

procedure TForm2.Timer14Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=TRUE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
   Timer14.Enabled:=FALSE;
 Timer15.Enabled:=TRUE;
end;

procedure TForm2.Timer15Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
   Timer14.Enabled:=FALSE;
 Timer15.Enabled:=FALSE;
 Timer16.Enabled:=TRUE;
end;

procedure TForm2.Timer16Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=TRUE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
   Timer14.Enabled:=FALSE;
 Timer15.Enabled:=FALSE;
 Timer16.Enabled:=FALSE;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=TRUE;
Timer1.Enabled:=FALSE
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=TRUE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=TRUE;
end;
procedure TForm2.Timer3Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=TRUE;
end;

procedure TForm2.Timer4Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=TRUE;
end;
procedure TForm2.Timer5Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=TRUE;
end;

procedure TForm2.Timer6Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=TRUE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=TRUE;
end;

procedure TForm2.Timer7Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=TRUE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=TRUE;
end;

procedure TForm2.Timer8Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=TRUE;
end;




procedure TForm2.Timer9Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=TRUE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=TRUE;
end;

end.



                3). Coding Form3

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    Button10: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses Unit1, Unit2, Unit4, Unit5;

procedure TForm3.Button10Click(Sender: TObject);
begin
FORM1.Close;
FORM2.Close;
FORM3.Close;
FORM4.Close;
FORM5.Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form2.Show;
FORM3.Close;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
FORM2.CLOSE;
FORM3.CLOSE;
Form4.Show;
FORM5.CLOSE;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
FORM2.CLOSE;
FORM3.CLOSE;
FORM4.CLOSE;
Form5.Show;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
Timer1.Interval:=200;
Timer2.Interval:=200;
Timer3.Interval:=200;
Timer4.Interval:=200;
Timer5.Interval:=200;
Timer6.Interval:=200;
Timer7.Interval:=200;
Timer8.Interval:=200;
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer2.Interval:=500;
Timer3.Interval:=500;
Timer4.Interval:=500;
Timer5.Interval:=500;
Timer6.Interval:=500;
Timer7.Interval:=500;
Timer8.Interval:=500;
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer2.Interval:=1000;
Timer3.Interval:=1000;
Timer4.Interval:=1000;
Timer5.Interval:=1000;
Timer6.Interval:=1000;
Timer7.Interval:=1000;
Timer8.Interval:=1000;
end;

procedure TForm3.Button9Click(Sender: TObject);
begin
Timer1.Interval:=1500;
Timer2.Interval:=1500;
Timer3.Interval:=1500;
Timer4.Interval:=1500;
Timer5.Interval:=1500;
Timer6.Interval:=1500;
Timer7.Interval:=1500;
Timer8.Interval:=1500;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=TRUE;
Timer1.Enabled:=FALSE
end;

procedure TForm3.Timer2Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=TRUE;
end;

procedure TForm3.Timer3Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=TRUE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=TRUE;
end;

procedure TForm3.Timer4Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=TRUE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=TRUE;
end;

procedure TForm3.Timer5Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=TRUE;
end;

procedure TForm3.Timer6Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=TRUE;
end;
procedure TForm3.Timer7Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=TRUE;
end;

procedure TForm3.Timer8Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=TRUE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
end;

end.


                4). Coding Form4

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm4 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    Timer9: TTimer;
    Timer10: TTimer;
    Timer11: TTimer;
    Timer12: TTimer;
    Timer13: TTimer;
    Timer14: TTimer;
    Timer15: TTimer;
    Timer16: TTimer;
    Button10: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure Timer9Timer(Sender: TObject);
    procedure Timer10Timer(Sender: TObject);
    procedure Timer11Timer(Sender: TObject);
    procedure Timer12Timer(Sender: TObject);
    procedure Timer13Timer(Sender: TObject);
    procedure Timer14Timer(Sender: TObject);
    procedure Timer15Timer(Sender: TObject);
    procedure Timer16Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

uses Unit1, Unit2, Unit3, Unit5;

procedure TForm4.Button10Click(Sender: TObject);
begin
FORM1.Close;
FORM2.Close;
FORM3.Close;
FORM4.Close;
FORM5.Close;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
Form1.Show;
FORM2.CLOSE;
FORM3.CLOSE;
FORM4.CLOSE;
FORM5.CLOSE;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
Form2.Show;
FORM3.CLOSE;
FORM4.CLOSE;
FORM5.CLOSE;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
FORM2.CLOSE;
Form3.Show;
FORM4.Close;
FORM5.CLOSE;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
FORM2.CLOSE;
FORM3.CLOSE;
FORM4.CLOSE;
Form5.Show;
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
Timer1.Interval:=200;
Timer2.Interval:=200;
Timer3.Interval:=200;
Timer4.Interval:=200;
Timer5.Interval:=200;
Timer6.Interval:=200;
Timer7.Interval:=200;
Timer8.Interval:=200;
Timer9.Interval:=200;
Timer10.Interval:=200;
Timer11.Interval:=200;
Timer12.Interval:=200;
Timer13.Interval:=200;
Timer14.Interval:=200;
Timer15.Interval:=200;
Timer16.Interval:=200;
end;

procedure TForm4.Button7Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer2.Interval:=500;
Timer3.Interval:=500;
Timer4.Interval:=500;
Timer5.Interval:=500;
Timer6.Interval:=500;
Timer7.Interval:=500;
Timer8.Interval:=500;
Timer9.Interval:=500;
Timer10.Interval:=500;
Timer11.Interval:=500;
Timer12.Interval:=500;
Timer13.Interval:=500;
Timer14.Interval:=500;
Timer15.Interval:=500;
Timer16.Interval:=500;
end;

procedure TForm4.Button8Click(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer2.Interval:=1000;
Timer3.Interval:=1000;
Timer4.Interval:=1000;
Timer5.Interval:=1000;
Timer6.Interval:=1000;
Timer7.Interval:=1000;
Timer8.Interval:=1000;
Timer9.Interval:=1000;
Timer10.Interval:=1000;
Timer11.Interval:=1000;
Timer12.Interval:=1000;
Timer13.Interval:=1000;
Timer14.Interval:=1000;
Timer15.Interval:=1000;
Timer16.Interval:=1000;
end;

procedure TForm4.Button9Click(Sender: TObject);
begin
Timer1.Interval:=1500;
Timer2.Interval:=1500;
Timer3.Interval:=1500;
Timer4.Interval:=1500;
Timer5.Interval:=1500;
Timer6.Interval:=1500;
Timer7.Interval:=1500;
Timer8.Interval:=1500;
Timer9.Interval:=1500;
Timer10.Interval:=1500;
Timer11.Interval:=1500;
Timer12.Interval:=1500;
Timer13.Interval:=1500;
Timer14.Interval:=1500;
Timer15.Interval:=1500;
Timer16.Interval:=1500;
end;

procedure TForm4.Timer10Timer(Sender: TObject);
begin
 shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
  Timer11.Enabled:=TRUE;
end;

procedure TForm4.Timer11Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=TRUE;
end;
procedure TForm4.Timer12Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=TRUE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=TRUE;
end;

procedure TForm4.Timer13Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=TRUE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
 Timer14.Enabled:=TRUE;
end;
procedure TForm4.Timer14Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
 Timer14.Enabled:=FALSE;
 Timer15.Enabled:=TRUE;
end;
procedure TForm4.Timer15Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
 Timer14.Enabled:=FALSE;
 Timer15.Enabled:=FALSE;
 Timer16.Enabled:=TRUE;
end;

procedure TForm4.Timer16Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=TRUE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
 Timer10.Enabled:=FALSE;
 Timer11.Enabled:=FALSE;
 Timer12.Enabled:=FALSE;
 Timer13.Enabled:=FALSE;
 Timer14.Enabled:=FALSE;
 Timer15.Enabled:=FALSE;
 Timer16.Enabled:=FALSE;
end;



procedure TForm4.Timer1Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=TRUE;
Timer1.Enabled:=FALSE
end;

procedure TForm4.Timer2Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=TRUE;
end;
procedure TForm4.Timer3Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=TRUE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=TRUE;
end;

procedure TForm4.Timer4Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=TRUE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=TRUE;
end;
procedure TForm4.Timer5Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=TRUE;
end;
procedure TForm4.Timer6Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=TRUE;
end;

procedure TForm4.Timer7Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=TRUE;
end;

procedure TForm4.Timer8Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=TRUE;
end;



procedure TForm4.Timer9Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=FALSE;
Timer3.Enabled:=FALSE;
Timer4.Enabled:=FALSE;
Timer5.Enabled:=FALSE;
Timer6.Enabled:=FALSE;
Timer7.Enabled:=FALSE;
Timer8.Enabled:=FALSE;
Timer9.Enabled:=FALSE;
Timer10.Enabled:=TRUE;
end;

end.


                5). Coding Form5.

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm5 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Button10: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

uses Unit1, Unit2, Unit3, Unit4;

procedure TForm5.Button10Click(Sender: TObject);
begin
FORM1.Close;
FORM2.Close;
FORM3.Close;
FORM4.Close;
FORM5.Close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
Form1.Show;
FORM2.CLOSE;
FORM3.CLOSE;
FORM4.CLOSE;
FORM5.CLOSE;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
Form2.Show;
FORM3.CLOSE;
FORM4.CLOSE;
FORM5.CLOSE;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
FORM2.CLOSE;
Form3.Show;
FORM4.CLOSE;
FORM5.CLOSE;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
FORM2.CLOSE;
FORM3.CLOSE;
Form4.Show;
FORM5.Close;
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
Timer1.Interval:=200;
Timer2.Interval:=200;
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer2.Interval:=500;
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer2.Interval:=1000;
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
Timer1.Interval:=1500;
Timer2.Interval:=1500;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
shape9.Visible:=TRUE;
shape10.Visible:=TRUE;
Shape11.Visible:=TRUE;
shape12.Visible:=TRUE;
shape13.Visible:=FALSE;
Shape14.Visible:=FALSE;
shape15.Visible:=FALSE;
Shape16.Visible:=FALSE;
Timer2.Enabled:=TRUE;
Timer1.Enabled:=FALSE
end;

procedure TForm5.Timer2Timer(Sender: TObject);
begin
shape9.Visible:=FALSE;
shape10.Visible:=FALSE;
Shape11.Visible:=FALSE;
shape12.Visible:=FALSE;
shape13.Visible:=TRUE;
Shape14.Visible:=TRUE;
shape15.Visible:=TRUE;
Shape16.Visible:=TRUE;
Timer2.Enabled:=FALSE;
Timer1.Enabled:=TRUE;

end;

end.

5.     Hasil dan Pembahasian.
        a.    Hasil. 
Tampilan awal



 
Tampilan Mode 1

Tampilan Mode 2


Tampilan Mode 3


Tampilan Mode 4


 Tampilan Mode 5

        b.    Pembahasan.
1). Program tampilan running led menggunakan shape, dengan fitur timer yang terdapat pada Delphi. sehingga merubah tampilan dan kecepatan  bergerak shape. 
2). Tampilan memiliki 5 mode yaitu:
a). 1 shape warna merah berjalan dari sisi kiri ke kanan.
b). 1 shape warna merah berjalan bolak-balik dari kiri ke kanan.
c). 3 shape warna merah berjalan dari sisi kiri ke kanan.
d). 3 shape warna merah berjalan bolak-balik dari kiri ke kanan.
e).  4 shape warna merah berjalan dari sisi kiri ke kanan.
3).  Tampilan memiliki 4 mode  interval yaitu:
a). Interval 200.
b). Interval 500.
c). Interval 1000.
d). Interval 1500.
6.     Kesimpulan.
a). Program tampilan running led menggunakan shape, dengan fitur timer yang terdapat pada Delphi. sehingga merubah tampilan dan kecepatan  bergerak shape. 
b). Tampilan memiliki 5 mode yaitu:
1). 1 shape warna merah berjalan dari sisi kiri ke kanan.
2). 1 shape warna merah berjalan bolak-balik dari kiri ke kanan.
3). 3 shape warna merah berjalan dari sisi kiri ke kanan.
4). 3 shape warna merah berjalan bolak-balik dari kiri ke kanan.
5). 4 shape warna merah berjalan dari sisi kiri ke kanan.
c).  Tampilan memiliki 4 mode  interval yaitu:
1). Interval 200.
2). Interval 500.
3). Interval 1000.
4). Interval 1500.
7.     Referensi.


Langganan: Postingan (Atom)