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 :
-Tambahkan 1 buah komponen StatusBar pada Form
-Tambahkan 1 buah komponen PageControl pada Form
-Klik Kanan pada komponen PageControl, lalu klik New Page (untuk menambahkan TabSheet1)
-Klik New Page sekali lagi (untuk menambahkan TabSheet2)
-Aturlah posisi peletakan komponen seperti gambar di atas
-Ubahlah properti untuk komponen :
-Tambahkan 1 buah komponen TrackBar1 pada TabSheet1
-Tambahkan 1 buah komponen ProgressBar1 pada TabSheet2
-Klik Kanan pada komponen PageControl, lalu klik New Page (untuk menambahkan TabSheet1)
-Klik New Page sekali lagi (untuk menambahkan TabSheet2)
-Aturlah posisi peletakan komponen seperti gambar di atas
-Ubahlah properti untuk komponen :
3. ubah komponen - komponenya sebagai berikut
4. Ketik perintah berikut pada bagian halaman Events pada jendela object inspector untuk objek :
- Edit1 : klik ganda tempat kosong disamping kanan event OnKeyPress
//-------------------------------------------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key==13)
PostMessage(Handle,WM_NEXTDLGCTL,0,0);
}
//-------------------------------------------------------------------------------------------------------------
- Edit2 : klik ganda tempat kosong disamping kanan event OnEnter
//-------------------------------------------------------------------------------------------------------------
void __fastcall TForm1::Edit2 KeyPress(TObject *Sender, char &Key)
{
if (Key==13)
PostMessage(Handle,WM_NEXTDLGCTL,0,0);
}
//-------------------------------------------------------------------------------------------------------------
- Button1 : klik ganda Button1 (klik double tempat kosong disamping kanan event OnClick)
//-------------------------------------------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (ePassword->Text=="Amik")
{
Application->MessageBox("Klik OK untuk selesai...","PASSWORD BETUL", MB_OK|MB_ICONWARNING);
Close();
}
else
{
Application->MessageBox("Coba lagi...","PASSWORD SALAH",
MB_OK|MB_ICONERROR);
ePassword->SetFocus();
}
}
//-------------------------------------------------------------------------------------------------------------
- Button2 : klik ganda Button2 (klik double tempat kosong disamping kanan event OnClick)
//-------------------------------------------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//-------------------------------------------------------------------------------------------------------------
