Latihan step by step VB6 untuk Validasi Password (Password Validation)

Latihan kali ini bertujuan untuk membuat sebuah aplikasi password. Jadi kita sudah mensetting sebuah password tertentu dalam form, kemudian kita akan memberikan sebuah control text untuk user agar dapat membobol/melewati form password tersebut jika sudah melakukan pengisian password dengan benar. Langkah-langkahnya adalah sebagai berikut:

1. Buatlah sebuah project baru. Ide project ini adalah untuk menanyakan kepada user untuk menginput sebuah password.Jika benar maka akan keluar sebuah kotak dialog yang memberikan informasi bahwa password benar, jika salah maka user diberikan kotak dialog bahwa password yang diberikan salah, jika salah 3 kali berturut-turut maka user sudah tidak punya kesempatan memasukkan password lagi. 

2. Tempatkan dua buah command button, sebuah label box, dan text box dalam form. Maka akan terlihat seperti ini.

3. Setting property formnya dan masing masing objectnya seperti di bawah ini.

Form1:
          BorderStyle         1-Fixed Single
          Caption               Password Validation
          Name                  frmPassword
Label1:
          Alignment             2-Center
          BorderStyle          1-Fixed Single
          Caption                Please Enter Your Password:
          FontSize              10
          FontStyle             Bold
Text1:
          FontSize              14
          FontStyle             Regular
          Name                  txtPassword
          Password Char   *
          Tag                     [Whatever you choose as a password]
          Text                    [Blank]

          Exploring the Visual Basic Toolbox 3-9

Command1:
          Caption             &Validate
          Default              True
          Name                cmdValid
Command2:
          Cancel              True
          Caption            E&xit
          Name               cmdExit
Label2:
          Name               lblKali

Tampilan form kita akan jadi seperti ini kira-kira:

4. Tambahkan code berikut pada event cmdValid_Click.

Private Sub cmdValid_Click()

'This procedure checks the input password

Dim Response As Integer

If txtPassword.Text = txtPassword.Tag Then

'If correct, display message box

MsgBox "Anda Telah Melewati Keamanan!", vbOKOnly + vbExclamation, "Access Dipersilahkan"

If ok = Click Then

End 'jika ok di-klik keluar windows

End If

Else

'If incorrect, give option to try again

Response = MsgBox("Salah password", vbRetryCancel + vbCritical, "Access Dibatalakan")

If Response = vbRetry Then

txtPassword.SelStart = 0

txtPassword.SelLength = Len(txtPassword.Text)

Else

End

End If

End If

txtPassword.SetFocus

n = n + 1

lblKali.Caption = n

If n = 3 Then

cmdValid.Enabled = False

txtPassword.Enabled = False

End If

End Sub

Kode ini mengecek password input untuk melihat jika sama dengan password yang kita simpan di Tag.
5. Tambahkan code berikut pada event Form_Activate.

Private Sub Form_Activate()

txtPassword.SetFocus

n = 0

End Sub

6. Tambahkan code berikut pada event cmdExit_Click.

Private Sub cmdExit_Click()

End

End Sub

7. Cobalah me – run program. Cobalah semua opsi input: salah password dan benar, lalu cobalah salah selama tiga kali berturut-turut. Simpan project kita.


Semoga jelas dan berguna bagi kita semua.
Link download project ada di sini
Jangan lupa, jika donwnload file project, langsung run dulu di VB Studio agar window form dan code keluar tanpa kita kebingungan.
Selamat belajar VB…:D