MEMBUAT RUNNING LED
(Mengunakan Delphi XE8)
1. Tujuan. Agar Bamasis mampu membuat Algoritma Penghitung.
2. Alat dan Bahan.
a. Laptop/PC;
b. Aplikasi Delphi;
c. Tshape;
d. Tbutton
e. Timer.
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 Percobaan.
a. Flowchart;
b. Buat Coding untuk menampilkan Data diri. Berikut adalah contoh program sederhana:
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,
Vcl.Imaging.jpeg;
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;
Label1: TLabel;
Image1: TImage;
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
Button1
Button3
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 Kesimpulan. Kesimpulan dari praktek membuat tampilan nama pribadi di aplikasi Delphi adalah bahwa ini adalah tugas dasar dalam mengembangkan antarmuka pengguna. Dengan menggunakan komponen "TLabel", Anda dapat dengan mudah menampilkan teks atau label yang informatif dan statis di dalam aplikasi. Melalui latihan ini, Anda dapat memahami cara membuat elemen antarmuka pengguna, mengatur properti, dan menampilkan informasi kepada pengguna. Ini merupakan langkah awal dalam memahami cara membangun antarmuka pengguna yang lebih kompleks dan fungsional dalam pengembangan perangkat lunak menggunakan Delphi.
7. Daftar Pustaka.
https://aldymohamad.blogspot.com/2014/03/running-led-menggunakan-delphi-7.html