src='https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js'/> Contoh Program Penjualan Barang Delphi Sederhana - teachertekno.com

Contoh Program Penjualan Barang Delphi Sederhana

Contoh Program Penjualan Barang Delphi Sederhana - Tidak jauh berbeda dengan Visual Basic, Delphi juga memiliki tampilan yang mirib dengan VB. Jadi bagi kamu yang sudah pernah menggunakan VB pasti akan jauh lebih mudah membuat program dengan Delphi.

Pada tutorial hari ini, kita akan belajar menciptakan pelaksanaan Delphi mengenai penjualan barang sederhana tanpa database. Tanpa database aja dulu karena nanti jika pakai database nir akan sulit lagi, soalnya sudah punya basic tentang Delphi.

Aplikasi sederhana ini tentang sentra penjualan barang grosir. Misalnya sebuah toko barang menjual berbagai jenis produk yang melayani pembelian grosir.

Contoh Program Penjualan Barang Delphi Sederhana

Untuk detail, berikut ini tutorial cara menciptakan acara penjualan barang Delphi sederhana.

1. Buka aplikasi Delphi, terserah versi berapa yg engkau punya. Banyak tutorial yg pakai Delphi 7 tetapi saya sendiri menggunakan Delphi 10.3.Dua.

2. Buat project Delphi baru dengan cara klik File > New > Windows VCL Application Delphi

3. Pada sajian Palette, pilih Standard & tambahkan tiga komponen utama pada pelaksanaan penjulana ini, yakni ComboBox, Edit, dan Button dengan rincian menjadi berikut.

1 TComboBox

TComboBox1 = Nama barang

Bagi kamu yang masih gundah cara menciptakan combobox pada Delphi, mampu lihat tutorial sebelumnya tentangCara Mengisi Item ComboBox Delphi.

6 TEdit

TEdit1 = Harga barang

TEdit2 = Jumlah barang

TEdit3 = Total harga

TEdit4 = Diskon

TEdit5 = Total Bayar

TEdit6 = Bonus

dua TButton

TButton1 = Tombol beli

TButton2 = Tombol kosongkan

4. Deklarasikan Variabel yg akan dipakai pada pelaksanaan ini.

Cari kode Var dan nama Form-nya. Kebetulan saya memakai Form2 jadinya secara otomatis yang dideklarasikan juga Form2.

Kemudian tambahkan deklarasi Variabel baru buat tipe data string dan real.

Var

Form2: TForm2;

Var a, b, c, d, e, f, aa, bb, cc, dd, ee, ff:string;

Var a1, a2, a3, a4, a5, a6, aa1, aa2, diskon, ttlharga, ttlbayar:real;

5. Klik 2 kali pada ComboBox1 dan tambahkan kode berikut adalah.

// Jenis-jenis item yang dijual

a:= 'KULKAS';

b:= 'TV LED';

c:= 'DISPENSER';

d:= 'MICROWAVE';

e:= 'OVEN';

f:= 'TUPPERWARE';

// Harga setiap item

a1:=750000;

a2:=450000;

a3:=150000;

a4:=100000;

a5:=45000;

a6:=25000;

// Konversi tipe data real ke string agar bisa ditampilkan di edit1.Text.

Aa := FloatToStr(a1);

bb := FloatToStr(a2);

cc := FloatToStr(a3);

dd := FloatToStr(a4);

ee := FloatToStr(a5);

ff := FloatToStr(a6);

if ComboBox1.Text=a then

edit1.Text:=aa;

if ComboBox1.Text =b then

edit1.Text := bb;

if ComboBox1.Text =c then

edit1.Text := cc;

if ComboBox1.Text =d then

edit1.Text := dd;

if ComboBox1.Text =e then

edit1.Text := ee;

if ComboBox1.Text =f then

edit1.Text := ff;

Script terakhir pada ComboBox1 menggunakan fungsi if yang berfungsi untuk menampilkan item dalam ComboBox1 dan otomatis menampilkan harga barang pada edit1.Text

6. Klik dua kali dalam Button1 dan copy paste kode program berikut adalah.

Aa1:=StrToFloat(edit1.Text);

aa2:=StrToFloat(edit2.Text);

// script total harga diperoleh berdasarkan harga barang x total barang

ttlharga := aa1*aa2;

edit3.Text :=FloattoStr(ttlharga);

// bonus 0 sampai 20% tergantung total harga

if (ttlharga >= 500000)then

bonus := 20/100 * ttlharga;

edit4.Text := FloattoStr(diskon );

if (ttlharga >= 200000) and (ttlharga < 500000) then

bonus := 15/100 * ttlharga;

edit4.Text := FloattoStr(diskon );

if (ttlharga >= 100000) and (ttlharga < 200000) then

bonus := 10/100 * ttlharga;

edit4.Text := FloattoStr(diskon );

if (ttlharga >= 50000) and (ttlharga < 100000) then

bonus := 5/100 * ttlharga;

edit4.Text := FloattoStr(diskon );

if ttlharga < 50000 then

bonus := 0 * ttlharga;

edit4.Text := FloattoStr(diskon );

// total bayar diperoleh menurut total harga - diskon

ttlbayar := ttlharga - diskon ;

edit5.Text := FloattoStr(ttlbayar);

// insentif didapatkan dari jumlah total harga

if (ttlharga >= 500000)then

edit6.Text := 'TV 14 Inch';

if (ttlharga >= 200000) and (ttlharga < 500000) then

edit6.Text := 'HP Samsung A3';

if (ttlharga >= 100000) and (ttlharga < 200000) then

edit6.Text := 'Hp Nokia 205';

if (ttlharga >= 50000) and (ttlharga < 100000) then

edit6.Text := '1 Lusin Cangkir';

if ttlbayar < 50000 then

edit6.Text := 'Tidak Ada';

7. Klik 2 kali dalam Button2 & copy paste script Delphi ini dia.

ComboBox1.Text:='';

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

Kode dalam Button2 (kosongkan keranjang) berfungsi untuk menghapus seluruh tulisan dalam ComboBox1, edit1 hingga edit6 sebagai akibatnya menjadi bersih pulang.

Ketika acara dijalankan, maka tampilan output acara akan seperti berikut ini.

Contoh Program Penjualan Barang Delphi Sederhana
Contoh Program Penjualan Barang Delphi Sederhana

Jadi pengguna aplikasi akan menentukan item pada ComboBox1 dan secara otomatis harga barang akan timbul di Edit1.Text. Setelah itu, acara akan meminta user memasukkan jumlah barang (kuantitas) yang ingin dibeli.

Setelah tombol beli diklik, maka akan tampil total harga, diskon , total bayar & bonus. Silahkan lihat kode komentar pada script buat memahami penjelasan kode acara di atas.

Ini hanya contoh program penjualan barang sederhana tanpa database Delphi. Kalau mau gunakan database pula tidak terlalu sulit & lebih mudah memakai Microsoft Access menjadi database Delphi.

Apabila ditinjau berdasarkan studi masalah, pelaksanaan pada atas mampu diterapkan saat transaksi penjualan pada toko grosir yg melayani pembelian pada jumlah yang poly. Tentu saja sinkron menggunakan tambahan yg diharapkan dan menggunakan database agar lebih gampang dikelola, terutama waktu menginput data barang baru.

Lihat jugaCara Konversi Tipe Data Delphi

Demikianlah contoh program penjualan barang sederhana Delphi. Semoga bermanfaat!

0 Response to "Contoh Program Penjualan Barang Delphi Sederhana"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel