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;  

procedure kondisiAwal;
begin
  with form1 do
    begin
      Edit1.Clear;
      Edit2.Clear;
      Edit3.Clear;
      CheckBox1.Checked:=false;
    end;
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;  

procedure TForm1.FormShow(Sender: TObject);
begin
  kondisiAwal;
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;  

procedure TForm1.Button1Click(Sender: TObject);
var harga_minum , harga_makan , harga_dessert , total : real; //variable tambahan
begin
  if RadioGroup1.ItemIndex = 0 then
    begin
      harga_minum := 2000;
    end
  else
    if RadioGroup1.ItemIndex = 1 then   //pilihan menu minuman
      begin
        harga_minum := 3000;
      end
    else
      begin
        harga_minum := 1000;
      end;

  if ComboBox1.Text = 'Nasi Ayam' then
    begin
      harga_makan := 5000;
    end
  else
    if ComboBox1.Text = 'Nasi Rawon' then  //pilihan menu makanan
      begin
        harga_makan := 6000;
      end
    else
      begin
        harga_makan := 3000;
      end;

  if ComboBox2.Text = 'Semangka' then
    begin
      harga_dessert := 1500;
    end
  else
    if ComboBox2.Text = 'Pisang' then  //pilihan menu dessert
      begin
        harga_dessert := 1000;
      end
  else
    begin
      harga_dessert := 3000;
    end;

  total := harga_minum + harga_makan + harga_dessert;
  if CheckBox1.Checked = true then
    begin
      total := total + 500;      //jika di antar , ada biaya tambahan
    end;
    Edit1.Text := FloatToStr(total);  //menghitung total pemesanan
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;  

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var total , bayar , kembalian : real; //variable tambahan
begin
  if key = #13 then //bila tombol enter di tekan
    begin
      total := StrToFloat(Edit1.Text);
      bayar := StrToFloat(Edit2.Text);
      kembalian := bayar - total; //menghitung kembalian
      if bayar < total then   //bila uang kurang
        ShowMessage('Maaf , uang yang anda bayarkan kurang');
      Edit3.Text := FloatToStr(kembalian);  //jumlah kembalian
    end
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;  

procedure TForm1.Button2Click(Sender: TObject);
begin
  kondisiAwal;
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.