Jawaban
Soal No.3
Nama :LAHUDDIN
NPM :0911062
-
Listing Program Form
Login
Public Class Form1
Private Sub Process_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Process.Click
If
UserName.Text = "Lahuddin Lubis" And Pasword.Text = "Lubis"
Then
Form_karyawan.Show()
Me.Hide()
Else
MsgBox("Pasord
Anda Salah...Tray Agai")
UserName.Text = ""
Pasword.Text = ""
End If
End Sub
End Class
-
Listing Program Form
Karyawan
Private Sub Nip_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Nip.SelectedIndexChanged
If
Nip.Text = "000011" Then
Nama.Text = "Lahuddin Lubis"
ElseIf
Nip.Text = "000012" Then
Nama.Text = "Ikbal Lubis"
Else
Nama.Text = "Andri Agasi Lubis"
End If
End Sub