Membatasi Login Yang Salah Sebanyak 3 Kali Menggunakan VB Net

Sebelumnya saya pernah membahas masalah login aplikasi pada artikel membuat form login aplikasi menggunakan vb net. Namun terdapat pertanyaan bagaimana jika kesalahan sudah lebih dari 3 kali maka login akan hilang. Hal ini dikarenakan kesempatan hanya di berikan cuma 3 kali untuk login. Apabila tetap gagal, maka form login akan hilang.


Pada program berikut ini berguna untuk membatasi login yang salah sebanyak 3 kali menggunakan vb net.

Public Class Form1

    Dim kesempatan As Byte   'tambah ini

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Password.PasswordChar = "*"

        kesempatan = 0   'tambah ini

    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

        If Username.Text = "Aku" And Password.Text = "Sayang" Then

            MsgBox("Selamat Datang", MsgBoxStyle.Information, "Login Success")

            Me.Hide()

            'FormMenu.Show()

        ElseIf Username.Text = "Dia" And Password.Text = "Oke" Then

            MsgBox("Selamat Datang", MsgBoxStyle.Information, "Login Success")

            Me.Hide()

            'FormMenu.Show()

        Else

            MsgBox("Maaf !, Password anda salah !", MsgBoxStyle.Information, "Login Gagal")

            Username.Text = ""

            Password.Text = ""

            Username.Focus()

            kesempatan = kesempatan + 1   'tambah ini

            If kesempatan >= 3 Then

                MsgBox("Maaf !, Anda sudah " & kesempatan & " kali salah !", MsgBoxStyle.Information, "Login Gagal")   'tambah ini

                End  'tambah ini

            End If  'tambah ini

        End If

    End Sub

End Class

Bagian program yang ditambah yang terdapat keterangan 'tambah ini pada program diatas.

Demikianlah artikel membatasi login yang salah sebanyak 3 kali menggunakan VB Net, semoga bisa mengerti.

Happy Programming.