Kode Delphi UTS Pemrograman 2 While Do dan Case Of Input Awal dan Akhir Teknorat
Posted by tips dan trik cara membongkar komputer dan internet
Kode Delphi UTS Pemrograman 2 While Do dan Case Of Input Awal dan Akhir Teknorat
procedure TForm1.SimpanClick(Sender: TObject);
var
pilihan, awal, akhir, x : Integer;
nama : String;
harga, total : Currency;
begin
LstHasil.Clear;
awal:=StrToInt(EdtAwal.Text);
akhir:=StrToInt(EdtAkhir.Text);
pilihan:=RdgPilihan.ItemIndex;
x:=awal -1;
while(x >= akhir -1)do
begin
case pilihan of
0:
begin
nama:='Cappucino';
harga:=9500;
end;
1:
begin
nama:='Moccacinno';
harga:=11000;
end;
else
begin
nama:='White Coffe';
harga:=6500;
end;
end;
total:=x * harga;
LstHasil.Items.Add(IntToStr(x)+nama+ 'x' + CurrToStr(harga) + '=' + CurrToStr(total));
x:=x-1;
end;
end;
procedure TForm1.ClearClick(Sender: TObject);
begin
EdtAwal.Text:='';
EdtAkhir.Text:='';
LstHasil.Items.Clear;
end;
procedure TForm1.CloseClick(Sender: TObject);
begin
Close;
end;
end.
ADS HERE !!!