Imports System

​

Module Program

​

    ' Kelas Pengguna dengan properti dan metode

    Public Class Pengguna

        Public Property Username As String

        Public Property Password As String

​

        ' Metode untuk "memicu event" validasi login

        Public Sub Login()

                    If Username = "Nauval Tamadika" And Password = "1414" Then

                LoginBerhasil()

            Else

                LoginGagal()

            End If

        End Sub

​

        Private Sub LoginBerhasil()

            Console.WriteLine("Login berhasil. Selamat datang, " & Username & "!")

        End Sub

​

        Private Sub LoginGagal()

            Console.WriteLine("Login gagal. Username atau password salah.")

        End Sub

    End Class

​

    Sub Main()

        ' Membuat objek pengguna

        Dim user As New Pengguna()

​

        ' Input username

        Console.Write("Masukkan Username: ")

        user.Username = Console.ReadLine()

​

        ' Input password

        Console.Write("Masukkan Password: ")

        user.Password = Console.ReadLine()

​

        Console.WriteLine()

​

        ' Memanggil metode login

        user.Login()

​

        Console.WriteLine()

        Console.WriteLine("Tekan tombol apa saja untuk keluar...")

        Console.ReadKey()

    End Sub

​

End Module

​