Contoh soal gabungan chechbox, radiobutton atau radiogroup Delphi

Nama, Jumlah Beli, Barang dan Diskon diinput.
Buku Dan Pensil dibentuk dengan radiobutton, buku seharga 3000 dan pensil 2000.
Bayar diperoleh dari Jumlah beli dikali harga barang.
Diskon dibentuk dengan radiogroup, sedangkan nilai Diskon diperoleh dari Bayar dikali pilihan diskon yang dipilih.
Bayar diperoleh dari Bayar dikurangi Diskon.

procedure TForm1.Button1Click(Sender: TObject);

var a , b , c , d : integer ;

e , f : real ;

g , h : string ;

begin

val ( edit2.text , a , b ) ;

if buku.checked = true then

c := a * 3000 ;

if pensil.checked = true then

c := a * 2000 ;

edit3.text := inttostr ( c ) ;

if radiogroup1.itemindex = 0 then

e := c * 5 / 100 ;

if radiogroup1.ItemIndex = 1 then

e := c * 10 / 100 ;

str ( e : 5 : 2 , g ) ;

edit4.text := g ;

f := c - e ;

str ( f : 5 : 2 , h ) ;

edit5.text := h ;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

application.terminate

end;

 

 Nama Langganan, Jumlah Beli, Jenis Barang dan Keanggotaan diinput.
Jenis Barang dibentuk dengan radiogroup, Buku seharga 5000, Pensil seharga 2000 dan Penghapus seharga 1000.
Harga diperoleh dari Jumlah beli dikali harga dari Jenis Barang.
Keanggotaan dibentuk dengan radiobutton, jika Member mendapat diskon 10% sedangkan Non Member tidak mendapatkan potongan.
Harga diperoleh dari Jumlah Beli dikali harga dari Jenis Barang.
Diskon  diperoleh dari Harga dikali besar persentase diskon.
Bayar diperoleh dari Harga dikurangi Diskon.

procedure TForm1.Button1Click(Sender: TObject);

var a , b , c , d : integer ;

e , f , h , j : real ;

g , i : string ;

begin

val ( edit2.text , a , b ) ;

if radiogroup1.ItemIndex = 0 then c := 5000 ;

if radiogroup1.ItemIndex = 1 then c := 2000 ;

if radiogroup1.ItemIndex = 2 then c := 1000 ;

d := a * c ;

edit3.text := inttostr ( d ) ;

if radiobutton1.Checked = true then e := 0.1 ;

if radiobutton2.Checked = true then e := 0 ;

f := e * d ;

str ( f : 5 : 2 , g ) ;

edit4.text := g ;

h := f - d ;

j := abs ( h ) ;

str ( j : 5 : 2 , i ) ;

edit5.text := i ;

end;

Bangun  dibentuk dengan radiogroup, jika dipilih Lingkaran pada Input, tampil keterangan Jari-jari, sedangkan jika dipilih Persegi  pada Input, tampil keterangan Sisi.

Jika dipilih Bangun Lingkaran maka yang dicari Luas dan Keliling lingkaran.

Jika dipilih Bangun Persegi maka yang dicari Luas dan Keliling persegi.

procedure TForm1.Button1Click(Sender: TObject);

var a , b : integer ;

d , e : real ;

f , g : string ;

begin

val ( edit1.text , a , b ) ;

if radiogroup1.itemindex = 0 then

d := pi * a * a ;

if radiogroup1.itemindex = 0 then

e := 2 * 3.14 *a ;

if radiogroup1.itemindex = 1 then

d := a * a ;

if radiogroup1.itemindex = 1 then

e := a * 4 ;

str ( d : 5 : 2 , f ) ;

str ( e : 5 : 2 , g ) ;

edit2.text := f ;

edit3.text := g ;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if radiogroup1.itemindex = 0 then

label1.Caption := ' Jari-jari ' ;

if radiogroup1.itemindex = 1 then

label1.caption := ' Sisi ' ;

end;

 

Bangun  dibentuk dengan radiobutton, jika dipilih Persegi Panjang tampil keterangan pada Input Panjang  dab Lebar, sedangkan jika dipilih Segitiga tampil keterangan pada Input Alas dan Tinggi.

Pilihan dibuat menggunakan radiogroup, jika pada Pilihan dipilih Luas maka dicari luas dari yang dipilih pada Bangun sedangkan jika pada Pilihan dipilih Keliling maka dicari keliling dari yang dipilih pada Bangun.

procedure TForm1.Button1Click(Sender: TObject);

var a , b , c : integer ;

d , e : real ;

f , g : string ;

begin

val ( edit1.text , a , c ) ;

val ( edit2.text , b , c ) ;

if radiobutton1.Checked = true then

if radiogroup1.itemindex = 0 then

d := a * b else

e := a + b + a + b ;

if radiobutton2.Checked = true then

if radiogroup1.itemindex = 0 then

d := a * b / 2 else

e := a + 2 * ( sqrt ( sqr ( b ) + sqr ( a / 2 ) ) );

str ( d : 5 : 2 , f  ) ;

str ( e : 5 : 2 , g ) ;

if radiogroup1.ItemIndex = 0 then

edit3.text :=  f ;

if radiogroup1.ItemIndex = 1 then

edit3.text := g ;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if radiobutton1.checked then

begin
label1.Caption := ' Panjang ';

label2.Caption := ' Lebar ' ;

end 
if radiobutton2.checked = 1 then

label1.caption := ' Sisi ' ;

label2.Caption := ' Lebar ' ;

end
end ;