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.

1 Response to " Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7 "

  1. sungpah yang buat keren bngt
    makasih iaaaa

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!