PERCOBAAN 5

MEMBUAT TAMPILAN LED BERJALAN


1.       Tujuan.        Agar Bamasis mampu membuat tampilan LED berjalan.

2.       Alat dan Bahan.

a.       Laptop;

b.       Aplikasi Delphi;

c.       Tool shape;

d.       Tool button;

e.       Timer; dan

f.        Interval Timer

3.       Dasar Teori.

a.       Tshape adalah salah satu komponen visual dalam Delphi yang digunakan untuk menggambar bentuk geometris sederhana seperti persegi panjang, lingkaran, elips, atau garis di dalam sebuah form atau container lainnya. TShape sangat berguna untuk membuat elemen visual yang sederhana.

b.    TButton digunakan untuk membuat tombol (button) di antarmuka pengguna. TButton memungkinkan pengguna untuk memicu suatu aksi atau perintah ketika tombol tersebut diklik. Tombol sangat berguna dalam aplikasi Delphi untuk menjalankan berbagai macam perintah.

c.        Timer pada Delphi biasanya digunakan untuk sesuatu prosedur atau fungsi yang dilaksanakan dalam jeda waktu tertentu atau biasa disebut interval, intinya timer digunakan untuk mengatur waktu sebagaimananya timer berfungsi untuk mengatur waktu.


d.       Interval timer di Delphi berfungsi untuk menjalankan tindakan setiap x detik. Pengatur waktu dapat diatur untuk aktif setiap detik atau beberapa kali per detik. 

 

Berikut adalah beberapa hal yang dapat dilakukan dengan interval timer di Delphi:

1)               Mengatur pengatur waktu agar aktif setiap detik dengan Interval := 1000

2)               Memeriksa waktu saat ini setiap kali pengatur waktu aktif.

3)         Melakukan pembaruan jika waktu saat ini lebih lambat 5 detik atau lebih dari waktu pembaruan terakhir.


4.       Langkah-langkah Percobaan.


a.    Flowchart




b.    Coding.

 

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);

 

 

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

uses Unit2, Unit3, Unit4, Unit5;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=TRUE;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.Show;

Form3.Close;

Form4.Close;

Form5.Close;

//Form1.Close;

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.Show;

Form2.Close;

Form4.Close;

Form5.Close;

end;


procedure TForm1.Button4Click(Sender: TObject);

begin

Form4.Show;

Form2.Close;

Form3.Close;

Form5.Close;

end;


procedure TForm1.Button5Click(Sender: TObject);

begin

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.

5.       Hasil dan Pembahasan.

 

a.    Hasil

Button 1


Button 2

                    


Button 3

 

 

Button 4



Button 5




 

 

 

 

 

 

 

 

 

 

 

 

 



b.       Pembahasan

 

Interval Timer adalah fungsi yang digunakan untuk menjalankan suatu aksi atau proses pada interval waktu tertentu yang telah ditentukan. Fungsi ini sering digunakan dalam berbagai aplikasi pemrograman, sistem embedded, dan otomasi industri untuk mengulang proses dengan jeda waktu tertentu.

 

Fungsi Utama Interval Timer

 

1)               Mengulang Tugas Secara Berkala: Memungkinkan program atau sistem untuk menjalankan tugas tertentu secara berkala dengan interval waktu yang tetap, misalnya setiap detik atau setiap menit.

2)               Pengaturan Waktu Eksekusi: Interval timer dapat diatur untuk menjalankan tugas setelah periode waktu tertentu, berguna untuk pengaturan delay.

3)               Monitoring Sistem: Sering digunakan untuk memonitor status sistem dan memeriksa apakah suatu proses berjalan sesuai jadwal.

4)               Pengukuran Waktu: Dapat digunakan untuk mengukur berapa lama suatu proses berlangsung dengan memulai dan menghentikan timer.

 

          TButton digunakan untuk membuat tombol (button) di antarmuka pengguna. TButton memungkinkan pengguna untuk memicu suatu aksi atau perintah ketika tombol tersebut diklik. Tombol sangat berguna dalam aplikasi Delphi untuk menjalankan berbagai macam perintah

6.       Kesimpulan


          Interval Timer adalah fungsi yang digunakan untuk menjalankan suatu aksi atau proses pada interval waktu tertentu yang telah ditentukan. Fungsi ini sering digunakan dalam berbagai aplikasi pemrograman. TButton digunakan untuk membuat tombol (button) di antarmuka pengguna. TButton memungkinkan pengguna untuk memicu suatu aksi atau perintah ketika tombol tersebut diklik. Tombol sangat berguna dalam aplikasi Delphi untuk menjalankan berbagai macam perintah