Membuat Program Struk Pembayaran

Yang pertama kita buat adalah mendesain tampilan program seperti berikut

Struk pembayaran dibuat menggunakan GrupBox

Nama Barang , Jumlah , Harga Barang , Total bayar dibuat menggunakan Label

Hitung dan Keluar dibuat menggunakan Button

Membuat codingan pada button hitung ,jadi saat kita mengklik butoon hitung total bayar akan otomatis dihitung

        Klik pada Button Hitung

procedure TForm1.Button1Click(Sender:TObject)

var

NAMA :STRING[20];

JUMLAH,HARGA,BAYAR:REAL;

begin

JUMLAH:=STRTOFLOAT(EDIT2.TEXT);

HARGA:=STRTOFLOAT(EDIT3.TEXT);

BAYAR:=STRTOFLOAT(EDIT4.TEXT);

EDIT4.TEXT:=FLOATTOSTR(BAYAR);

end;

         Klik pada Button Keluar

procedure TForm1.Button2Click(Sender:TObject);

begin

APPLICATION.TERMINATE

end;

End.

Seperti pada gambar dibawah ini

Setelah itu klik Run maka muncul seperti gambar dibawah ini

Isilah nama barang,jumlah,dan harga barang ,contoh seperti gambar dibawah ini

Klik pada button hitung ,maka total harga akan otomatis terhitung

Itulah cara membuat button hitung / membuat program struk pembayaran :)

Klik Button Keluar untuk menutup program

Sekian Artikel Kali Ini

Semoga Bermanfaat

Trimakasih :)