PERCOBAAN 6
PROSES PENGOLAHAN DODOL
1. Tujuan : Agar Bintara Mahasiswa mampu membuat tampilan proses pengolahan dodol.
2. Alat dan Bahan.
a. Laptop.b. Delphi.
c. Image.
d. Timer.
e. Shape.
f. Label.
3. Landasan Teori.
a. Image pada Delphi, komponen Image digunakan untuk menampilkan gambar atau foto dalam aplikasi. Komponen Image dapat digunakan untuk menampilkan gambar statis atau dinamis dalam aplikasi Delphi. Komponen ini berguna untuk menambahkan visualisasi pada aplikasi, seperti menampilkan logo, gambar, atau foto.
b. Timer pada Delphi, komponen dasar untuk mengatur waktu dalam Delphi.
c. Shape pada Delphi, komponen Shape digunakan untuk membuat berbagai bentuk grafis seperti lingkaran, elips, bujur sangkar dan bentuk lainnya.
d. Label pada Delphi, komponen visual yang digunakan untuk menampilkan teks pada aplikasi.
e. Tampilan Running LED dengan menggunakan Shape pada Delphi, merupakan hasil visualiasi dari pergerakan Shape, sehingga membuat seakan-akan bergerak.
4. Langkah-Langkah Percobaan.
a . Membuat Flowchart.
b. Membuat Coding.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='35')and(edit2.Text='30')and(edit3.Text='25')and(edit4.Text='10') then
begin
IMAGE1.Visible:=TRUE;
LABEL5.Visible:=TRUE; LABEL6.Visible:=false;
timer1.Enabled:=true;
end;
if (edit1.Text<>'35')or(edit2.Text<>'30')or(edit3.Text<>'25')or(edit4.Text<>'10') then
begin
IMAGE1.Visible:=FALSE;
LABEL5.Visible:=FALSE;
LABEL6.Visible:=TRUE;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if edit5.Text='2' then
begin
IMAGE2.Visible:=TRUE;
LABEL8.Visible:=TRUE; LABEL9.Visible:=false;
timer4.Enabled:=true;
end;
if edit5.Text<>'2' then
begin
IMAGE1.Visible:=FALSE;
LABEL8.Visible:=FALSE;
LABEL9.Visible:=TRUE;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if edit6.Text='10' then
begin
IMAGE3.Visible:=TRUE;
LABEL15.Visible:=TRUE; LABEL14.Visible:=false;
timer7.Enabled:=true;
end;
if edit6.Text<>'10' then
begin
IMAGE3.Visible:=FALSE;
LABEL15.Visible:=false; LABEL14.Visible:=TRUE;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if edit7.Text='2X3X1' then
begin
IMAGE4.Visible:=TRUE;
LABEL17.Visible:=TRUE; LABEL18.Visible:=false;
timer10.Enabled:=true;
end;
if edit7.Text<>'2X3X1' then
begin
IMAGE4.Visible:=FALSE;
LABEL17.Visible:=false; LABEL18.Visible:=TRUE;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if edit8.Text='30' then
begin
IMAGE5.Visible:=TRUE;
LABEL20.Visible:=TRUE; LABEL21.Visible:=FALSE;
timer13.Enabled:=true;
end;
if edit8.Text<>'30' then
begin
IMAGE5.Visible:=FALSE;
LABEL20.Visible:=false; LABEL21.Visible:=TRUE;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
IF (edit1.Text='35')and(edit2.Text='30')and(edit3.Text='25')and(edit4.Text='10')
and(edit5.Text='2') and(edit6.Text='10')and(edit7.Text='2X3X1')and(edit8.Text='30') then
begin
IMAGE6.Visible:=TRUE;
LABEL25.Visible:=TRUE; LABEL29.Visible:=FALSE;
timer16.Enabled:=true;
edit9.Text:='200MNT'
end;
IF (edit1.Text<>'35')and(edit2.Text<>'30')and(edit3.Text<>'25')and(edit4.Text<>'10')
and(edit5.Text<>'2') and(edit6.Text<>'10')and(edit7.Text<>'2X3X1')and(edit8.Text<>'30')THEN
begin
IMAGE6.Visible:=FALSE;
LABEL25.Visible:=FALSE; LABEL29.Visible:=TRUE;
timer16.Enabled:=true;
edit9.Text:=''
end;
END;
procedure TForm1.Button7Click(Sender: TObject);
begin
EDIT1.Text:='';
EDIT2.Text:='';
EDIT3.Text:='';
EDIT4.Text:='';
EDIT5.Text:='';
EDIT6.Text:='';
EDIT7.Text:='';
EDIT8.Text:='';
EDIT9.Text:='';
EDIT1.Text:='';
LABEL5.Visible:=FALSE;
LABEL6.Visible:=FALSE;
LABEL8.Visible:=FALSE;
LABEL9.Visible:=FALSE;
LABEL14.Visible:=FALSE;
LABEL15.Visible:=FALSE;
LABEL17.Visible:=FALSE;
LABEL18.Visible:=FALSE;
LABEL20.Visible:=FALSE;
LABEL21.Visible:=FALSE;
LABEL23.Visible:=FALSE;
LABEL24.Visible:=FALSE;
LABEL25.Visible:=FALSE;
SHAPE1.Visible:=FALSE;
SHAPE2.Visible:=FALSE;
SHAPE3.Visible:=FALSE;
SHAPE4.Visible:=FALSE;
SHAPE5.Visible:=FALSE;
SHAPE6.Visible:=FALSE;
SHAPE7.Visible:=FALSE;
SHAPE8.Visible:=FALSE;
SHAPE9.Visible:=FALSE;
SHAPE10.Visible:=FALSE;
SHAPE11.Visible:=FALSE;
SHAPE12.Visible:=FALSE;
SHAPE13.Visible:=FALSE;
SHAPE14.Visible:=FALSE;
SHAPE15.Visible:=FALSE;
IMAGE1.Visible:=FALSE;
IMAGE2.Visible:=FALSE;
IMAGE3.Visible:=FALSE;
IMAGE4.Visible:=FALSE;
IMAGE5.Visible:=FALSE;
IMAGE6.Visible:=FALSE;
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
timer5.Enabled:=false;
timer6.Enabled:=false;
timer7.Enabled:=false;
timer8.Enabled:=false;
timer9.Enabled:=false;
timer10.Enabled:=false;
timer11.Enabled:=false;
timer12.Enabled:=false;
timer13.Enabled:=false;
timer14.Enabled:=false;
timer15.Enabled:=false;
timer16.Enabled:=false;
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
//IMAGE6.Visible:=TRUE;
//LABEL25.Visible:=true;
//edit9.Text:='200MNT'
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.
begin
if (edit1.Text='35')and(edit2.Text='30')and(edit3.Text='25')and(edit4.Text='10') then
begin
IMAGE1.Visible:=TRUE;
LABEL5.Visible:=TRUE; LABEL6.Visible:=false;
timer1.Enabled:=true;
end;
if (edit1.Text<>'35')or(edit2.Text<>'30')or(edit3.Text<>'25')or(edit4.Text<>'10') then
begin
IMAGE1.Visible:=FALSE;
LABEL5.Visible:=FALSE;
LABEL6.Visible:=TRUE;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if edit5.Text='2' then
begin
IMAGE2.Visible:=TRUE;
LABEL8.Visible:=TRUE; LABEL9.Visible:=false;
timer4.Enabled:=true;
end;
if edit5.Text<>'2' then
begin
IMAGE1.Visible:=FALSE;
LABEL8.Visible:=FALSE;
LABEL9.Visible:=TRUE;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if edit6.Text='10' then
begin
IMAGE3.Visible:=TRUE;
LABEL15.Visible:=TRUE; LABEL14.Visible:=false;
timer7.Enabled:=true;
end;
if edit6.Text<>'10' then
begin
IMAGE3.Visible:=FALSE;
LABEL15.Visible:=false; LABEL14.Visible:=TRUE;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if edit7.Text='2X3X1' then
begin
IMAGE4.Visible:=TRUE;
LABEL17.Visible:=TRUE; LABEL18.Visible:=false;
timer10.Enabled:=true;
end;
if edit7.Text<>'2X3X1' then
begin
IMAGE4.Visible:=FALSE;
LABEL17.Visible:=false; LABEL18.Visible:=TRUE;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if edit8.Text='30' then
begin
IMAGE5.Visible:=TRUE;
LABEL20.Visible:=TRUE; LABEL21.Visible:=FALSE;
timer13.Enabled:=true;
end;
if edit8.Text<>'30' then
begin
IMAGE5.Visible:=FALSE;
LABEL20.Visible:=false; LABEL21.Visible:=TRUE;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
IF (edit1.Text='35')and(edit2.Text='30')and(edit3.Text='25')and(edit4.Text='10')
and(edit5.Text='2') and(edit6.Text='10')and(edit7.Text='2X3X1')and(edit8.Text='30') then
begin
IMAGE6.Visible:=TRUE;
LABEL25.Visible:=TRUE; LABEL29.Visible:=FALSE;
timer16.Enabled:=true;
edit9.Text:='200MNT'
end;
IF (edit1.Text<>'35')and(edit2.Text<>'30')and(edit3.Text<>'25')and(edit4.Text<>'10')
and(edit5.Text<>'2') and(edit6.Text<>'10')and(edit7.Text<>'2X3X1')and(edit8.Text<>'30')THEN
begin
IMAGE6.Visible:=FALSE;
LABEL25.Visible:=FALSE; LABEL29.Visible:=TRUE;
timer16.Enabled:=true;
edit9.Text:=''
end;
END;
procedure TForm1.Button7Click(Sender: TObject);
begin
EDIT1.Text:='';
EDIT2.Text:='';
EDIT3.Text:='';
EDIT4.Text:='';
EDIT5.Text:='';
EDIT6.Text:='';
EDIT7.Text:='';
EDIT8.Text:='';
EDIT9.Text:='';
EDIT1.Text:='';
LABEL5.Visible:=FALSE;
LABEL6.Visible:=FALSE;
LABEL8.Visible:=FALSE;
LABEL9.Visible:=FALSE;
LABEL14.Visible:=FALSE;
LABEL15.Visible:=FALSE;
LABEL17.Visible:=FALSE;
LABEL18.Visible:=FALSE;
LABEL20.Visible:=FALSE;
LABEL21.Visible:=FALSE;
LABEL23.Visible:=FALSE;
LABEL24.Visible:=FALSE;
LABEL25.Visible:=FALSE;
SHAPE1.Visible:=FALSE;
SHAPE2.Visible:=FALSE;
SHAPE3.Visible:=FALSE;
SHAPE4.Visible:=FALSE;
SHAPE5.Visible:=FALSE;
SHAPE6.Visible:=FALSE;
SHAPE7.Visible:=FALSE;
SHAPE8.Visible:=FALSE;
SHAPE9.Visible:=FALSE;
SHAPE10.Visible:=FALSE;
SHAPE11.Visible:=FALSE;
SHAPE12.Visible:=FALSE;
SHAPE13.Visible:=FALSE;
SHAPE14.Visible:=FALSE;
SHAPE15.Visible:=FALSE;
IMAGE1.Visible:=FALSE;
IMAGE2.Visible:=FALSE;
IMAGE3.Visible:=FALSE;
IMAGE4.Visible:=FALSE;
IMAGE5.Visible:=FALSE;
IMAGE6.Visible:=FALSE;
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
timer5.Enabled:=false;
timer6.Enabled:=false;
timer7.Enabled:=false;
timer8.Enabled:=false;
timer9.Enabled:=false;
timer10.Enabled:=false;
timer11.Enabled:=false;
timer12.Enabled:=false;
timer13.Enabled:=false;
timer14.Enabled:=false;
timer15.Enabled:=false;
timer16.Enabled:=false;
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
//IMAGE6.Visible:=TRUE;
//LABEL25.Visible:=true;
//edit9.Text:='200MNT'
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 Pembahasian.
a. Hasil.
b. Pembahasan.
1). Tahap 1, 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.
2). Tahap 2, Sebelum dimulai pengadukan, akan diprogram untuk melaksankan pengadukan selama 2 jam. Apabila tidak sesuai dengan 2 jam, maka proses pembuatan dodol akan berhenti.
3). Tahap 3, pendinginan atau membiarkan adonan dodol mengembang dalam suhu 10° Celcius. Apabila suhu tidak sesuai 10°Celcius maka proses akan berhenti.
4). Tahap 4, 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.
5). Tahap 5, 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.
6). Tahap 6, 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 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.