UTS Bahasa Pemograman Visual Basic.Net

UTS Mata Kuliah Pemograman Visual Basic.net Eresha Wikrama Kelas B

Program Login

Program ini berfungsi untuk memfilter awal masuknya user untuk penggunaan applikasi yang kita buat agar tidak disalah gunakan oleh pihak yang tidak berkepentingan.

Berikut ini adalah source code pembuatan applikasi login :

Public Class Form1

    Private Sub buttonLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonLogin.Click
       
        If textUserId.Text = "fahmi" And textPassword.Text = "123" Then
            Timer1.Start()
        Else
            MsgBox("Username dan Password salah !")
            textUserId.Text = ""
            textPassword.Text = ""
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            MsgBox("Login sukses !")
        End If

    End Sub
End Class