LAPORAN PRAKTEK BAHASA PEMROGRAMAN DELPHI

PERCOBAAN VI

MEMBUAT PABRIK DODOL

1. Tujuan. Agar Bintara Mahasiswa mampu membuat program pengolahan dodol secara modern.

2. Alat dan Bahan.

a. Laptop;

b. Aplikasi Delphi;

c. Tool Edit;

d. Tool Button;

e. Tool Label;

f. Tool Shape;

g. Tool Timer; dan

h. Tool Image.

3. Dasar Teori

a. Tool Edit.

Tools dan komponen edit dalam konteks flowchart merujuk pada berbagai aplikasi, perangkat lunak, dan fitur yang digunakan untuk membuat, mengedit, dan mengoptimalkan diagram alir.

b. Tool Button.

Tool button pada Delphi adalah Palet Alat yang berisi daftar kategori item yang tersedia. Palet Alat dapat digunakan untuk: Membantu proyek baru, Menambahkan komponen ke formulir, Menambahkan cuplikan kode ke Editor Kode.

c. Tool Label.

d. Tool Shape.

Tool Shape dalam Delphi adalah komponen grafis yang digunakan untuk menggambar bentuk-bentuk geometris pada aplikasi yang sedang dikembangkan. Komponen ini memungkinkan pengguna untuk menampilkan berbagai bentuk seperti persegi, lingkaran, dan segitiga, serta mengatur warna dan ukuran sesuai kebutuhan desain aplikasi.

e. Tool Timer.

Tool Timer dalam Delphi adalah komponen yang berfungsi sebagai jam atau untuk mengatur waktu dalam aplikasi yang sedang dikembangkan. Timer digunakan untuk menjalankan suatu prosedur atau fungsi dalam jeda waktu tertentu atau interval waktu yang ditentukan.

f. Tool Image.

Tool Image dalam Delphi adalah komponen yang digunakan untuk menampilkan gambar di dalam aplikasi. Komponen ini termasuk dalam Visual Component Library (VCL) dan memungkinkan pengembang untuk menyisipkan berbagai format file grafis ke dalam antarmuka pengguna, seperti bitmap (.bmp), JPEG (.jpg), Windows Metafiles (.wmf), dan ikon (.ico).

4. Langkah Percobaan.

a. Flowchart;

b. Buat Coding untuk membuat Password dan User name. Berikut adalah contoh program sederhana:

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,

Vcl.ExtCtrls;

type

TForm3 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Shape1: TShape;

Shape2: TShape;

Shape3: TShape;

Shape4: TShape;

Shape5: TShape;

Shape6: TShape;

Shape7: TShape;

Shape8: TShape;

Shape9: 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;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Shape10: TShape;

Shape11: TShape;

Shape12: TShape;

Shape13: TShape;

Shape14: TShape;

Shape15: TShape;

Label1: TLabel;

Button6: TButton;

Timer16: TTimer;

Shape16: TShape;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(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 Timer9Timer(Sender: TObject);

procedure Timer10Timer(Sender: TObject);

procedure Timer11Timer(Sender: TObject);

procedure Timer12Timer(Sender: TObject);

procedure Timer13Timer(Sender: TObject);

procedure Timer14Timer(Sender: TObject);

procedure Timer15Timer(Sender: TObject);

procedure Timer16Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.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;

procedure TForm3.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;

procedure TForm3.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;

procedure TForm3.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:=true;

end;

procedure TForm3.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:=true;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

timer16.Enabled:=true;

end;

procedure TForm3.Timer10Timer(Sender: TObject);

begin

shape10.Visible:=true;

shape11.Visible:=false;

shape12.Visible:=false;

timer10.Enabled:=false;

timer11.Enabled:=true;

timer12.Enabled:=false;

end;

procedure TForm3.Timer11Timer(Sender: TObject);

begin

shape10.Visible:=false;

shape11.Visible:=true;

shape12.Visible:=false;

timer10.Enabled:=false;

timer11.Enabled:=false;

timer12.Enabled:=true;

end;

procedure TForm3.Timer12Timer(Sender: TObject);

begin

shape10.Visible:=false;

shape11.Visible:=false;

shape12.Visible:=true;

timer10.Enabled:=true;

timer11.Enabled:=false;

timer12.Enabled:=false;

end;

procedure TForm3.Timer13Timer(Sender: TObject);

begin

shape13.Visible:=true;

shape14.Visible:=false;

shape15.Visible:=false;

timer13.Enabled:=false;

timer14.Enabled:=true;

timer15.Enabled:=false;

end;

procedure TForm3.Timer14Timer(Sender: TObject);

begin

shape13.Visible:=false;

shape14.Visible:=true;

shape15.Visible:=false;

timer13.Enabled:=false;

timer14.Enabled:=false;

timer15.Enabled:=true;

end;

procedure TForm3.Timer15Timer(Sender: TObject);

begin

shape13.Visible:=false;

shape14.Visible:=false;

shape15.Visible:=true;

timer13.Enabled:=true;

timer14.Enabled:=false;

timer15.Enabled:=false;

end;

procedure TForm3.Timer16Timer(Sender: TObject);

begin

shape16.Visible:=false;

edit9.Text:='2JAM 36MENIT'

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

shape1.Visible:=true;

shape2.Visible:=false;

shape3.Visible:=false;

timer1.Enabled:=false;

timer2.Enabled:=true;

timer3.Enabled:=false;

end;

procedure TForm3.Timer2Timer(Sender: TObject);

begin

shape1.Visible:=false;

shape2.Visible:=true;

shape3.Visible:=false;

timer1.Enabled:=false;

timer2.Enabled:=false;

timer3.Enabled:=true;

end;

procedure TForm3.Timer3Timer(Sender: TObject);

begin

shape1.Visible:=false;

shape2.Visible:=false;

shape3.Visible:=true;

timer1.Enabled:=true;

timer2.Enabled:=false;

timer3.Enabled:=false;

end;

procedure TForm3.Timer4Timer(Sender: TObject);

begin

shape4.Visible:=true;

shape5.Visible:=false;

shape6.Visible:=false;

timer4.Enabled:=false;

timer5.Enabled:=true;

timer6.Enabled:=false;

end;

procedure TForm3.Timer5Timer(Sender: TObject);

begin

shape4.Visible:=false;

shape5.Visible:=true;

shape6.Visible:=false;

timer4.Enabled:=false;

timer5.Enabled:=false;

timer6.Enabled:=true;

end;

procedure TForm3.Timer6Timer(Sender: TObject);

begin

shape4.Visible:=false;

shape5.Visible:=false;

shape6.Visible:=true;

timer4.Enabled:=true;

timer5.Enabled:=false;

timer6.Enabled:=false;

end;

procedure TForm3.Timer7Timer(Sender: TObject);

begin

shape7.Visible:=true;

shape8.Visible:=false;

shape9.Visible:=false;

timer7.Enabled:=false;

timer8.Enabled:=true;

timer9.Enabled:=false;

end;

procedure TForm3.Timer8Timer(Sender: TObject);

begin

shape7.Visible:=false;

shape8.Visible:=true;

shape9.Visible:=false;

timer7.Enabled:=false;

timer8.Enabled:=false;

timer9.Enabled:=true;

end;

procedure TForm3.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

a. Hasil Vidio.

1) Tampilan awal.

