kali ini aku pengen memberikan sedikit tutorial tentang cara membuat program penjualan (yach pokoke bisa itung barang gitu dech....hehehe) walo masih sederhana bangett tapi jangan dilihat dari sederhananya tapi cara untuk membuatnya, dan mungkin temen-temen nantinya bisa mengembangkan sendiri program milik kamu sendiri, sebenarnya untuk membuat program seperti gambar diatas tidaklah sulit tapi tergantung kita memahami kegunaan dan fungsi dari tiap komponen. . .oke kagak usah banyak cing cong (palingan kagak dibaca hehehe) langsung aja ke tutorialnya...
eh sebentar tak jelasin dikit lagi ya, program ini untuk menghitung tidak menggunakan tombol lho..kita kali ini akan belajar menggunakan event onChange dari properti Edit...
1. Perlu diketahui untuk membuat program seperti gambar diatas, komponen2 yang diperlukan adalah LABEL, EDIT, RADIOGROUP (RadioButton juga gpp kok), MAIN MENU, semua dari palette standard kecuali IMAGE (dari palette Additional)...kemudian atur komponen-komponen tersebut menjadi seperti gambar di atas (kalo mau design sendiri juga gpp kok, kn cma design hihihi)
2. kemudian berikan listing (istilah untuk script perintah2) ke radiogroup seperti ini. (ini adalah listing supaya ketika kita memilih jenis barang akan langsug tampil harganya di komponen harga dan kursor langsug menuju ke jumlah)
case radiogroup1.ItemIndex of
0 :
begin
edharga.Text:='2500';
edjumlah.SetFocus;
end;
1 :
begin
edharga.Text:='800';
edjumlah.SetFocus;
end;
2 :
begin
edharga.Text:='1500';
edjumlah.SetFocus;
end;
end;
0 :
begin
edharga.Text:='2500';
edjumlah.SetFocus;
end;
1 :
begin
edharga.Text:='800';
edjumlah.SetFocus;
end;
2 :
begin
edharga.Text:='1500';
edjumlah.SetFocus;
end;
end;
nb: untuk nama komponen (seperti edharga, edjumlah, dll itu adalah nama komponen EDIT ) bisa kamu ganti sesuai keinginan kok...!?!? lalu untuk perintah xxx.setFocus itu hanya untuk mengarahkan kursor aja!
3. sekarang supaya ketika kita ketik jumlah maka akan langsug muncul harga totalnya, kita beri listing ini di komponen jumlah :
var
jml,hrga, hsl : real;
begin
jml:=strtofloat(edjumlah.Text);
hrga:=strtofloat(edharga.Text);
if edjumlah.Text<>' ' then
begin
hsl:=jml*hrga;
edtotal.Text:=floattostr(hsl);
edbayar.SetFocus;
end;
end;
nb : strtofloat adalah perintah untuk mengkonversikan type string ke real, klo gampangnya bilang tuch kita memasukan angka ke variabel yg dapat dibaca oleh komputer, dalam hal ini kita memasukan angka input pada komponen edjumlah ke variabel jml.
4. nah sekarang untuk menampilkan kembalian atau Total harga dikurangi Bayar, maka listingnya adalah :
procedure TForm1.EdbayarChange(Sender: TObject);
var
ttl,byr,hsl: real;
begin
ttl:=strtofloat(edtotal.Text);
byr:=strtofloat(edbayar.Text);
hsl:=byr-ttl;
edkembali.Text:=floattostr(hsl);
end;
5. nah sekarang program kita ini seharusnya sudah dapat dijalankan kalau langkahnya sudah benar.
6. untuk tambahan komponen MAINMENU,bisa lihat pada gambar dibawah ini :
7. listing dari menu EXIT, cukup tambahkan perintah CLOSE; mudahkan!!?
untuk saran dan tanya2 bisa lewat FB aja ato email...
semoga tutorial ini bisa bermanfaat,
by Kang Abee
