Latihan Multi CheckBox - Delphi 7.0

Berikut ini Tampilan Form dari Penggunaan Multi CheckBox:

Ketetuan Harga Minuman :
- Kelapa Muda = 5000
- Teh Manis = 3000
- Kopi Kental = 3500

Harga Minuman = Total dari semua minuman yang dipilih

jawabanya:
*  Kita tentukan dulu variabelnya, variabel yang kita butuhkan adalah : kelapa, teh, kopi dan harga.
* Kita gunakan variabel global agar bisa digunakan oleh semua objek. Letak variabel global ada antara public dan implementation

listing code:

public
{ Public declarations }
procedure hitung;
end;

var
frmMinum: TfrmMinum;
//ini variabel yang dibuat
kopi,teh,kelapa,harga : real;

implementation



* Selanjutnya kita buat procedure hitung, lihat contoh kode diatas
* Isi procedure hitung untuk menjumlahkan masing-masing harga

listing code

procedure TfrmMinum.hitung;
begin
harga := kopi + teh + kelapa;
eharga.Text := floattostr(harga);
end;


* Procedure Jika Minuman Kelapa Muda di Klik

listing code

procedure TfrmMinum.chKelapaClick(Sender: TObject);
begin
if chKelapa.Checked = true then
kelapa := 5000
else
kelapa := 0;
hitung;
end;


* Procedure Jika Minuman Teh Manis di Klik

listing code

procedure TfrmMinum.chTehClick(Sender: TObject);
begin
if chTeh.Checked = true then
teh := 3000
else
teh := 0;
hitung;
end;


* Procedure Jika Minuman Kopi Kental di Klik

listing code

procedure TfrmMinum.chKopiClick(Sender: TObject);
begin
if chKopi.Checked = true then
kopi := 3500
else
kopi := 0;
hitung;
end;


Download contoh program Latihan Multi CheckBox - Delphi 7.0.zip
Download tutorial Latihan Multi CheckBox - Delphi 7.0.pdf