Berikut ini adalah aplikasi pembelian barang sederhana. Cara kerjanya yaitu apabila tombol button Hitung ditekan, maka harga satuan barang akan dikalikan dengan jumlah barang dan hasil perkalian tersebut akan ditampilkan di bagian total bayar. Namun, sebelum kita memulai membuat aplikasi pada Delphi, kita harus menginstala program Delphinya terlebih dahulu. Kita bisa menggunakan Delphi 5, 6, 7, atau yang terbaru. Sebenarnya Delphi versi berapapun tidak masalah, karena produk Borland ini selalu menjaga kompatibilitas antar versinya. Baiklah berikut langkah - langkah dalam membuat aplikasi pembelian barang.
2. Lalu pilih menu File | New | Application
Cara Kerja
1. Jalankan program delphi nya2. Lalu pilih menu File | New | Application
3. Maka akan tampil sebuah form baru dan sebuah file dengan nama Unit1.pas
4. Klik dan drag komponen yang akan digunakan kedalam form, seperti :
4. Klik dan drag komponen yang akan digunakan kedalam form, seperti :
- 5 komponen label yang digunakan untuk penamaan seperti Pembelian Barang (judul program), Nama barang, Harga Satuan, Jumlah Barang, dan Total Bayar untuk deskripsi barang.
- 4 komponen edit yaitu sebagai tempat entri data, seperti yang ditunjukan gambar dibawah
- 1 komponen button berguna sebagai tombol proses atau perhitungan data
Berikut screen shotnya :
_________________________________________________________________________________
Ket Gambar :
Pembelian Barang = Label1
Nama Barang = Label2
Harga Satuan = Label3
Jumlah Barang = Label4
Total Bayar = Label5
Hitung = Button1
Komponen Entri data :
Edit1 (posisi disebelah Nama Barang)
Edit2 (posisi disebelah Harga Satuan)
Edit3 (posisi disebelah Jumlah Barang)
Edit4 (posisi disebelah Total Bayar)
Untuk pewarnaan dan style lainnya pada form, silahkan sesuaikan dengan selera masing - masing.
_________________________________________________________________________________
5. Klik komponen Label1 dan pada jendela propertiesnya rubah Captionya menjadi Pembelian Barang, lakukan langkah yang sama pada label berikutnya dan rubah Captionya sesuai dengan gambar diatas.
6. Klik komponen Edit1 dan pada jendela propertisnya pada bagian Text dikosongkan, lakukan hal sama terhadap komponen Edit lainya.
7. Klik komponen Button dan pada jendela propertiesnya rubah Captionya menjadi Hitung, lalu tarik scroll kebawah sehingga terlihat bagian Namenya rubah menjadi BtnHitung.
8. Double klik pada button Hitung, maka akan muncul jendela Unit1.pas dan entrikan script yang berwarna biru dibawah :
_________________________________________________________________________________
procedure TForm1.BtnHitungClick(Sender: TObject);
var
nb : string;
HS, JB, TB :integer;
begin
nb:= edit1.Text;
HS:= strtoint (edit2.Text);
JB:= strtoint (edit3.Text);
TB:= HS * JB;
edit4.Text:= inttostr(TB);
end;
end.
_________________________________________________________________________________
Ket Program :
- nb = Nama Barang (boleh dirubah sesuai keinginan)
- HS = Harga Satuan (boleh dirubah sesuai keinginan)
- JB = Jumlah Barang (boleh dirubah sesuai keinginan)
- TB = Total Bayar (boleh dirubah sesuai keinginan)
- nb:= edit1.Text; = menyatakan bahwa nilai nb akan ditampilkan pada komponen Edit1.
- HS:= strtoint (edit2.Text); = menyatakan bahwa setiap nilai HS yang dientrikan pada edit box memiliki tipe data string(defaultnya), jadi agar data yang dientrikan pada edit box tersebut dapat digunakan dalam proses perhitungan maka data tersebut perlu dikonversikan terlebih dahulu dari string ke integer.
- JB:= strtoint (edit3.Text); = menyatakan bahwa setiap nilai JB yang dientrikan pada edit box memiliki tipe data string(defaultnya), jadi agar data yang dientrikan pada edit box tersebut dapat digunakan dalam proses perhitungan maka data tersebut perlu dikonversikan terlebih dahulu dari string ke integer.
- TB:= HS * JB; = Proses perhitungan data
- edit4.Text:= inttostr(TB); = menyatakan bahwa pada komponen Edit4 akan ditampilkan nilai TB yang datanya akan dikonversikan terlebih dahulu dari integer ke string. karena setiap data/nilai yang akan ditampilkan pada edit box haruslah bertipe data string.
9. Jika semua langkah diatas sudah dilakukan dengan benar, silahkan klik menu Run | Run atau tekan F9
10. Jika tidak ada pesan kesalahan, maka program siap untuk di uji coba
Selamat bereksperimen............GOOD LUCK!!!!!
Bagikan
Aplikasi Pembelian Barang dengan Borland Delphi 7
4/
5
Oleh
Jiu Bunta
