DELPHI [ TUTORIAL IV ] CheckBox

1. Checkbox adalah opsi pilihan yang dapat dipilih semuanya atau 1 saja. ( isi codingan terdapat pada setiap checkbox, dengan isi codingan serupa )

Step 1 ( buat prosedure hitung  pada public declarations )

Step kedua (buat variabel sebelum implementation )

Step ketiga buat procedure hitung dibawah tulisan {$R *.dfm}

Step ke empat isi kodingan pada setiap checkbox

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

  if CheckBox1.Checked = true then

  minum :=3000

  else

  minum :=0;

  hitung;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

  if CheckBox2.Checked = true then

  makan :=8000

  else

  makan :=0;

  hitung;

end;

  

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

  if CheckBox3.Checked = true then

  snack :=1000

  else

  snack :=0;

  hitung;

end;

==================================

If checkbox1.checked = true

( ini dimaksudkan jika checkbox1 di centang ( true )

minum :=3000

( ini dimaksudkan jika “minum” adalah sebuah variabel yg kita buat tadi dan berisikan “3000” )

Else

Minum :=0;

(ini dimaksudkan jika checkbox tidak di centang maka variabel “minum” berisikan nilai “0” )

Hitung;

( ini dimaksudkan mulai dilakukan perhitungan setelah di centang ataupun tidak )

Create by : heeyriku