Langsung saja silakan desain programnya seperti gambar dibawah ini :
 | ||||||||
| Maka listing programnya seprti dibawah ini : 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("111A") GOLONGAN.Items.Add("111B") GOLONGAN.Items.Add("111C") 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" Case "A" : BAGIAN.Text = "ADMINISTRASI" Case "S" : BAGIAN.Text = "SECURITY" End Select X = Microsoft.VisualBasic.Mid(NIK.Text, 1, 2) Select Case X Case "K1" : NAMA.Text = "XXX" Case "K2" : NAMA.Text = "QQQ" Case "S1" : NAMA.Text = "WWW" Case "S2" : NAMA.Text = "EEE" Case "S3" : NAMA.Text = "RRR" Case "A1" : NAMA.Text = "YYY" Case "A2" : NAMA.Text = "UUU" Case "A3" : NAMA.Text = "III" End Select X = Microsoft.VisualBasic.Mid(NIK.Text, 2, 1) Select Case X Case "1" : jabatan.Text = "kepala bagian" Case "2" : jabatan.Text = "staff" Case "3" : jabatan.Text = "bendahara" 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.Right(GOLONGAN.Text, 1) Select Case X Case "A" : GAJI.Text = "2500000" Case "B" : GAJI.Text = "3000000" Case "C" : GAJI.Text = "3500000" End Select End Sub End Class |
