05. Aplikasi Password
Pada video tutorial ini akan diperlihatkan bagaimana membuat aplikasi password dengan tujuan untuk mempelajari penggunaakn komponen tBitBtn dan mengeset jenis tombol tersebut (bkOK, bkCancel, dan sebagainya), membuat 2 form dan cara pemanggilannya dari form lain, mempelajari syntax function Uppercase, ShowMessage, SetFOcus yaitu untuk menyorot komponen tertentu dengan memanggil metode SetFocus, Clear, logika if then else, mencoba metode ShowModal untuk menampilkan kotak dialog password, menampilkan pesan program dengan perintah ShowMessage, dan mengeset posisi suatu form begitu dipanggil.
Langkah Pembuatan Aplikasi
Berikut ini penjelasan tutorial di atas:
|
No |
Action |
||
|
1 |
Create New Project |
File -> New ->Application |
Save All -> Create new dir: password Project: PWD.PRJ File : Unit1.pas |
|
2 |
Drop Component |
||
|
Label1 |
Username |
||
|
Label2 |
Password |
||
|
Edit1 |
|||
|
Edit2 |
PasswordChar = * |
||
|
BitBtn1 |
Kind=bkCustom Caption=Test Password |
||
|
BitBtn2 |
Kind=bkClose |
||
|
3 |
Create new Form : |
File -> New Form |
Save All -> File: Unit2.pas |
|
4 |
Drop Component on Unit2 |
||
|
Label1 |
Username |
||
|
Label2 |
Password |
||
|
Edit1 |
|||
|
Edit2 |
PasswordChar = * |
||
|
BitBtn1 |
Kind=bkOK |
||
|
BitBtn2 |
Kind=bkClose |
||
|
5 |
Event Handler |
||
|
Unit1 : BitBtn1 |
OnClick |
if password.ShowModal = mrOK then begin if ( (uppercase(edit1.Text) = uppercase(password.Edit1.Text)) and (uppercase(edit2.Text) = uppercase ) then ShowMessage(‘password cocok’) else ShowMessage(‘password tidak cocok’); end else showMessage(‘masukkan password dibatalkan’); |
|
|
6 |
Run |
F9 |
Penjelasan Program
Berikut ini penjelasa program aplikasi di atas:
Apa yang sudah anda pelajari
- Komponen
- BitBtn: Menggunakan komponen tBitBtn dan mengeset jenis tombol tersebut (bkOK, bkCancel, dan sebagainya)
- Membuat 2 form dan cara pemanggilannya dari form lain
- Syntax
- Uppercase
- ShowMessage
- SetFOcus: Menyorot komponen tertentu dengan memanggil metode SetFocus .
- Clear
- Logic if then else
- Mencoba metode ShowModal untuk menampilkan kotak dialog password
- Menampilkan pesan program dengan perintah ShowMessage
- Mengeset posisi suatu form begitu dipanggil



Recent Comments