Membuat Form Login Sederhana dengan VB

Aa Pemrograman , Tutorial Comment

1. Bukalah Program VB, lalu buatlah 2 buah form, biarkan nama form tetap pada default (Form1, Form2) .

2. Pada Form1 (di Propeties : Caption ubah dengan nama FORM LOGIN) dan tambahkan komponen seperti berikut

3 buah label (Captionnya : FORM LOGIN, Username : , Password :) .

3 buat textbox (Textnya : kosongka, dan pada textbox2 pada PasswordChar : isikan tanda tanya (?)).

2 buah commandbutton ((Captionnya : LOGIN dan EXIT ) .

3. Pada Form2 (di Propeties : Caption ubah dengan nama MENU) dan tambahkan komponen berikut

1 buah label (Captionnya : MENU UTAMA).

4. Buka form1 atau form loginnya. tapi akan saya jelaskan terlebih dahulu bahwa kita akan membuat suatu form login dimana jika orang salah memasukkan username atau password sampai 3 kali maka program tersebut akan tetutup dengan sendirinya. Dan disetiap orang tersebut salah memasukkan username atau password maka akan muncul message box peringatan

kalau begitu mari kita mulai dengan menuliskan kode untuk tombol EXIT / command2 dan berikut kodenya :

Private Sub Command2_Click()
pesan = MsgBox("Anda Yakin Mau Keluar ??", vbQuestion + vbYesNo, "Question")
If pesan = vbYes Then
End
Else
Form1.SetFocus
End If
End Sub

CATATAN :

pesan = MsgBox("Anda Yakin Mau Keluar ??", vbQuestion + vbYesNo, "Question") => untuk memunculkan pesan buat meyakinkan user ingin keluar atau tidak.

5. Selanjutnya membuat kode untuk tombol LOGIN / command1 dan berikut kodenya :

Dim login As Integer

kode di atas adalah bagian dari kode untuk tombol LOGIN gunanya untuk menjadikan login sebagai variabel angka atau integer. Kode tersebut di tulis di bagian atas seluruh kode. Dan berikut kode untuk LOGIN selanjutnya.

Private Sub Command1_Click()
User = Text1.Text
Password = Text2.Text
If User = "edwin" And Password = "123" Then
MsgBox "Selamat Datang"
Form2.Show
Form1.Hide
Else
login = login + 1
MsgBox "Anda salah memasukkan PassWord " & login & " kali"
If login = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi", vbExclamation
End If
If login = 3 Then
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka program ini akan kami tutup!", vbCritical
End
End If
End If
End Sub

CATATAN :

If User = "edwin" And Password = "123" Then => adalah nama user dan password

login = login + 1
MsgBox "Anda salah memasukkan PassWord " & login & " kali"
If login = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi", vbExclamation
End If
If login = 3 Then
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka program ini akan kami tutup!", vbCritical
End

potongan kode di atas adalah jika orang salah memasukkan username dan password maka akan muncul pesan kesempatan dia mencobanya lagi