Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7

Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7

Selamat siang agan-agan.Postingan kali ini akan membahas mengenai Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7.Terdengar menarik !? Bagus kalau begitu.Aplikasi yang akan di buat , ialah yang di gunakan oleh kasir ketika ada pemesanan oleh pembeli.Aplikasi yang dibuat masih sederhana , namun yang perlu diperhatikan ialah logika atau alur dari aplikasi tersebut.Alurnya seperti ini : Kantin menyediakan beberapa jenis makanan dan minuman.Juga pelayanan di antar pemesanan.Ketika ada pembeli dengan memesan makanan serta minuman , kasir menginputkan pilihan tersebut pada

aplikasi.Ketika semua item telah di input , maka akan keluar jumlah / total yang harus di bayar oleh pemesan.Serta kembalian dari uang yang di bayarkan oleh pemesan.Sebaiknya anda bingung , karena saya akan menjelaskannya lewat praktek.Lalu tunggu apa lagi !? Buka borland Delphi 7 anda.Tambahkan komponen berikut kedalam form1

Komponen	Properties	Keterangan
Tlabel (7buah)	Caption : kantin anda , slogan , total bayar , bayar , kembalian , makanan , desert	Lihat gambar
Tbutton(2 buah)	Caption : hitung , baru
TRadioGroup	Caption : minuman ; Items : teh botol , jus jeruk , aqua gelas
TComboBox (2 buah)	Items Makanan : nasi ayam , nasi rawon , mie goreng ; items desert : semangka , pisang , ice cream
Tedit(3 buah)
TCheckBox	Caption : Diantar

Atur posisi komponen tersebut sesuai gambar di bawah ini :

 

Setelah itu !? Mari kita koding !!! Pertama , buat procedure kondisiAwal.Sebagai persiapan ketika aplikasi di jalankan.Ketikan kode berikut setelah {$R *.dfm}.Ketikan , bukan copas

1. procedure kondisiAwal;  
2. begin  
3.   with form1 do  
4.     begin  
5.       Edit1.Clear;  
6.       Edit2.Clear;  
7.       Edit3.Clear;  
8.       CheckBox1.Checked:=false;  
9.     end;  
10. end;  

Lalu pada form1 event onShow , panggil procedure tadi dengan cara sebagai berikut :

1. procedure TForm1.FormShow(Sender: TObject);  
2. begin  
3.   kondisiAwal;  
4. end;  

Selanjutnya , kita akan memberi kode untuk button hitung.Kondisi ketika kasir menekan tombol hitung.Double-klik button hitung dan ketikan kode berikut :

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var harga_minum , harga_makan , harga_dessert , total : real; //variable tambahan  
3. begin  
4.   if RadioGroup1.ItemIndex = 0 then  
5.     begin  
6.       harga_minum := 2000;  
7.     end  
8.   else  
9.     if RadioGroup1.ItemIndex = 1 then   //pilihan menu minuman  
10.       begin  
11.         harga_minum := 3000;  
12.       end  
13.     else  
14.       begin  
15.         harga_minum := 1000;  
16.       end;  
17.   
18.   if ComboBox1.Text = ‘Nasi Ayam’ then  
19.     begin  
20.       harga_makan := 5000;  
21.     end  
22.   else  
23.     if ComboBox1.Text = ‘Nasi Rawon’ then  //pilihan menu makanan  
24.       begin  
25.         harga_makan := 6000;  
26.       end  
27.     else  
28.       begin  
29.         harga_makan := 3000;  
30.       end;  
31.   
32.   if ComboBox2.Text = ‘Semangka’ then  
33.     begin  
34.       harga_dessert := 1500;  
35.     end  
36.   else  
37.     if ComboBox2.Text = ‘Pisang’ then  //pilihan menu dessert  
38.       begin  
39.         harga_dessert := 1000;  
40.       end  
41.   else  
42.     begin  
43.       harga_dessert := 3000;  
44.     end;  
45.   
46.   total := harga_minum + harga_makan + harga_dessert;  
47.   if CheckBox1.Checked = true then  
48.     begin  
49.       total := total + 500;      //jika di antar , ada biaya tambahan  
50.     end;  
51.     Edit1.Text := FloatToStr(total);  //menghitung total pemesanan  
52. end;  

Kode tersebut berfungsi untuk mengolah data pemesanan sehingga nantinya akan di tampilkan jumlah total dari besarnya uang yang harus di bayarkan oleh pembeli sesuai dengan item pemesanan.

Selanjutnya pada edit2 event onKeyPress ketikan kode berikut :

1. procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);  
2. var total , bayar , kembalian : real; //variable tambahan  
3. begin  
4.   if key = #13 then //bila tombol enter di tekan  
5.     begin  
6.       total := StrToFloat(Edit1.Text);  
7.       bayar := StrToFloat(Edit2.Text);  
8.       kembalian := bayar - total; //menghitung kembalian  
9.       if bayar < total then   //bila uang kurang  
10.         ShowMessage(‘Maaf , uang yang anda bayarkan kurang’);  
11.       Edit3.Text := FloatToStr(kembalian);  //jumlah kembalian  
12.     end  
13. end;  

Kode tersebut berfungsi untuk memproses perhitungan dari jumlah yang harus di bayar oleh pemesan dan uang kembalian untuk pemesan.Selanjutnya double-klik button baru dan panggil procedure kondisAwal sehingga kasir bisa menginputkan data baru. 

1. procedure TForm1.Button2Click(Sender: TObject);  
2. begin  
3.   kondisiAwal;  
4. end;  

Selesai , sekarang jalankan aplikasi tersebut lalu coba untuk melakukan input pada aplikasi.Ternyata tidak sulit bukan !? Bila ternyata anda belum mengerti , coba bandingkan dengan program yang saya buat.Silahkan untuk mendownloadnya DISINI.Okey , sekian untuk postingan kali ini semoga bermanfaat.

sumber :http://aulia.allalla.com/1/2010/11/cara-membuat-aplikasi-pemesanan-kantin-di-delphi-7/#more