Searching...
Friday, 4 April 2014

Cara membuat form Login menggunakan VB

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


0 komentar:

Post a Comment