Komunitas Informatika Aneuk Nanggröe

Dengan Agama hidup menjadi terarah, dengan Ilmu hidup menjadi mudah dan dengan seni hidup menjadi indah..!!
 
IndeksPortalFAQPencarianPendaftaranLogin

Share | 
 

 Mengecek Password

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
faizil
TK


Male
Jumlah posting : 25
Age : 31
Lokasi : Peukan Bada
Registration date : 11.06.08

PostSubyek: Mengecek Password   Mon Aug 18, 2008 11:28 pm

Ini adalah contoh program untuk memeriksa password yang dimasukkan user ke dalam textbox ketika login ke suatu aplikasi. Jika kesalahan mencapai tiga kali, login ditolak.

1. Buat 1 Project baru dengan 1 Form, 1 Textbox, dan 2 Commandbutton.
2. Beri nama masing-masing commandbutton dengan cmdOK dan cmdCancel.
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

Code:

Dim Hitung As Integer  'Deklarasi variabel global
Dim Jawab As String    'Deklarasi variabel global
Private Sub Form_Load()
  Hitung = 0  'Saat form diload, Hitung mula-mula masih 0
End Sub

Private Sub cmdOK_Click()
  'Ulangi selama text1 tdk sama dengan "example"
  Do While Text1.Text <> "example"
    Jawab = Text1.Text = "example"  'Inisialisasi Jawab
      'Jika Jawab tdk sama dengan "example"
      If Jawab <> "example" Then
        Hitung = Hitung + 1  'Counter bertambah satu
        Tampung (Hitung)      'Hitung ke fungsi Tampung
        If Hitung = 3 Then    'Jika Hitung = 3, maka...
            'Tampilkan pesan
            Print "Password Blocked!"
            Text1.Enabled = False  'Text1 tdk bisa diakses
            cmdOK.Enabled = False  'cmdOK tdk bisa diakses
            cmdCancel.Default = True 'Hanya cmdCancel yg bisa diakses
        End If
        Exit Sub                  'Keluar dari prosedur
      Else    'Jika Jawab = "example"
        Exit Do  'Keluar dari Loop
      End If
  Loop
  Print "Welcome"  'Tampilkan pesan sukses
  'terserah Anda.. setelah ini akan apa...?
End Sub

Function Tampung(Hitung)
Dim Hasil As Integer
    Hasil = 0  'Inisialisasi variabel Hasil
    Hasil = Hasil + Hitung
    Text1.SetFocus  'Fokuskan kursor ke text1 kembali
    SendKeys "{Home}+{End}"  'Highlight text1
    Print "Kesempatan ke-" & Hasil  'Tampilkan sudah berapa kali salah password
End Function

Private Sub cmdCancel_Click()
  Unload Me    'Keluar dari program
End Sub

'Jika di text1 telah diisi, tombol OK siap dienter
Private Sub Text1_KeyPress(KeyAscii As Integer)
  cmdOK.Default = True
End Sub

selamat mencoba Wink

sumber : masino
Kembali Ke Atas Go down
Lihat profil user
 
Mengecek Password
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» masalah pengisian dibawah 12V
» indikator oli
» Vent Radiator mati..*ga ada suaranya
» wta: jarum rpm di speedo mati...
» CSS: Merubah gambar dan teks password register

Permissions in this forum:Anda tidak dapat menjawab topik
Komunitas Informatika Aneuk Nanggröe :: General Category :: Pemrograman :: Visual Basic-
Navigasi: