Program Menu Makanan Menggunakn Delphi

Harga :
 Nasgor = 10.000
 Mie Ayam = 8000
 Bubur Ayam = 6000

Item - item yang di pakai
    Label1 = Program Menu Makanan
    RadioGroup1= Pilih Menu

    Klik item lalu masukan = Nasgor
                                        Mie Ayam
                                        Bubur Ayam
    Label2 = Jumlah
    Label3 = Harga Porsi
    Edit1 =
    Edit2 =
    CheckBox1 = Potongan 15% Total
    Label4 = Total Bayar

Lalu klik RadioGroup 2kali
isikan ini

 Total,Potongan,H,J:real;
di bawah

var
  Form1: TForm1;
masukan ini di bawah begin

J:=strtofloat(edit1.Text);
if RadioGroup1.ItemIndex=0 then H:=10000;
if RadioGroup1.ItemIndex=1 then H:=8000;
if RadioGroup1.ItemIndex=2 then H:=6000;
edit2.Text:=floattostr(H);
Total:=J*H;
if checkbox1.Checked=true then potongan:=15/100*total else
if checkbox1.Checked=false then potongan:=0;
label4.Caption:='Total Bayar ='+floattostr(Total-Potongan);

Jika sudah di isi klik F9 di keyboard  maka hasilnya akan seperti ini

          

                      ~ Selamat Mencoba ~