Cara menggunakan
checkbok dengan delphi 2010
Oleh:
JOKO TURWANTO
NIM : 2011.15.458.0016
JURUSAN
TEKNIK INFORMATIKA
FAKULTAS
TEKNIK
UNIVERSITAS
WAHIDIYAH
Dalam pembuatan program kita kali ini
sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik
tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini
adapun cara penggunaan checkbok dengan delphi 2010 antara lain yang pertama
buka delphi 2010 kemudianbuat form baru dan
masukan komponen kedalam form komponenya adalah antara lain:
Form1
Nama
Komponen
|
Caption
|
Name
|
TCheckbox1
|
Rizal
|
Checkbox1
|
Tcheckbox2
|
Bakar
|
Checkbox2
|
Tbutton1
|
Show
|
Button1
|
Tbutton2
|
Next
|
Button2
|
Dan pengkodeanya adalah sebagai
berikut masukan kode seperti di bawah ini pilih kode yang terletak
di bawah form kan ada tiga pilihan yaitu
kode,
design dan histori klik satu kali di kode pastikan kode sama persis di bawah ini ingat didalam
button next masih ad form lgi yang kita panggil.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1
= class(TForm)
CheckBox1: TCheckBox;
Button1: TButton;
CheckBox2: TCheckBox;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form1:
TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
showmessage('berarti rizal');
end
else
begin
showmessage('berarti bukan rizal');
end;
if
checkbox2.Checked then
begin
showmessage('BERARTI BAKAR');
end
else
begin
showmessage('BUKAN BAKAR');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show;
end;
end.
Lalu klik 2x di button next dan masukan kode
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show;
end;
dan di dalam form 2 ini kta masukan komponen
kedalam form adalah sebagai berikut
Nama Komponen
|
Caption
|
Name
|
Tcheckbox1
|
Rizal
|
checkbox1
|
Tcheckbox2
|
Bakar
|
Checkbox2
|
Tbutton1
|
Ok
|
Button1
|
Dan pengkodeanya adalah sebagai
berikut masukan kode seperti di bawah ini pilih kode yang terletak
di bawah form kan ada tiga pilihan yaitu
kode,
design dan histori klik satu kali di kode pastikan kode sama persis di bawah ini
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm2
= class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form2:
TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if checkbox1.Checked and checkbox2.Checked then
begin
showmessage('berarti rizal dan bakar');
end;
if(not (checkbox1.Checked)and not(checkbox2.Checked))then
begin
showmessage('berarti bukan rizal dan bukan bakar');
end;
if(not (checkbox1.Checked)and (checkbox2.Checked))then
begin
showmessage('berarti bukan rizal berarti bakar');
end;
if(
(checkbox1.Checked)and not(checkbox2.Checked))then
begin
showmessage('berarti rizal berarti bukan bakar');
end;
end;
end.
Selesai deh program kita kali ini
Ingat cara memasukan form 1 dan form2
Form1 file new vcl form aplication delphi
Form2file new form-delphi lalu form2 di panggil dengan
button yang ad di form1 .
Selamat mencoba,,,,,,,,
g_mail :dprwscout717@gmail.com
blok :designprogram717.blokspot.com
no hp : 082302577717
