Membatasi Login yang salah Menggunakan VB-2008

       Hay Sobat Blogger, Kata-kata Login mungkin sudah tidak asing lagi bagi telinga kita, dan paling sering kita jumpai ketika kita hendak membua jejaring sosial yg bernama Facebook, ada yang belum pernah dengar nama itu, hehehe... gak mungkin la ya.. :D

ketika kita login dengan username dan password yang sesuai,

maka akan masuk kedalam halaman yang baru, dan jika tidak, maka kita tidak bisa masuk, Namun terdapat pertanyaan bagaimana jika kesalahan hanya kita bolehkan 3 kali saja,  Apabila tetap gagal, maka form login akan hilang

Pada program berikut ini berguna untuk Membatasi Login yang Salah sebanyak 3 kali menggunakan VB-2008.

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 menggunakan vb-2008, semoga bisa mengerti.

baca juga program pembayaran listrik vb-2008