Membuat Form Login Sederhana dengan VB

Membuat Form Login Sederhana dengan VB
Membuat Form Login Sederhana dengan VB

By ifa 29 Nov 2017, 19:14:48 WIB - Kategori: VB


 


Pada kali ini kita akan belajar bagaimana cara membuat  Form Login Sederhana dengan VB.langsung saja kita mulai.

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

 jika kesempatannya sudah habis, yaitu 3 kali kesempatan maka program ini akan di tutup.

6. Setelah semua selesai cobalah dengan menekan F5 dan masukkan user dan password dengan benar.

Sekian mengenai pembuatan Form Login Sederhana dengan programVisual Basic 6.0. Semoga sedikit tutorial ini dapat membantu dan bermanfaat.



ARTIKEL TERKAIT: