Assalamualaikum saya sekarang akan membagi cara membuat kasir sederhana berikut kodeing nya dan screen shootnya
yang di buthkan
3 buah edit
1 combobox yang item nya(PCS dan LUSIN)4 Label
4 buah button
2 panel
dan berikut kodingnan nya
procedure Tkasir.FormCreate(Sender: TObject);
begin
cb.Items.Clear;
cb.Items.Add('LUSIN');
cb.Items.Add('PCS');
button2.Enabled:=false;
button3.Enabled:=false;
end;
procedure Tkasir.Button1Click(Sender: TObject);
var
harga,jumlah,satuan,total,total1:integer;
kode:integer;
begin
if (edit1.Text='') or (edit2.Text='') or
(edit3.Text='') or (cb.Text='') then
begin
messagedlg('silahkan lakukan transaksi dahulu',mterror,[mbok],0);
edit1.SetFocus;
exit;
end
else
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=harga*jumlah;
if cb.Text='LUSIN' THEN
total1:=total*12 ;
if cb.Text='PCS' then
total1:=total*1;label5.Caption:='Rp '+format('%.0n',[total1+0.0]);
end;
end;
procedure Tkasir.Button4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
cb.Text:='';
label5.Caption:='Rp 0';
edit1.SetFocus;
end;
end.
dan yang mao contoh program nya silah kan ambil
file download.
EmoticonEmoticon