Home > Delphi > 05. Aplikasi Password

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.

Tutorial Aplikasi Password (#1)

 

Tutorial Aplikasi Password (#2)

 

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
(password.Edit2.Text))

) 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:

Tutorial Aplikasi Password (#3)

 

Apa yang sudah anda pelajari

  1. Komponen
    1. BitBtn: Menggunakan komponen tBitBtn dan mengeset jenis tombol tersebut (bkOK, bkCancel, dan sebagainya)
    2. Membuat 2 form dan cara pemanggilannya dari form lain
  2. Syntax
    1. Uppercase
    2. ShowMessage
    3. SetFOcus: Menyorot komponen tertentu dengan memanggil metode SetFocus .
    4. Clear
    5. Logic if then else
    6. Mencoba metode ShowModal untuk menampilkan kotak dialog password
    7. Menampilkan pesan program dengan perintah ShowMessage
    8. Mengeset posisi suatu form begitu dipanggil

  • Share/Bookmark
Categories: Delphi Tags:
  1. No comments yet.
  1. No trackbacks yet.

Ikutilah Seminar GPS! "MEMBONGKAR RAHASIA BISNIS GPS TRACKING" - Pembicara : Ir. Akhmad Daniel Sembiring (CEO Vitraining.com & GpsTrackingIndonesia.com) - Bandung, Sabtu 25 September 2010 - Hotel Arion Swiss - Belhotel, Jl. Otto Iskandardinata No. 16 Bandung - Biaya Pendaftaran : 2 Jt (sebelum 18 September 2010 HANYA 1 Jt) - Register ONLINE : seminar-gps.vitraining.com - More Info e-mail to : info@gpstrackingindonesia.com

This site uses a Hackadelic PlugIn, Hackadelic SEO Table Of Contents 1.6.0.