2) Tampilan saat memasukan salah satu atau semua komposisi bahan yang salah.

3) Tampilan saat memasukan semua komposisi bahan yang benar.

4) Tampilan saat proses ada yang salah.

5) Tampilan saat ada proses benar semua.

b. Pembahasan.

Pada percobaan Delphi kali ini, kita memanfaatkan untuk membuat prototype sistem pengolahan dodol secara modern. Tool yang digunakan dalam percobaan kali ini adalah Image, Button, Label, Timer, Shape dan Edit Text. Percobaan kali ini menggabungkan sistem kerja antara berbagai tool sehingga menghasilkan aplikasi prototype yang dapat digunakan untuk membuat dodol secara modern.

Pada aplikasi ini, mula-mula kita akan diminta untuk memasukkan komposisi bahan dasar pembuatan dodol dalam kadar persen, setelah sesuai dengan takaran maka pembuatan tahap pertama dapat diproses yaitu pengadukan. Sebelum dimulai pengadukan, akan diprogram untuk melaksankan pengadukan selama 2 jam. Apabila tidak sesuai dengan 2 jam, maka proses pembuatan dodol akan berhenti. Setelah sesuai diisikan pengadukan adonan selama 2 jam, selanjutnya adalah pendinginan atau membiarkan adonan dodol mengembang dalam suhu 10° Celcius. Apabila suhu tidak sesuai 10°Celcius maka proses akan berhenti. Langkah selanjutnya setelah mendinginkan atau membiarkan adonan dodol yaitu, pemotongan adonan dodol menjadi ukuran yang sudah ditentukan. Sebelum memulai proses pemotongan, ukuran akan diinput 2x3x1 cm. Apabila ukuran tidak sesuai maka proses pembuatan dodol akan berhenti. Tahap selanjutnya setelah dodol dipotong sesuai dengan ukuran, akan dilakukan proses pembungkusan dodol selama 30 detik. Sama seperti tahapan sebelumnya, apabila tidak sesuai dengan waktu yang telah ditentukan yaitu 30 detik, proses pembuatan dodol akan berhenti. Tahapan terakhir dodol akan dibungkus dalam kemasan kotak dan siap untuk dipasarkan. Pada aplikasi pembuat dodol ini juga, pada tahapan akhir akan muncul waktu selama proses pembuatan dodol dari awal penakaran bahan hingga akhirnya dodol dikemas dan siap untuk dipasarkan.

6. Kesimpulan.

Percobaan kali ini sangat bermanfaat untuk memudahkan para pembuat dodol tradisional untuk mengembangkan jumlah produksi dikarenakan dengan menggunakan aplikasi prototype ini selain mengurangi tenaga kerja yang dilakukan oleh para pegawai dodol, nantinya pembuatan akan dilakukan secara otomatis dan modern dengan mayoritas pengerjaannya dilakukan oleh mesin, dan dalam waktu pembuatannya juga akan lebih cepat dan efisien dalam produksi dodol.