Responsi /Tanggapan
Jobsheet
NIM : 3202402029
NAMA : TARA AMELIA
KELAS : 3C
MAKUL : PEMROGRAMAN VISUAL
PERTEMUAN KE : 13
JOBSHEET : 20
RESPONSI/ TANGGAPAN/ RINGKASAN
1. Persiapan
Buat sheet login, dengan struktur, username dan password seperti ini:
Buat userform login seperti ini, dengan properti:
Nama Caption
txtUsername -
txtPassword -
btnLogin Login
Tambahkan kode ini pada btnLogin
Private Sub btnLogin_Click()
' Asumsi: Nama sheet data login adalah "DataLogin"
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim usernameInput As String
Dim passwordInput As String
' Mengatur sheet data
Set ws = [Link]("Login")
' Mengambil input dari TextBox
usernameInput = Trim([Link])
passwordInput = Trim([Link])
' Pengecekan Field Kosong
If usernameInput = "" Or passwordInput = "" Then
MsgBox "Mohon masukkan Username dan Password!", vbExclamation
[Link]
Exit Sub
End If
' Mencari baris terakhir data
lastRow = [Link]([Link], "A").End(xlUp).Row
' Loop untuk verifikasi login
For i = 2 To lastRow
' Verifikasi terhadap Kolom A (Username) dan Kolom B (Password)
If [Link](i, "A").Value = usernameInput And [Link](i, "B").Value = passwordInput Then
' 1. Tampilkan form Beranda
[Link]
' 2. Tutup/Sembunyikan form Login saat ini
[Link]
MsgBox "Selamat Datang, " & usernameInput & "!", vbInformation
Exit Sub ' Keluar dari sub setelah berhasil
End If
Next i
' --- LOGIN GAGAL (Jika loop selesai tanpa kecocokan) ---
MsgBox "Username atau Password salah!", vbCritical
' Bersihkan field password dan fokuskan kembali
[Link] = ""
[Link]
End Sub
Penjelasan:
a. Deklarasi Variabel
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim usernameInput As String
Dim passwordInput As String
ws: Variabel untuk menyimpan referensi worksheet.
lastRow: Menyimpan nomor baris terakhir yang berisi data.
i: Counter untuk loop.
usernameInput & passwordInput: Menyimpan input dari textbox.
b. Setup Worksheet
Set ws = [Link]("Login")
Mengatur worksheet "Login" sebagai sumber data login.
c. Ambil Input User
usernameInput = Trim([Link])
passwordInput = Trim([Link])
Mengambil nilai dari textbox username dan password.
Trim() digunakan untuk menghapus spasi di awal dan akhir input.
d. Validasi Field Kosong
If usernameInput = "" Or passwordInput = "" Then
MsgBox "Mohon masukkan Username dan Password!", vbExclamation
[Link]
Exit Sub
End If
Memastikan kedua field tidak kosong.
Jika kosong: tampilkan pesan, fokus ke username, dan keluar dari prosedur.
e. Cari Baris Terakhir Data
lastRow = [Link]([Link], "A").End(xlUp).Row
Menemukan baris terakhir yang berisi data di kolom A (menggunakan
teknik End(xlUp)).
f. Proses Verifikasi Login
For i = 2 To lastRow
If [Link](i, "A").Value = usernameInput And [Link](i, "B").Value = passwordInput
Then
Loop dari baris 2 sampai baris terakhir (asumsi baris 1 adalah header).
Memeriksa kecocokan username (kolom A) dan password (kolom B).
g. Handle Login Berhasil
[Link]
[Link]
MsgBox "Selamat Datang, " & usernameInput & "!", vbInformation
Exit Sub
Tampilkan form beranda
Sembunyikan form login saat ini
Tampilkan pesan selamat datang
Keluar dari procedure
h. Handle Login Gagal
MsgBox "Username atau Password salah!", vbCritical
[Link] = ""
[Link]
Tampilkan pesan error
Kosongkan field password
Fokus ke field password untuk input ulang
Hasil akhir:
Isikan password dan username, kemudian klik login.
Ketika berhasil login maka akan muncul message box seperti ini.
Dan akan otomatis terbuka form beranda.