POLTEKAD KODIKLATAD
JURUSAN TELEKOMUNIKASI
MEMBUAT PABRIK PEMBUATAN DODOL
MENGGUNAKAN DELPHI XE 8
Sertu
Mohamad Andryan P NIM
202308023-E
PROGRAM
STUDI DIPLOMA 4 ANGKATAN VIII
TEKNIK
TELEKOMUNIKASI MILITER
SEMESTER
III
TAHUN 2024
Batu, September 2024
PERCOBAAN 6
MEMBUAT PABRIK PEMBUATAN DODOL
MENGGUNAKAN DELPHI XE 8
1. Tujuan :
Agar Bamasis mampu membuat pabrik pembuatan dodol menggunakan Delphi XE 8
2. Alat dan Bahan :
a. Laptop
b. Aplikasi Delphi
c. TShape
d. TButton
e. TImage
f. TEdit
g. 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. TImage
merujuk pada komponen atau kontrol yang digunakan untuk menampilkan dan
mengelola gambar dalam aplikasi.dengan format .jpg, .gif, .bmp dan sebagainya.
Komponen Image terdapat pada Tab Additional.
d. T Edit Dalam Delphi 8, fungsi t edit
biasanya merujuk pada komponen TEdit, yang digunakan untuk membuat kontrol
input teks di antarmuka pengguna. Komponen ini memungkinkan pengguna untuk
mengetikkan teks atau memodifikasi teks yang sudah ada.
e. 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
4. Langkah-langkah Percobaan
a. Flowchart
b. Coding
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, Vcl.Imaging.pngimage;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
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;
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;
Edit9: TEdit;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Button6: TButton;
Timer16: TTimer;
Image12: TImage;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Button2Click(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 Button3Click(Sender: TObject);
procedure Timer10Timer(Sender: TObject);
procedure Timer11Timer(Sender: TObject);
procedure Timer12Timer(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer13Timer(Sender: TObject);
procedure Timer14Timer(Sender: TObject);
procedure Timer15Timer(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Timer16Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
begin
if
(edit1.Text='35')and(edit2.Text='30')and(edit3.Text='25')and(edit4.Text='10')
then
begin
image7.Visible:=false;
image2.Visible:=false;
timer1.Enabled:=true;
end;
if
(edit1.Text<>'35')or(edit2.Text<>'30')or(edit3.Text<>'25')or(edit4.Text<>'10')
then
begin
image7.Visible:=false;
image2.Visible:=true;
end;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
if
edit5.Text='2' then
begin
image8.Visible:=false;
image3.Visible:=false;
timer4.Enabled:=true;
end;
if
edit5.Text<>'2' then
begin
image8.Visible:=false;
image3.Visible:=true;
end;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
if
edit6.Text='10' then
begin
image9.Visible:=false;
image4.Visible:=false;
timer7.Enabled:=true;
end;
if
edit6.Text<>'10' then
begin
image9.Visible:=false;
image4.Visible:=true;
end;
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
if
edit7.Text='2x3x1' then
begin
image10.Visible:=false;
image5.Visible:=false;
timer10.Enabled:=true;
end;
if
edit7.Text<>'2x3x1' then
begin
image10.Visible:=false;
image5.Visible:=false;
end;
end;
procedure
TForm1.Button5Click(Sender: TObject);
begin
if
edit8.Text='30' then
begin
image11.Visible:=false;
image6.Visible:=false;
timer13.Enabled:=true;
end;
if edit8.Text<>'30' then
begin
image11.Visible:=false;
image6.Visible:=false;
end;
end;
procedure
TForm1.Button6Click(Sender: TObject);
begin
timer16.Enabled:=true;
end;
procedure
TForm1.Timer10Timer(Sender: TObject);
begin
shape10.Visible:=true;
shape11.Visible:=false;
shape12.Visible:=false;
timer10.Enabled:=false;
timer11.Enabled:=true;
timer12.Enabled:=false;
end;
procedure
TForm1.Timer11Timer(Sender: TObject);
begin
shape10.Visible:=false;
shape11.Visible:=true;
shape12.Visible:=false;
timer10.Enabled:=false;
timer11.Enabled:=false;
timer12.Enabled:=true;
end;
procedure
TForm1.Timer12Timer(Sender: TObject);
begin
shape10.Visible:=false;
shape11.Visible:=false;
shape12.Visible:=true;
timer10.Enabled:=true;
timer11.Enabled:=false;
timer12.Enabled:=false;
end;
procedure
TForm1.Timer13Timer(Sender: TObject);
begin
shape13.Visible:=true;
shape14.Visible:=false;
shape15.Visible:=false;
timer13.Enabled:=false;
timer14.Enabled:=true;
timer15.Enabled:=false;
end;
procedure
TForm1.Timer14Timer(Sender: TObject);
begin
shape13.Visible:=false;
shape14.Visible:=true;
shape15.Visible:=false;
timer13.Enabled:=false;
timer14.Enabled:=false;
timer15.Enabled:=true;
end;
procedure
TForm1.Timer15Timer(Sender: TObject);
begin
shape13.Visible:=false;
shape14.Visible:=false;
shape15.Visible:=true;
timer13.Enabled:=true;
timer14.Enabled:=false;
timer15.Enabled:=false;
end;
procedure
TForm1.Timer16Timer(Sender: TObject);
begin
image12.Visible:=true;
edit9.Text:='2JAM
36MENIT'
end;
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
shape1.Visible:=true;
shape2.Visible:=false;
shape3.Visible:=false;
timer1.Enabled:=false;
timer2.Enabled:=true;
timer3.Enabled:=false;
end;
procedure
TForm1.Timer2Timer(Sender: TObject);
begin
shape1.Visible:=false;
shape2.Visible:=true;
shape3.Visible:=false;
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=true;
end;
procedure
TForm1.Timer3Timer(Sender: TObject);
begin
shape1.Visible:=false;
shape2.Visible:=false;
shape3.Visible:=true;
timer1.Enabled:=true;
timer2.Enabled:=false;
timer3.Enabled:=false;
end;
procedure
TForm1.Timer4Timer(Sender: TObject);
begin
shape4.Visible:=true;
shape5.Visible:=false;
shape6.Visible:=false;
timer4.Enabled:=false;
timer5.Enabled:=true;
timer6.Enabled:=false;
end;
procedure
TForm1.Timer5Timer(Sender: TObject);
begin
shape4.Visible:=false;
shape5.Visible:=true;
shape6.Visible:=false;
timer4.Enabled:=false;
timer5.Enabled:=false;
timer6.Enabled:=true;
end;
procedure
TForm1.Timer6Timer(Sender: TObject);
begin
shape4.Visible:=false;
shape5.Visible:=false;
shape6.Visible:=true;
timer4.Enabled:=true;
timer5.Enabled:=false;
timer6.Enabled:=false;
end;
procedure
TForm1.Timer7Timer(Sender: TObject);
begin
shape7.Visible:=true;
shape8.Visible:=false;
shape9.Visible:=false;
timer7.Enabled:=false;
timer8.Enabled:=true;
timer9.Enabled:=false;
end;
procedure
TForm1.Timer8Timer(Sender: TObject);
begin
shape7.Visible:=false;
shape8.Visible:=true;
shape9.Visible:=false;
timer7.Enabled:=false;
timer8.Enabled:=false;
timer9.Enabled:=true;
end;
procedure
TForm1.Timer9Timer(Sender: TObject);
begin
shape7.Visible:=false;
shape8.Visible:=false;
shape9.Visible:=true;
timer7.Enabled:=true;
timer8.Enabled:=false;
timer9.Enabled:=false;
end;
end.
5. Hasil dan Pembahasan
b. Pembahasan
1) TImage adalah komponen visual yang digunakan untuk menampilkan gambar pada form. Komponen ini memungkinkan gambar dari berbagai format (seperti BMP, JPG, PNG, dan GIF) ditampilkan dalam aplikasi.
2) 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.
3) 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.
4)
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.
6. Kesimpulan
Dengan
menggunakan Timage, Shape, Button dan Timer dapat berfungsi sebagai pembuatan
aplikasi pabrik dodol sederhana sesuai dengan ukuran yang kita program jika
tidak sesuai maka aplikasi akan berhenti berproses dengan demikian system kerja
ini sangat efektif digunakan untuk penerapan yang memerlukan kecepatan,ketepatan,efektifitas
dan efisiensi produksi dodol.