Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Cara Membuat Struk Sederhana Di Delphi

· · 1 comments
Assalamu'alaikum, wr.wb

Contoh Program Pembayaran di Delphi - Selamat datang gaes, kali ini masih berhubungan dengan Borland Delphi, sebuah Bahasa Pemograman yang terlahir dari Pascal, bisa dikatakan Delphi merupakan Visual dari Bahasa Pascal. Pada contoh program pembayaran di Delphi ini belum memakai Database. 

Contoh struk pembayaran ini menggunakan 4 buah editbox, jumlah barang, harga barang, total dan diskon. Serta satu buah label untuk menampilkan total bayar. 3 buah button, untuk mengeksekusi pembayaran, mengosongkan editbox dan button untuk close dari program. Untuk memudahkan perhitungan kita akan menampung editbox jumlah barang dan harga barang dalam masing-masing variabel. 

Langkah-langkah membuat aplikasi Struk pembayaran sederhana di Delphi : 

1. Rancang form programnya seperti dibawah ini :   
membuat program penjualan sederhana di delphi

2. Masukan mantra dibawah ini pada button hitung : 

//Variabel untuk menampung editbox
var jml,harga,total:integer;
dis,totaldis,tb:currency;

begin
// menampilkan pesan jika jumlah barang kosong
if edit1.Text='' then
begin
messagedlg('Jumlah Barang kosong Gaes!!',mtinformation,[mbyes,mbno],0);
edit1.SetFocus;  // mengarahkan kursor tetap di editbox jumlah barang
end

//menampilkan pesan jika harga belum diinput atau kosong
else if edit2.Text=''then
begin
messagedlg('harga barang kosong',mtinformation,[mbyes,mbno],0);
edit2.SetFocus; // mengarahkan kursor tetap di editbox harga barang
end
else

begin
//menghitung total harga
jml:=strtoint(edit1.Text); // deklarasi variabel untuk menampung nilai jumlah barang
harga:=strtoint(edit2.Text); // deklarasi variabel untuk menampung nilai harga barang
total:=jml*harga;
edit3.Text:=inttostr(total);  // menampilkan total harga

//menghitung dikon jika total diatas 100.000,-
if total >=100000 then dis :=0.055 else dis:=0;
totaldis:= total * dis;
edit4.Text:=currtostr(totaldis);

//menghitung total bayar
tb:=total-totaldis;
label8.Caption:=currtostr(tb); // menampilkan total akhir pada label
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
end.

Pada button bersih masukan formula ini :
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.Text:=' ';

Pada button keluar : 
close;

3. Jalankan program struknya, maka akan tampil seperti gambar dibawah ini :
membuat struk sederhana menggunakan Delphi
Demikian cara atau langkah-langkah merancang program struk pembayaran sederhana menggunakan Bahasa Pemograman Delphi. Moga manfaat, begitulah. 


1 comments:

  1. langsung di coba deh gan cara membuat struk sederhananya, kebetulan belum terinstal dengan delphi, tak langsung ke tkp untuk download dulu deh

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan