LAPORAN PRAKTEK BAHASA PEMROGRAMAN DELPHI: PERCOBAAN 6

PERCOBAAN 6

MEMBUAT PABRIK PEMBUATAN DODOL

(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. 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 Tedit 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 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, 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;

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;

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;

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;

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;

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

a. Hasil dan Video

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.

7. Daftar Pustaka

https://www.scribd.com/document/383368180/Diagram-Alir-Pembuatan-Dodol