LA2 AP2A (Delphi) Tanggal 26-3-2011

Listing

procedure TForm1.prosesClick(Sender: TObject);
var
B, C : Integer;
begin
B:= strtoint(edit1.text);
C:= strtoint(edit2.Text);
begin
case B of
1: edit3.Text := 'Pecel Ayam dan ';
2: edit3.Text := 'Ayam Bakar dan ';
3: edit3.Text := 'Ayam Krispy dan ';
end;
case C of
4: edit3.Text := edit3.Text + 'Es Teh Manis';
5: edit3.Text := edit3.Text + 'Es Jeruk';
6: edit3.Text := edit3.Text + 'Es Capucino';
end;
end;
end;

procedure TForm1.clearClick(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

end.

Output