Radio Button & Radio Group Delphi

1. Contoh Program :



dibentuk menggunakan obyek groupbox

dibentuk menggunakan obyek radiobutton

Nilai luas akan keluar jika radiobutton1 diklik, dan nilai keliling akan keluar jika radiobutton2 diklik.

Programnya :

Procedure TForm1.RadioButton1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
c := a * a ;
edit2.Text := inttostr ( c ) ;
end ;

Procedure TForm1.RadioButton2Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;


2. Contoh program :



dari contoh di atas, hasil baru akan ditampilkan jika tombol Prosres diklik,
programnya adalah :

Procedure TForm1.Button1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
if radiobutton1.Checked = true then
c := a * a
else if radiobutton2.Checked = true then
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;

3. Contoh program



dibentuk dengan RadioGroup, maka programnya adalah :

Procedure TForm1.RadioGroup1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
if radiogroup1.itemindex = 0 then
c := a * a
else if radiogroup1.itemindex = 1 then
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;

4. contoh program



dari contoh di atas, hasil baru akan ditampilkan jika tombol Prosres diklik, pilihan dibuat dengan radiogroup, programnya adalah :

Procedure TForm1.Button1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val (edit1.Text , a , b ) ;
if radiogroup1.itemindex = 0 then
c := a * a
else if radiogroup1.itemindex = 1 then
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;