Listing Programnya :
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Nik.Items.Add("K1001")
Nik.Items.Add("K2003")
Nik.Items.Add("S1001")
Nik.Items.Add("S2002")
Nik.Items.Add("S3003")
Nik.Items.Add("A1001")
Nik.Items.Add("A2002")
Nik.Items.Add("A3003")
Golongan.Items.Add("IIIA")
Golongan.Items.Add("IIIB")
Golongan.Items.Add("IIIC")
End Sub
Private Sub Nik_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Nik.SelectedIndexChanged
Dim X As String
X =
Microsoft.VisualBasic.Left(Nik.Text, 1)
Select Case X
Case
"K"
Bagian.Text = "Keuangan"
Nama.Text = "Muhammad Syahril"
Case
"A"
Bagian.Text = "Administrasi"
Nama.Text = "Rina Miranda"
Case
"S"
Bagian.Text = "Pengamanan"
Nama.Text = "Soni sugiarto"
End Select
X = Microsoft.VisualBasic.Mid(Nik.Text,
2, 1)
Select Case X
Case
"1"
Jabatan.Text = "bedahara"
Case
"2"
Jabatan.Text = "Serkertaris"
Case
"3"
Jabatan.Text = "Security"
End Select
End Sub
Private Sub Golongan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Golongan.SelectedIndexChanged
Dim X As String
X =
Microsoft.VisualBasic.Left(Golongan.Text, 4)
Select Case X
Case
"IIIA"
Gaji.Text = "2500000"
Case
"IIIB"
Gaji.Text = "3000000"
Case
"IIIC"
Gaji.Text = "3500000"
End Select
End Sub
End Class
Berikut Hasilnya :
.jpg)
.jpg)
