Cara Membatasi Jumlah Login Sampai Jumlah Tertentu dengan Visual Basic 6.0 - Selamat pagi para pengunjung setia tip dan tri visual basic. Pada kesempatan pagi kali ini tip dan trik visual basic akan memberikan sebuah tip yaitu membatasi jumlah kesalahan login sampai dengan jumlah tertentu.
Mungkin bagi Anda yang sering melakukan transaksi via ATM tidak asing lagi yang namanya memasukin PIN untuk bisa masuk dan menggunakan mesin ATM untuk melaukan transaksi per-Bank-kan misalnya mengambil uang. PIN disini berfungsi sebagai kata sandi yang sangat rahasia yang tidak boleh orang lain tau dan kita sebagai pemiliknya harus menghapal PIN tersebut.Bagaimana kalau kita tidak hapal dengan PIN yang kita punya, maka kita hanya bisa menduga-duga sembarang PIN dan alhasil kemungkinanan besar terjadi kesalahan memasukan PIN sehingga kita tidak bisa masuk untuk melakukan transaksi tersebut. Apalagi kesalahan sudah mencapai 3 kali dan kemungkinan besar kartu Anda akan terblokir.
Dengan pembatasan pemasukan kesalahan PIN ini bertujuan untuk menjaga hal yang kita tidak inginkan misalnya terjadi pencurian kartu ATM.
Sekarang langsung topik permasalahan.Maksud dari judul diatas adalah bagaimana membuat sebuah form login yang bisa membatasi jumlah kesalahan dalam memasukan password layaknya dalam sebuah mesin ATM,bedanya ketika kita salah memasukan password sebayak jumlah tertentu maka pada kesalahn terakhir Form akan keluar secara otomatis.
Pada pertemuan kali ini tip dan trik visual basic akan membahasnya dan berikut adalah langkah-langkah dalam pembuatannya :
1. Buka Project Visual Basic 6.0,pilih Form Standar EXE.
2. Tanamkan 2 TexBox, 1 CommandButton dan beberapa Label di Form
3. Desainlah form seperti gambar dibawah ini:
 |
| Form Desain |
4. Setelah selesai mendesai form, kemudian buka jendela kode dan ketikan kode dibawah ini
'====================================================
'Created by :http://tipandtrickunikvb.blogsppot.com
'Date :27-08-2016
'====================================================
Dim a As Byte
Private Sub Command1_Click()
If Text2.Text = "123456" Then '1233456 adalah passwor Anda
'jika benar
MsgBox "Password Anda " + Text2.Text + " berhasil Login", vbOKOnly, "Login Suksess"
Else
'jika salah
a = a + 1
If 1 - a = 0 Then
MsgBox "Kesempatan ke " & a & " salah, silahkan ulangi lagi", vbOKOnly + vbCritical, "Password salah"
Text2.SetFocus
ElseIf 2 - a = 0 Then
MsgBox "Kesempatan ke " & a & " salah , silahkan ulangi lagi", vbOKOnly + vbCritical, "Password salah"
Text2.SetFocus
ElseIf 3 - a = 0 Then
MsgBox "Kesempatan ke " & a & " salah , kesempatan habis silahkan tunggu beberapa saat", vbOKOnly + vbCritical, "Password salah"
'kesempatan habis akan keluar otomatis
Unload Me
End If
End If
End Sub
Private Sub Form_Load()
'mengosongkan TextBox dan panjang password
Text1.Text = ""
Text2.Text = ""
Text2.MaxLength = 6
Text2.PasswordChar = "*"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'jika di tekan enter fokus ke Text2 atau pengisian password
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
'jika di tekan enter fokus ke Command1 atau tombol login
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
5. Kemudian simpan hasil pekerjaan Anda dan jalankan Program.Berikut Hasil Screeshoot-nya dibawah ini :
Sekian tip kali ini tentang Cara Membatasi Jumlah Login Sampai Jumlah Tertentu dengan Visual Basic 6.0. Semoga nermanfaat, selamat mencoba semoga sukses.....
No comments:
Post a Comment