Login menggunakan Visual Basic

ini adalah cara membuat login menggunakan Visual Basic,, dalam penggunaan ini sangat mudah dalam pembuatannya... kalau pengen tau pembuatannya silahkan dipratekkan ya kawan kawan...

di bawah ini adalah cara membuatnya... 

login from

User ID : |_____________|

Password : |_____________|

|__login___|     |___keluar__||



Atau Seperti ini :
login from


User ID : |____________v||

Password : |_____________|

|__login___|     |___keluar__||



Sekarang Tinggal sobat yang tentukan lebih suka dengan meggunakan yang mana??
Untuk form yang pertama cara nya masukan bentuk perintah nya adalah seperti ini :

Kode di Form Load
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox1.Focus()
End Sub

Kode di Button Login
If Me.TextBox1.Text = "User" And Me.TextBox2.Text = "123" Then
MsgBox("User and Pasword OK")
Me.Hide()
form2.show()
Else
MsgBox("Login Salah")
Exit Sub
End If
End Sub

Kode di Button Keluar :
 Dim pesan As String
        pesan = MsgBox("Keluar Dari Aplikasi??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If pesan = vbYes Then
            Me.Close()
        End If
    End Sub

Untuk form yang kedua maka kode yang  harus sobat masukan adalah seperti ini :
Kode di Form Load
Me.ComboBox1.Items.Add("Fajar345")
Me.ComboBox1.Items.Add("User2")

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox1.Focus()
End Sub

 Kode di Button Login
 If Me.ComboBox1.Text = "User1" And Me.TextBox2.Text = "123" Or Me.ComboBox1.Text = "User2" And Me.TextBox2.Text = "234" Then
            MsgBox("OK Masuk")
            Me.Hide()
            'form2.show()
        Else
            MsgBox("Pasword Salah")
            Exit Sub

        End If
    End Sub
Kode di Button Keluar :
 Dim pesan As String
        pesan = MsgBox("Keluar Dari Aplikasi??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If pesan = vbYes Then
            Me.Close()
        End If
    End Sub

*)Agar text di password bentuknya (*) atau (#) atau ($) Sobat ubah PasswordChar nya yang ada di menu properties

bila ada kesalahan scrip atau bug dalam vb mohon dicoment ya kawan....

Selamat mencoba dan dipraktekkan hingga Berhasil yaa kawan kawanku....
hhehehehehe