UTS DELPHI 1

Ketentuan Soal

1. Pada saat di pilih chekbox  salah satu menu , maka harga per porsi akan tampil dan kursor akan pidah ke jumlah porsi,
2. Jumlah Porsi di input , pada  saat di enter maka subtotal akan tampil, total jumlah porsi akan tampil, subtotal harga juga tampil.
3. Subtotal didapat dari : jumlah porsi * harga perporsi.
4. Total Jumlah porsi : jumlah porsi per menu + total jumlah porsi.
5. Subtotal Harga : subtotal per menu + subtotal harga.
6. Tombol Hitung di Klik maka Diskon dan total bayar tampil.
7. Diskon : jika total jumlah porsi > 5 maka mendapat diskon 10 % , selain itu tidak dapat diskon.
8. Total Bayar : Subtotal Harga + harga Lauk – Diskon.
9. Tombol isi di Klik Maka form kosong .
10. Tombol keluar di klik maka akan tapil pesan sebagai berikut :  

Procedure  TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked =true then

    begin

                 eayam.Text :='5500';

                ejayam.SetFocus;

    end

else

    begin

                eayam.Text :='0';

                 ejayam.SetFocus;

    end

end;

Procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked =true then

     begin

ebabat.Text :='8000';

ejbabat.SetFocus ;

    end

else

    begin

ebabat.Text :='0';

ejbabat.SetFocus ;

    end

end;

Procedure  TForm1.CheckBox3Click(Sender: TObject);

begin

if checkbox3.Checked =true then

     begin

etongseng.Text :='7000';

ejtongseng.SetFocus;

     end

else

    begin

etongseng.Text :='0';

ejtongseng.SetFocus;

    end

end;

Procedure TForm1.CheckBox4Click(Sender: TObject);

begin

if checkbox4.Checked =true then

      begin

erames.Text :='3500';

ejrames.SetFocus;

      end

else

      begin

erames.Text :='0';

ejrames.SetFocus;

      end

end;

Procedure TForm1.claukClick(Sender: TObject);

begin

if clauk.Text ='Tempe' then

      elauk.Text :='1000'

else if clauk.Text ='Tahu' then

       elauk.Text :='1500'

else if clauk.Text ='Perkedel' then

       elauk.Text :='2000'

else if clauk.Text ='Kerupuk' then

      elauk.Text :='500'

else

      elauk.Text :='0';

end;

Procedure TForm1.FormCreate(Sender: TObject);

begin

clauk.Items.Add('Tempe');

clauk.Items.Add('Tahu');

clauk.Items.Add('Perkedel');

clauk.Items.Add('Kerupuk');

ejumlah.Text :='0';

ediskon.Text :='0';

etotal.Text :='0';

esubtotalharga.Text:='0';

esubayam.Text :='0';

esubbabat.Text :='0';

esubtongseng.Text :='0';

esubrames.Text :='0';

elauk.Text :='0';

ejayam.Text :='0';

ejbabat.Text :='0';

ejtongseng.Text :='0';

ejrames.Text :='0';

end;

Procedure  TForm1.ejayamKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

   begin

                esubayam.text:=floattostr(strtofloat(ejayam.Text)*strtofloat(eayam.Text ));

                ejumlah.Text :=floattostr(strtofloat(ejayam.Text)+strtofloat(ejumlah.Text ));

                 esubtotalharga.Text :=floattostr(strtofloat(esubayam.Text )+strtofloat(esubtotalharga.Text ));

   end

end;

procedure TForm1.ejbabatKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

   begin

                 esubbabat.text:=floattostr(strtofloat(ejbabat.Text)*strtofloat(ebabat.Text ));

                 ejumlah.Text :=floattostr(strtofloat(ejbabat.Text)+strtofloat(ejumlah.Text ));

                esubtotalharga.Text :=floattostr(strtofloat(esubbabat.Text )+strtofloat(esubtotalharga.Text ));

   end

end;

Procedure TForm1.ejtongsengKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

   begin

           esubtongseng.text:=floattostr(strtofloat(etongseng.Text) * strtofloat (ejtongseng.Text ));

                ejumlah.Text :=floattostr(strtofloat(ejtongseng.Text)+strtofloat(ejumlah.Text ));

                esubtotalharga.Text :=floattostr(strtofloat(esubtongseng.Text )+strtofloat(esubtotalharga.Text ));

   end

end;

Procedure TForm1.ejramesKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

   begin

   esubrames.text:=floattostr(strtofloat(ejrames.Text)*strtofloat(erames.Text ));

   ejumlah.Text :=floattostr(strtofloat(ejrames.Text)+strtofloat(ejumlah.Text ));

   esubtotalharga.Text :=floattostr(strtofloat(esubrames.Text )+strtofloat(esubtotalharga.Text ));

   end

end;

Procedure TForm1.bhitungClick(Sender: TObject);

begin

ejumlah.Text :=floattostr(strtofloat(ejayam.Text)+strtofloat(ejbabat.Text )+strtofloat(ejtongseng.Text )+strtofloat(ejrames.Text ));

esubtotalharga.Text :=floattostr(strtofloat(esubayam.Text )+strtofloat(esubbabat.Text )+strtofloat(esubtongseng.Text )+strtofloat(esubrames.Text));

if strtofloat(ejumlah.Text) >5 then

      ediskon.Text :=floattostr(strtofloat(esubtotalharga.Text)*0.1)

else

ediskon.Text :=floattostr(strtofloat(esubtotalharga.Text)*0);

etotal.Text :=floattostr((strtofloat(esubtotalharga.Text)-(strtofloat(ediskon.Text )))+ strtofloat(elauk.Text ));

end;

Procedure TForm1.Button2Click(Sender: TObject);

begin

if (application.MessageBox('Anda Yakin akan   keluar','Informasi',MB_YESNO)= IDYES)then

   close

end;

Procedure TForm1.Button1Click(Sender: TObject);

begin

ejumlah.Text :='0';

ediskon.Text :='0';

etotal.Text :='0';

esubtotalharga.Text:='0';

esubayam.Text :='0';

esubbabat.Text :='0';

esubtongseng.Text :='0';

esubrames.Text :='0';

elauk.Text :='0';

ejayam.Text :='0';

ejbabat.Text :='0';

ejtongseng.Text :='0';

ejrames.Text :='0';

end;

end.