TUGAS UTS

procedure TForm9.FormCreate(Sender: TObject);
begin
list.Enabled:=false;
Eteh.Text:='0';
Eair.Text:='0';
Ejmlhpkt1.Text :='0';
Ejmlhpkt2.Text :='0';
Ejmlhpkt3.Text :='0';
Ejmlhpkt4.Text :='0';
Edit1.Text:='0';
Ehrgmenu.Text:='0';
Ehrgmin.Text:='0';
Eteh.Text :='0';
Eair.Text :='0';
Ettlbyr.Text:= '0';
Ehrgfas.Text:= '0';
Edit2.Text:='0';
Edit3.Text:='0';
Ebyr.Text:='0';
Edit1.Enabled:= false;
Ehrgmenu.Enabled:= false;
Ehrgmin.Enabled:= false;
Ettlbyr.Enabled:= false;
Ehrgfas.Enabled:= false;
Ekembali.Enabled:=false;
Eteh.Enabled:=false;
Eair.Enabled:=false;
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
Edit4.Text:='0';
Ekembali.Text:='0';
end;

procedure TForm9.RadioButton1Click(Sender: TObject);
begin
 Ehrgfas.Text := '0' ;
end;

procedure TForm9.RadioButton2Click(Sender: TObject);
begin
Ehrgfas.Text := '10000' ;
end;

procedure TForm9.pkt1Click(Sender: TObject);
begin
Ejmlhpkt1.Enabled:=True;
list.Items.Add('PAKET = 1');
list.Items.Add('---NASI');
list.Items.Add('---RENDANG');
list.Items.Add('---SAYUR SOP');
Label1.Caption := '15000';
Ejmlhpkt1.SetFocus

end;
procedure TForm9.pkt2Click(Sender: TObject);
begin
Ejmlhpkt2.Enabled:=True;
list.Items.Add('PAKET = 2');
list.Items.Add('---NASI');
list.Items.Add('---AYAM BAKAR');
list.Items.Add('---SAYUR SOP');
Label2.Caption := '12000';
Ejmlhpkt2.SetFocus
end;

procedure TForm9.pkt3Click(Sender: TObject);
begin
Ejmlhpkt3.Enabled:=True;
list.Items.Add('PAKET = 3');
list.Items.Add('---NASI');
list.Items.Add('---AYAM GORENG ');
list.Items.Add('---SAYUR SOP');
Label10.Caption := '10000';
Ejmlhpkt3.SetFocus
end;

procedure TForm9.pkt4Click(Sender: TObject);
begin
Ejmlhpkt4.Enabled:=True;
list.Items.Add('PAKET = 4');
list.Items.Add('---NASI');
list.Items.Add('---STEACK');
list.Items.Add('---SAYUR SOP');
Label11.Caption := '40000';
Ejmlhpkt4.SetFocus
end;

procedure TForm9.BprosesClick(Sender: TObject);
var
a,b,c,d,e,f,g,h,i,hsl1,hsl,ttl:real;
begin
Edit1.Text:=floattostr(strtofloat(Ejmlhpkt1.Text)+strtofloat(Ejmlhpkt2.Text)+ strtofloat(Ejmlhpkt3.Text)+strtofloat(Ejmlhpkt4.Text));
Ejmlhpkt2.SetFocus;
a:=strtofloat(Ejmlhpkt1.Text)*15000;
b:=strtofloat(Ejmlhpkt2.Text)*12000;
c:=strtofloat(Ejmlhpkt3.Text)*10000;
d:=strtofloat(Ejmlhpkt4.Text)*40000;
e:=strtofloat(Eteh.Text)*2500;
f:=strtofloat(Eair.Text)*2000;
hsl1:= e + f;
hsl:= a + b + c + d;
Ehrgmin.Text :=floattostr(hsl1);
Ehrgmenu.Text:=floattostr(hsl);

g:=strtofloat(Ehrgmenu.Text);
h:=strtofloat(Ehrgmin.Text);
i:=strtofloat(Ehrgfas.Text);
ttl:= g + h + i;
if ttl > 150000 then
Edit2.Text:= '20' ;
if ttl > 500000 then
Edit2.Text:= '50' ;
Ettlbyr.Text :=Floattostr(ttl);
Edit3.Text:=FloatToStr(StrToFloat(Ettlbyr.Text)*StrToFloat(Edit2.Text)/100);
Edit4.Text:=FloatToStr(Strtofloat(Ettlbyr.Text)-Strtofloat(Edit3.Text));
Ebyr.SetFocus
end;

procedure TForm9.CheckBox1Click(Sender: TObject);
begin
Eteh.Enabled:= True;
Eteh.setfocus
end;

procedure TForm9.CheckBox2Click(Sender: TObject);
begin
Eair.Enabled:= True ;
Eair.SetFocus
end;

procedure TForm9.BclearClick(Sender: TObject);
begin

list.Enabled:= False;
Ejmlhpkt1.Text :='0';
Ejmlhpkt2.Text :='0';
Ejmlhpkt3.Text :='0';
Ejmlhpkt4.Text :='0';
Eteh.Text :='0';
Eair.Text :='0';
Edit1.Text:= '0';
Ehrgmenu.Text:= '0';
Ehrgmin.text:= '0';
Ehrgfas.Text:= '0';
Ettlbyr.Text:= '0';
Ehrgfas.Text:= '0';
Ekembali.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Ebyr.Text:='0';
pkt1.Checked:=False;
pkt2.Checked:=False;
pkt3.Checked:=False;
pkt4.Checked:=False;
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
label1.Caption:='';
label10.Caption:='';
label11.Caption:='';
label2.Caption:='';
list.clear;
pkt1.SetFocus
end;

procedure TForm9.BkeluarClick(Sender: TObject);
begin
If(application.MessageBox('YAKIN ANDA INGIN KELUAR...?','INFORMASI',MB_YESNO)=IDYES) then
close
end;

procedure TForm9.EbyrKeyPress(Sender: TObject; var Key: Char);
begin
  if key =#27 then
  else
  begin

  end;
  Ekembali.Text:= FloatToStr(StrToFloat(Ebyr.Text)-StrToFloat(Edit4.Text));
  if Key =#13 then
  Bclear.SetFocus
   end;
end.