Program Pembelian Buah Menggunakan Delphi 7.0

NO	TOOLBOX	PROPERTIES
1.	Label1	Caption  : Berat (Kg) Name     : Label1
2.	Label2	Caption  : Kosongkan Name     : Label1
3.	Edit1	Name     : Edit1 Text        : 0
4.	Command1	Caption  : Hitung Name     : Command1
5.	Command2	Caption  : Keluar Name     : Command2
6.	ComboBox	Items      : Jeruk                   Mangga                   Durian                   Pepaya                   Anggur                   Apel Name     : ComboBox1

 

Listing Program :

procedure TForm1.Button1Click(Sender: TObject);

var

  berat, harga, pembayaran : integer;

  jenis : integer;

begin

   // ubah string ke integer

   berat := StrtoInt (edit1.Text);

   // ambil jenis buah yang diambil

   jenis := comboBox1.ItemIndex;

   case jenis of

                0 : harga := 5000;

                 1 : harga := 15000;

                2 : harga := 20000;

                3 : harga := 25000;

                4 : harga := 30000;

                5 : harga := 35000;

end;

 Pembayaran:= berat * harga;

// tampil di label2

  label2.Caption := IntToStr(Pembayaran);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;