Share

Tunjukan Rasa Terima Kasih Anda Dengan Men Share Blog Ini

My Name

Senin, 22 April 2013

Cara Membuat Password Dengan Visual Basic 6.0



 tujuan dari artikel ini admin mencoba memberikan system keamanan atau (security) agar dalam membuat sebuah program tidak mudah di hack atau di bobol orang. Okeh langsung saja sobat ikuti langkah - langkah berikut ini :
  • Seperti biasa sebelumnya sobat buka dulu program visual basic 6.0, kemudian buat tampilan seperti berikut ini :
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzYIF6HniNh0F6TL1v4kC2LYwKpYJ8eR145SDytw3nfi8DG5_R8Yg97I8dmJNd94cZMwO8kkBgpkH0EkvkSq3r1Ans9GA41jU_qYKYhCX4GR0VyFuKFJo_r5W2SVfT0eHLkhR4qw8nT4Y/s320/pass1.PNG
  • Jika sobat masih bingung dengan komponen -komponen seperti pada gambar diatas, admin akan beri tau komponen - komponen apa saja yang digunakan, lihat pada gambar tabel dibawah ini :
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrLCZwBFn3PHGVK5MwAncLKr-WJxScM8Vs1XgwJVANgCYl_GkE73HsCPkHT2iBU8ZTZDy55H8s9wZ-kxFCw2jbIrbyceRdkh9JgBuPP2hv_cxMzwUDfyqNAHdVL5zr2tUrg7UOpDhIr-U/s320/pass2.PNG
  • Seperti itulah komponen - komponen yang harus digunakan, komponen - komponen tersebut berada di menu sebelah kanan yaitu menu "Toolbox".
  • Kemudian jika sobat sudah bisa membuat seperti apa yang admin tunjukan, nah sekarang saatnya untuk memberi script / koding agar komponennya dapat berfungsi, mari ikuti langkah - langkah berikutnya.
  • Sobat klik 2x pada tombol "Okeh", maka akan tampil jendela untuk memberikan script / koding, seperti pada gambar dibawah ini :
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0nD1VQxZJo4jm556mfoo5dsrZkDslTZfqdE47KdM3SjpdC5NR0R-baN-JSv98MCv46fsOiAXhtOE8C0lGpe1apLDx5ZuuONIQyZc40fnF-HRHREmLKBTvep7yVZOh8FHkFAOFYXBfyPs/s320/pass3.PNG
  • Pada jendela koding sudah muncul script seperti dibawah ini :
Private Sub Command1_Click()
End Sub
  • Sekarang coba sobat copy-paste script dibawah ini, kemudian letakkan diantara script diatas.
If Text1.Text = "Administrator" And Text2.Text = "12345" Then
loginsucceeded = True
Me.Hide
Form2.Show
Unload me
Else
Msgbox "Maaf Password Salah !!! Silahkan Coba Kembali"
Text2.SetFocus
Text2 = ""
End If
  • Kemudian klik 2x kembali pada tombol "Batal", maka akan muncul script seperti dibawah ini :
Private Sub Command2_Click()
End Sub
  • Coba sobat copy-paste kembali script dibawah ini, dan letakkan diantara script diatas.
End
  • Nah jika sobat sudah copy-paste semua script / koding diatas, coba sobat jalankan programmnya, dengan ketentuan :
Username : Administrator
Password : 12345
  • Untuk script / koding yang diberi warna background kuning, itu artinya dapat dirubah, karena itulah yang menjadi username dan passwordnya. Silahkan sobat ubah - ubah.
  • Berhasilkah???, seperti itulah hasil untuk membuat password. coba sobat kreasikan untuk tampilannya agar lebih bagus.

2 komentar:

  1. Gan pas di coba berhasil.... tapi gemana y... cara ganti nama error message nya???
    Mohon bantuanya

    BalasHapus
  2. gan blognya sangat membantu makasi

    BalasHapus

Translate