Membuat menu pesanan ( warung makan) menggunakan Delphi

Pertama-tama kita masuk ke program Delphi.

Setelah masuk buat group box sebesar-besarnya.lalu kita buat label 1-label 11.

 Label 1 kita ganti captionnya menjadi masukan pilihan.
 Label 2 kita ganti captionnya menjadi pilihan makanan
 Label 3 kita ganti captionya menjadi pilihan minuman
 Label 4 kita ganti captionnya menjadi warung ayam raden mas irvan
 Label 5 kita ganti captionnya menjadi pecel ayam
 Label 6 kita ganti captionnya menjadi ayam bakar
 Label 7 kita ganti captionnya menjadi ayam goreng
 Label 8 kita ganti captionnya menjadi es teh
 Label 9 kita ganti captionnya menjadi es jeruk
 Label 10 kita ganti captionnya menjadi es tawar
 Label 11 kita ganti captionnya menjadi ini adalah pesanan anda!!!

Kini kita buat edit 1,edit 2,edit 3 dan button.

 Edit 1 textnya kita kosongkan lalu namanya kita rubah menjadi input_mkn
 Edit 2 textnya kita kosongkan lalu namanya kita rubah menjadi input_mnm
 Edit 1 textnya kita kosongkan lalu namanya kita rubah menjadi pesanan
 Button kita ganti captionya menjadi pesanan anda adalah,lalu namanya kita rubah menjadi btn_case

Ini adalah hasilnya :

Setelah itu semua selesai kita langsung membuat listing program didalam button(pesanan anda adalah).caranya klik dua kali pada tombol button yang tadi kita buat dan ganti namanya.

Ini adalah listingnya :

procedure TForm1.btn_caseClick(Sender: TObject);
var A:Integer;
B:Integer;
begin
A:=StrToInt(input_mkn.Text);
B:=StrToInt(input_mnm.Text);
begin
case A of
1:pesanan.Text:='ayam bakar stamina sule dan ';
2:pesanan.Text:='ayam bakar capcay sule dan ';
3:pesanan.Text:='ayam bakar saos sule dan ';
end;
case B of
4:pesanan.Text:=pesanan.Text+' es campur sule';
5:pesanan.Text:=pesanan.Text+' es jeruk sule';
6:pesanan.Text:=pesanan.Text+' es the sule';
end;
end;
end;

end.

Ini adalah hasilnya :

Arti dari listingnya adalah:

 Begin mengawali sedangkan end mengakhiri.sedangkan diakhir program end diikuti tanda titik.
 kita mengklik pada tombol btn_case
 lalu kta buat atau kita input VAR A dan VAR B adalah mempunyai tipe data integer.
 Dan untuk A:=StrToInt(input_mkn.Text); mempunyai arti mengubah sebuah data tipe string dikomponen input_mkn menjadi data bertipe integer yang disimpan di Variabel A .
 Dan untuk B:=StrToInt(input_mnm.Text); mempunyai arti mengubah sebuah data tipe string dikomponen input_mnm menjadi data bertipe integer yang disimpan di Variabel B.
 Pada listing selanjutnya case A of artinya digunakan jika anda menggunakan suatu pemilihan pada suatu object. Dengan fungsi case, anda tidak perlu lagi membuat if terlalu banyak Listing berikutnya.
1:pesanan.Text:='ayam bakar stamina sule dan ';
2:pesanan.Text:='ayam bakar capcay sule dan ';
3:pesanan.Text:='ayam bakar saos sule dan ';
Mempunyai arti dalam pesanan.text maka akan keluar output ayam bakar stamina sule dan, ayam bakar capcay sule dan, ayam bakar saos sule dan

 Begitu juga pada case B of artinya digunakan jika anda menggunakan suatu pemilihan pada suatu object.

Dengan fungsi case, anda tidak perlu lagi membuat if terlalu banyak Listing berikutnya.

 Listing berikutnya.
4:pesanan.Text:=pesanan.Text+' es campur sule';
5:pesanan.Text:=pesanan.Text+' es jeruk sule';
6:pesanan.Text:=pesanan.Text+' es the sule';

Pada kali ini jika pesanan.text maka hasilnya pesanan text pada case A of diatas ditambah dengan es campur sule,es jeruk sule,es the sule.

Setelah semua dibuat, ini adalah hasilnya :