Cara membuat form Login menggunakan VB

Kali ini saya akan mencoba berbagi ilmu yang saya dapatkan dari bangku kuliah mengenai Cara Membuat Form Login menggunakan VB. 

Oke, langsung saya kita ke topik pembahasan,untuk membuat sebuah form login cukup mudah. Yang perlu kita siapkan pertama tentu aplikasi VB-nya kedua kreatifitas tanpa batas :D. Pada Form login yang akan kita buat ini akan kita buat sebuah progress bar,sehingga akan terlihat lebih keren hehe.

Langkah-langkah :

1. Buka VB

2. Siapkan design seperti tampilan gambar diatas

3. buat tulisan Nama User, password menggunakan label , kemudian buat juga dua text field untuk menulis Nama User dan Password. kemudian sebuah tombol OK, progress bar (untuk menampilkan progres bar kita tekan ctrl+T kemudian beri tanda pada Microsoft Windows Common Control 6.0 (SP 6), dan timer

4. Langkah selanjutnya yaitu kita ketikkan skrip programnya.

5. Klik dua kali di tombol OK,kemudian ketikkan skrip dibawah

    Private Sub cmdok_Click ()

    Dim pesan As String

    pesan = ""

    If txtpass = "" Then

           pesan = "password belum diisi, " + pesan

           txtpass.SetFocus

   End If

   If txtuser = "" Then

           pesan = "user belum diisi, " + pesan

           txtuser.SetFocus

   End If

   If pesan <> "" Then

           MsgBox Left (pesan, Len(pesan) - 2), vbCritical + vbOKOnly, "PERINGATAN"

   Else

          pesan = ""

          If txtpass <> pass Then

                   pesan = "password salah, " + pesan

          End If

          If UCase (txtuser) <> user Then

                  pesan = "user tidak dikenal, " + pesan

          End If

          If pesan <> "" Then

                  MsgBox Left(pesan, Len(pesan) - 2, vbCritical + vbOKOnly, "PERINGATAN"

          Else 

                  Timer1.internal =1000

                  Timer1.Enable = True

End If

End Sub

6. Langkah selanjutnya adalah klik dua kali di form,ketikkan skrip dibawah

         Private Sub Form_Load()

         txtuser = ""

         txtpass = ""

         txtpass.PasswordChar = "*"

         ProgressBar1.Min = 0

         ProgressBar2.Max = 1000

         Timer1.Enable = False

         End Sub

7. Langkah selanjtnya klik sua kali di Timer,ketikkan skrip dibawah

           Private Sub Timer1_Timer ()

           Dim i%

           For i = ProgressBar1.Min To ProgressBar1.Max

           ProgressBar1.Value = i

           If ProgressBar1.Value = 1000 Then

           Unload Me

           Form2.Show

           End If

           Next

           End Sub

8. Langkah selanjutnya adalah membuat Module,fungsi dai Module ini adalah untuk menyimpan Nama User dan Password. Cara menambahkan Module pilih menu Project > Add Module. ketikkan skrip dibawah

           Public Const user As String = "ADMIN"

           Public Const pass As String = "abcde"

9. Langkah selanjutnya adalah menjalankan programnya, tekan tombol Play 

Terimakasih sekian dari saya,Selamat mencoba
Ini adalah video pembuatan Form Login