PERCOBAAN 5 APLIKASI DELPHI

 PERCOBAAN 5

MEMBUAT RUNNING LED MENGGUNAKAN

DELPHI XE 8

 

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.     Image sebagai tool pada Delphi. TImage adalah komponen dasar yang digunakan untuk menampilkan gambar grafis dalam aplikasi Delphi. TImage yang merupakan bagian dari Visual Component Library (VCL).

b.    Timer sebagai tool pada Delphi. Timer Tool adalah komponen yang digunakan untuk mengatur waktu dan melakukan tindakan secara berulang-ulang pada interval waktu tertentu. Timer Tool pada Delphi biasanya menggunakan komponen TTimer yang dapat ditemukan di Component Palette. Dengan menggunakan Timer Tool, dapat membuat aplikasi yang lebih interaktif dengan mengatur waktu dan melakukan tindakan secara berulang-ulang. 

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.     Shape sebagai tool pada Delphi. TShape adalah komponen dasar yang dapat digunakan untuk menggambar bentuk sederhana seperti persegi, lingkaran, dan lain-lain. Namun, TShape memiliki keterbatasan dalam hal penggunaan bentuk yang lebih kompleks.


e.    Running LED pada Delphi.  Untuk membuat LED yang berkedip-kedip pada Delphi, dapat menggunakan komponen TTimer dan TLabel untuk menggambarkan LED yang berkedip.

      

4.         Langkah-langkah Percobaan.

 

a.    Flowchart.




b.    Coding.


Coding form 1.

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

 

 

 

  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;

//Form1.Close;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.Show;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

Form4.Show;

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

            
 










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