VB.NET: Membuat Login Form

Warning ^_^!
Tutorial ini serial yang saling berhubungan, jadi pastikan sebelumnya telah membaca & memahami artikel berikut:
Membuat Project/Solution Baru
Menambah Form Baru
Membuat Splash Form
Memilih Form sebagai StartUp 

Visual studio juga menyediakan template untuk login form, tambahkan new item dengan klik kanan pada project di Solution Explorer -> Add -> New Item...

Pada kategori Common Item pilih Template Login Form, beri nama kemudian klik tombol Add.

Sebuah template form login akan ditambahkan.

Skenario program yang akan kita buat adalah saat aplikasi dijalankan akan menampilkan splash screen selama 3 detik kemudian form login akan ditampilkan.
Karena itu kita tambahkan component Timer pada frmSplashScreen.

Kemudian mengatur property Enabled = True dan Interval = 3000 (3 detik = 3000 milisecond).

Kode yang diketikan pada event timer:
Private Sub Timer1_Tick(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Timer1.Tick
    frmLogin.Show()
    Me.Close()
End Sub

Pada project Properties, pastikan Shutdown Mode = When Last Form Closes.

Langkah selanjutnya kita akan membuat prosedure login sederhana dengan skenario sebagai berikut:

• Username yang digunakan admin dan password keyadmin.
• Jika user salah memasukan username/password maka akan diberi pesan peringatan sampai 3 kali.
• Jika sampai 3 kali salah memasukan username/password maka aplikasi akan dimatikan.
• Jika user menginputkan dengan benar username/password maka akan muncul pesan berhasil, frmLogin akan tertutup dan Form1 akan terbuka.

Ubah code pada frmLogin menjadi code berikut:
Public Class frmLogin

  Dim iKesalahan As Integer
  Private Sub frmLogin_Load(ByVal sender As System.Object, _
              ByVal e As System.EventArgs) Handles MyBase.Load
      iKesalahan = 0
  End Sub

  Private Sub OK_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles OK.Click
      If UsernameTextBox.Text = "admin" And _
         PasswordTextBox.Text = "keyadmin" Then
          MsgBox("Login aktif untuk " & UsernameTextBox.Text)
          Form1.Show()
          Me.Close()
      Else
          iKesalahan = iKesalahan + 1
          MsgBox("Kesalahan login ke- " & iKesalahan)
          If iKesalahan >= 3 Then Me.Close()
      End If
  End Sub

  Private Sub Cancel_Click(ByVal sender As System.Object, _
              ByVal e As System.EventArgs) Handles Cancel.Click
      Me.Close()
  End Sub

End Class

Contoh runtime saat login berhasil:

Click here if you like this article.