JURUSAN
TELEKOMUNIKASI
MEMBUAT RUNNING LED MENGGUNAKAN
DELPHI XE 8
DISUSUN OLEH:
Sertu Mohamad Andryan Prabowo NIM 202308023-E
PROGRAM
STUDI DIPLOMA 4 ANGKATAN VIII
TEKNIK
TELEKOMUNIKASI MILITER
SEMESTER
III
TAHUN
2024
Batu, September 2024
MEMBUAT RUNNING LED MENGGUNAKAN
DELPHI XE 8
1. Tujuan :
Agar Bamasis mampu membuat Algoritma Penghitung.
2. Alat dan Bahan :
a.
Laptop
b.
Aplikasi Delphi
c. Tshape
d. Tbutton
e. Timer
f. Interval
Timer
3. Dasar Teori :
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
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
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
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.
Pengaturan Waktu Eksekusi: Interval timer dapat diatur untuk menjalankan tugas setelah periode waktu tertentu, berguna untuk pengaturan delay.
Monitoring Sistem: Sering digunakan untuk memonitor status sistem dan memeriksa apakah suatu proses berjalan sesuai jadwal.
Pengukuran Waktu: Dapat digunakan untuk mengukur berapa lama suatu proses berlangsung dengan memulai dan menghentikan timer.