penggunaan checkbox,lisbox,memo dalam c

Buatlah program Latih-2 dengan mengikuti petunjuk berikut :

1.Aktifkan software C++ Builder dan buat aplikasi baru dengan memilih menu File, New application.
2.Rancanglah Form Output program seperti gambar di bawah ini :



-Taruh 1 buah komponen Panel pada Form
-Taruh 1 buah komponen Main Menu pada Form
-Taruh 2 buah komponen GroupBox pada Form
-Taruh 4 buah komponen Label pada GroupBox1
-Taruh 1 buah komponen Edit pada GroupBox1
-Taruh 1 buah komponen ComboBox1 pada GroupBox1
-Taruh 1 buah komponen ListBox1 pada GroupBox1
-Taruh 1 buah komponen Memo1 pada GroupBox1
-Taruh 1 buah komponen RadioGroup1 pada Form
-Taruh 2 buah komponen CheckBox pada GroupBox2
-Taruh 2 buah komponen Button pada Form
-Taruh 1 buah komponen Button pada GroupBox2
-Taruh 1 buah komponen ScrollBar pada Form
-Aturlah posisi peletakan komponen seperti gambar di atas.

3.Ubahlah properti untuk komponen form1 :



4. Ketik perintah berikut pada bagian halaman Events pada jendela object inspector untuk objek :
- Form1 : klik ganda di tempat kosong (event on Create)
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::FormCreate(TObject *Sender)
{
Button2->Caption="Tanggal: "+DateToStr(Date());
}
//-------------------------------------------------------------------------------------------------------------


- ComboBox1 : klik ganda tempat kosong disamping kanan event OnChange
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::ComboBox1Change(TObject *Sender)
{
if (ComboBox1->ItemIndex==0)
Memo1->Lines->Add("Pria");
else
Memo1->Lines->Add("Wanita");
}
//-------------------------------------------------------------------------------------------------------------

- ListBox1 : klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::ListBox1Click(TObject *Sender)
{
if (ListBox1->ItemIndex==0)
Memo1->Lines->Add("AMIK Profesional No.27");
if (ListBox1->ItemIndex==1)
Memo1->Lines->Add("Makassar");
if (ListBox1->ItemIndex==2)
Memo1->Lines->Add("(0411) 431139, 431157");
}
//-------------------------------------------------------------------------------------------------------------

- RadioGroup1 : klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::RadioGroup1Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
Standar->Color=clBtnFace;
if (RadioGroup1->ItemIndex==1)
Standar->Color=clRed;
if (RadioGroup1->ItemIndex==2)
Standar->Color=clYellow;
if (RadioGroup1->ItemIndex==3)
Standar->Color=clGreen;
if (RadioGroup1->ItemIndex==4)
Standar->Color=clBlue;
}
//-------------------------------------------------------------------------------------------------------------

- CheckBox1: klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked==true)
{ Memo1->Enabled=true;
Memo1->SetFocus();
}
else
Memo1->Enabled=false;
}
//-------------------------------------------------------------------------------------------------------------

- CheckBox2: klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::CheckBox2Click(TObject *Sender)
{
if (CheckBox2->Checked==true)
Memo1->Color=clAqua;
else
Memo1->Color=clWhite;
}
//-------------------------------------------------------------------------------------------------------------

- ScrollBar1 : klik ganda tempat kosong disamping kanan event OnChange
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::ScrollBar1Change(TObject *Sender)
{
RadioGroup1->ItemIndex=ScrollBar1->Position;
}
//-------------------------------------------------------------------------------------------------------------

- Button1 : klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::Button1Click(TObject *Sender)
{
Close();
}
//-------------------------------------------------------------------------------------------------------------

- Button2 : klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::Button2Click(TObject *Sender)
{
ShowMessage("Ini tanggal system");
}
//-------------------------------------------------------------------------------------------------------------

- Button3 : klik ganda tempat kosong disamping kanan event OnClick
//-------------------------------------------------------------------------------------------------------------
void __fastcall TStandar::Button3Click(TObject *Sender)
{
Memo1->Clear();
}
//-------------------------------------------------------------------------------------------------------------