Rabu, 06 Maret 2013

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 ;