2. Masukkan 2 buah form dimana Form1 untuk form password dan Form2 sebagai form programnya sehingga program kita di Form2 tidak dapat dibuka kalau tidak mengetahui Password yang ada di Form1.
Ubah Caption Form1 = Login dan Form2 = Program
3. Masukkan 1 buah TextBox dan 1 buah CommandButton di Form1 (Login) dan atur seperti di bawah ini:
Properties :
a. TextBox (PasswordChar = * dan Text = “kosongkan”)
b. CommandButton (Caption = OK)
Kode Form1 :
Private Sub Command1_Click()
If Text1.Text = "indy" Then
Form2.Show
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Ko punya password salah !"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Catatan : Password yang digunakan dalam contoh ini adalah “indy” tanpa tanda petik. Anda dapat menggantinya dengan kata apa saja sesuai selera anda.
4. Untuk Form2 terserah anda mau gunakan untuk program apa saja intinya di sini kalau program ini dibuka maka yang pertama kali terbuka adalah Form1(Login), jika password yang dimasukkan benar maka Form2 akan tampil. Jika Password yang dimasukkan salah maka akan muncul pesan “Ko punya password salah !”
5. Ok sampai di sini proses pembuatan form password sederhana kita selesai.
6. Sebenarnya di VB 6 masih sangat banyak cara membuat membuat Password login yang lebih rumit dan lebih kompleks baik dengan menggunakan nomor seri harddisk sehingga setiap komputer mempunyai password yang berbeda-beda maupun dengan cara-cara yang lain.
Tujuan postingan ini sebenarnya untuk para pemula (seperti saya ini) dan teman –teman lain yang mungkin belum tahu..……he ..he ..he………………
7. Terima kasih bagi anda yang mau berbagi dengan aku di blog ini dan selamat mencoba bagi yang ingin mencoba……sukses ya…..
“SOFTWARE BUKANLAH SEGALANYA TETAPI ....KONSEP,
INSPIRASI, KREATIVITAS, DAN KESABARAN..... YANG AKAN
MENGHIDUPKAN SOFTWARE,
YANG PADA AKHIRNYA
MENGHASILKAN KARYA YANG BESAR DAN PROFESIONAL”
INSPIRASI, KREATIVITAS, DAN KESABARAN..... YANG AKAN
MENGHIDUPKAN SOFTWARE,
YANG PADA AKHIRNYA
MENGHASILKAN KARYA YANG BESAR DAN PROFESIONAL”
bagaimana caranya kalo bikin passwor yang hanya bisa mentolerir 3 x kesalahan?
BalasHapusSebenarnya dengan memodifikasi code di atas kita bisa buat spy pd kesalahan ke 3 program langsung tertutup, namun di sini aku berikan code yang lebih mudah dimengerti & praktis:
BalasHapusPrivate Sub Command1_Click()
Static counter As Integer
If Text1.Text = "indy" Then
Form2.Show
Else
MsgBox "Password Salah"
counter = counter + 1
End If
If counter = 3 Then
Unload Me
End If
End Sub
Nah semoga code ini dapat bermanfaat ya ^_^... terima kasih buat kunjungan dan komentarnya di blog ini ....
Postingan menarik gan,..
BalasHapusbagaimana kalo kita lupa passwordnya
BalasHapusBuat anonim, seandainya kalau kita lupa passwornya pastinya masih bisa dilihat di project yang kita buat n kalaupun sudah dicompile manjadi EXE n projectnya hilang tetap masih bisa dilihat menggunakan vb decompiler krn ini masih project yg sangat sederhana. Terima kasih buat kunjungannya ya ^_^
BalasHapus