pembuatan password dalam Visual basic

LISTING VB
Kita akan membuat suatu program dengan menggunakan password pada vb, dimana apabila password yang kita masukkan benar, maka akan muncul sebuah gambar yang tealh kita masukkan sebelumnya. Dan jika pasasword yang kita masukkan salah, akan muncul dialog box yang mengingatkan bahwa password yang dimasukkan salah, jika salahnnya sudah 3 kali, maka program akan keluar dengan sendirinya.
Berikut adalah penjelasannya :
1. Kita buat tampilan:
- Kita masukkan label pada form, dengan tulisan “ masukkan password “ bersebelahan dengan text box.
- Kita masukkan text box disebelah label, yang caption nya telah kita hilangkan.
- Kita masukkan 2 buah command box. Dengan masing – masing untuk perintah “ OK “ dan “ EXIT “.
- Lalu kita masukkan gambar dengan cara :
a. Kita pilih tools image
b. Kita blok form
c. Kita import gambar yang ingin dimasukkan, dengan memilih picture pada properties.
d. Setalh gambar muncul, properties visible kita buat bernilai false. Dengan tujuan, saat program kita jalankan gambar tersebut tidak akan muncul.

2. Memasukkan perintah dalam command box OK
Berikut adalah perintah – perintah nya :

- Dim a As integer
Adalah perintah untuk mendeklarasikan variable yang akan kita gunakan nantinya. Pada program ini kita menggunakan variable a dengan tipe data integer.
- a = a + 1
If ((Text1.Text) = "radzi") And (a <= 3) Then
Image1.Visible = True
Text1.Enabled = False
Command1.Enabled = False
Artinya jika pada text box yang kita masukkan tadi tertuliskan string “radzi” dan nilai a ( sebagai variable untuk menentukan berapa kali password yang kita masukkan bernilai salah ) kurang dari sama dengan 3, maka gambar yang kita masukkan akan terlihat dengan menggunakan perintah visible. Dan jika telah diproses tulisan pada text box tidak akan bisa di edit kembali, karena kita menggunakan statement text1.enabled=false. Dan juga perintah OK pada commandbox tidak akan bisa di klik lagi karena perintah command1.enabled.=false. Namun jika kedua enabled kita berikan nilai true maka setelah kita proses text dapat di rubah kembali. Dan command OK pun dapat kita klik kembali.

- Else
MsgBox ("pasword salah")
If a < 3 Then
Text1.Text = ""
Text1.SetFocus
Else
End
Artinya jika string pada text box yang kita masukkan salah, maka perintah else ini yang akan di eksekusi. Maka akan muncul dialog box dengan tulisan “ password salah “. Dan jika kesalahan yang kita lakukan masing kurang dari tiga, tulisan pada text box kita akan hilang. Dan dengan perintah setfocus, kursor akan langsung kembali ke text box ( jika tidak menggunakan perintah ini, kita harus mengembalikan kursor terlebih dahulu kedalam text box, baru kita tuliskan kembali). Namun jika sudah lebih dari tiga kesalahan, program akan keluar dengan peirntah end. Perhitugan nilai kesalahan kita lakukan pada awal program dengan perintah “ a = a +1 “ artinya tiap kesalahan akan di masukkan pada variable a.

3. Pada tampilan awalnya program akan berjalan seperti yang diinginkan, namun saat kita menuliskan password, tulisan yang kita masukkan akan terlihat.

Untuk itu, properties password char pada text box kita isikan dengan suatu symbol yang mewakili tiap character yang kita masukkan pada text box.

Maka tuisan pada text box akan menjadi :

Tiap character di tuliskan sebagai *. Jadi password yang kita masukkan tidak dapat dilihat orang lain.

Jika password yang dimasukna salah :
Gambar tidak akan muncul dan akan muncul dialog box yang beriksikan tulisan “ password salah “. Dan saat kita pilih Ok, kurosr akan langsung kembali ke dalam text box. Saat kita salah memasukkan program sebanyak 3 kali, program langsung akan keluar.