Memilih Data dengan RadioButton Lazarus (Belajar Lazarus #7)

Tujuan mempelajari cara Memilih Data dengan RadioButton pada Lazarus Free Pascal adalah anda diharapkan memahami tentang penggunaan komponen RadioButton dan GroupBox. Dalam edisi belajar bersama kali ini juga akan membahas tentang Conditional Statements IF atau Pernyataan Terkondisi IF.

KOMPONEN RADIOBUTTON

Komponen RadioButton terletak di palet Standard, RadioButton akan memberikan pilihan yang bersifat mutually exclusive, artinya hanya sebuah RadioButton yang dapat dipilih pada satu saat. Jika anda memilih sebuah RadioButton, maka RadioButton yang telah dipilih sebelumnya menjadi tidak dipilih. RadioButton dapat dikelompokkan dengan menggunakan GorupBox.

KOMPONEN GROUPBOX
Komponen GroupBox berlaku sebagai container, sehingga jika anda memindahkan GroupBox, otomatis semua komponen yang berada didalam GroupBox juga ikut berpindah.

CONDITIONAL STATEMENT IF
IF adalah sebuah perintah untuk menyatakan sebuah kondisi. Perintah ini akan menghasilkan nilai TRUE bila konfisi yang dimasukkan ternyata benar, dan sebaliknya akan menghasilkan FALSE jika kondisi yang dimasukkan ternyata salah.
Syntax penulisan IF adalah:
IF (kondisi) THEN (perintah)

Perintah akan dijalankan jika kondisi bernilai benar atau TRUE. Sedangkan jika kondisi salah, maka perintah tidak dijalankan dan Lazarus akan menjalankan baris program berikutnya (jika ada). Jika perintah yang diketikkan di dalam kondisi IF lebih dari 1 baris, maka anda wajib menuliskan perintah begin pada awal perintah dan end; pada akhir perintah.

PRAKTEK MEMBUAT APLIKASI PROGRAM
Untuk mempraktekkan teori-teori di atas mari kita buat program KASIRATK.

Langkah-langkah membuat tampilan visual:

1. Beri nama formnya dengan FKasirATK, dan rubah Caption-nya dengan Kasir ATK.
2. Tambahkan 2 komponen Label dan ubah setiap captionnya dengan Banyak Barang dan Bayar.
3. Tambahkan 2 komponen Edit. Ubah namanya dengan EBanyak dan EJumlah. Kosongkan properti Text.
4. Tambahkan sebuah Button beri nama BHitung dan ubah Caption-Nya menjadi Hitung.
5. Tambahkan komponen GroupBox dan ubah properti Caption-nya menjadi Jenis Barang.
6. Tambahkan komponen 3 komponen RadioButton ke dalam GroupBox, lalu ubah masing-masing Caption-nya menjadi Spidol, Pulpen dan Pensil. Ubah juga namanya masing-masing menjadi RBSpidol, RBPulpen dan RBPensil. (Ingat anda harus menempatkan RadioButton di dalam GroupBox, jangan di luarnya).
7. Dari ketiga RadioButton tidak ada satu pun yang dipilih. Pada saat aplikasi dijalankan, anda harus memilih salah satu, anda dapat membuat pilihan default, misalnya Spidol (RBSpidol dipilih secara default). Untuk itu anda harus mengubah properti Checked dari RBSpidol menjadi True, perhatikan perubahan pada form.
8. Jika sudah selesai semua tekan File > Save All, beri nama proyeknya dengan kasiratk.lpi dan beri nama unitnya dengan ukasiratk.pas

Setelah anda mendesain visualnya, maka tampilannya akan seperti gambar di bawah ini:

Penulisan Pada Source Editor:

Langkah selanjutnya kita akan mengisikan event OnClick milik BHitung yang berfungsi menghitung perkalian antara EBanyak dan EJumlah. Caranya klik even OnClick milik BHitung seperti gambar di atas, maka selanjutnya anda akan dibawa ke jendela Source Editor. Isikan pada procedure tersebut seperti di bawah ini:

procedure TFKasirATK.BHitungClick(Sender: TObject);
var
  harga, banyak, bayar: integer;
begin
  banyak:= strtoint(EBanyak.Text);
  if RBSpidol.Checked then harga:= 5000;
  if RBPulpen.Checked then harga:= 3000;
  if RBPensil.Checked then harga:= 1000;
  bayar:= banyak*harga;
  EJumlah.Text:= inttostr(bayar);
end;

Disini kita memakai pernyataan IF. Jika RBSPidol dipilih (RBSpidol.Checked bernilai true), harganya 5000. Begitu seterusnya.


Cukup sekian belajar bersama tentang memilih data dengan RadioButton di Lazarus Free Pascal. Kita lanjut lagi nanti dengan cara penggunaan Radio Group.