Wednesday, 25 January 2017T1/25/2017 09:31:00 pm

CARA MEMBUAT PROGRAM KASIR SEDERHANA DI DELPHI

Salam blogger….pada postingan kali ini saya akan share program kasir sederhana yang dibuat di Delphi. Program ini saya buat dengan menggunakan Delphi 2010. Pogram ini digunakan untuk proses pembayaran sederhana, guna nya untuk mengetahui jumlah harga suatu barang yang di beli oleh konsumen. Di program kasir ini, kita hanya perlu menginput harga barang dengn jumlah barang. Selanjutnya jumlah harga barang yang diinput otomatis jadi untuk proses hasilnya sudah terprogram di aplikasinya. Ini berguna untuk meminimalkan tingkat kesalahan dalam proses perhitungan.

Untuk mempersingkat waktu langsung saja saya akan jelaskan langkah langkah cara pembuatannya, pertama tama buat project baru di Delphi sobat, selanjutnya sobat tinggal design tampilan form nya seperti di bawah ini.
Adapun komponen yang digunakan dalam form tersebut adalah sebagai berikut :
 - 6 buah label
 - 3 buah edit text
 - 2 buah groupbox
 - 3 buah button
Jika sudah didesign form nya seperti pada gambar diatas, selanjutnya kita tinggal menambahkan coding program pada komponen komponen tersebut, source code program lengkap nya sebagai berikut :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtharga: TEdit;
    edtjumlah: TEdit;
    edtpembayaran: TEdit;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox2: TGroupBox;
    btnnew: TButton;
    btnhitung: TButton;
    btnkeluar: TButton;
    Label9: TLabel;
    procedure btnnewClick(Sender: TObject);
    procedure btnhitungClick(Sender: TObject);
    procedure btnkeluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.btnnewClick(Sender: TObject);
begin
edtharga.Text := '';
edtjumlah.Text := '';
edtpembayaran.text := '';
edtharga.setfocus;
end;

procedure TForm1.btnhitungClick(Sender: TObject);
var
harga,pembayaran,kembali,total: real;
jumlah: integer;
begin
if((edtharga.Text ='') or (edtjumlah.Text ='') or (edtpembayaran.Text =''))
then
begin
messageDlg('Ada data yang belum terisi, cek kembali...',mtError,[mbOk],0);
edtHarga.SetFocus ;
exit;
end;

  harga:= StrToFloat(edtharga.Text );
  jumlah:= StrToInt(edtjumlah.Text);
  pembayaran:= StrToFloat(edtpembayaran.Text);

  total:=harga*jumlah;
  kembali:=pembayaran-total;
  Label7.Caption := FormatFloat('Rp #,###,#0.00',total);
  Label8.Caption := FormatFloat('RP #,###,#0.00',kembali);
end;

procedure TForm1.btnkeluarClick(Sender: TObject);
begin
Application.Terminate ;
end;
end.

Jika sudah dimasukan coding program lengkapnya, maka selanjutnya sobat tinggal jalankan program nya dengan cara tekan F9/RUN. lalu sobat inputkan Harga barang, jumlah barang , dan jumlah pembayaran, jika sudah diisi selanjutnya tinggal tekan button hitung. Contoh gambar programnya ada pada gambar dibawah ini.
 Demikian postingan saya kali ini tentang cara membuat program kasir sederhana di Delphi. Semoga dapat bermanfaat bagi sobat semua dan selamat mencoba.
Previous
Next Post »
2 Komentar untuk "CARA MEMBUAT PROGRAM KASIR SEDERHANA DI DELPHI"

Siang Om...
Kalo bisa Scriptnya di titip Jg yah, sekalian videonya
Itung -itung mencerdaskan anak bangsa.
Makasih

siap...twrima kasih untuk masukannya....

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status