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 :
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;
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 :
3. Jalankan program struknya, maka akan tampil seperti gambar dibawah ini :
Demikian cara atau langkah-langkah merancang program struk pembayaran sederhana menggunakan Bahasa Pemograman Delphi. Moga manfaat, begitulah.
langsung di coba deh gan cara membuat struk sederhananya, kebetulan belum terinstal dengan delphi, tak langsung ke tkp untuk download dulu deh
ReplyDelete