Struktur Keputusan
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")
gol.Items.Add("IIIA")
gol.Items.Add("IIIB")
gol.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"
Case
"A" : bagian.Text = "Administrasi"
Case
"S" : bagian.Text = "Security"
End
Select
Select
Case nik.Text
Case
"K1001" : nama.Text = "Yeni Anggraini"
Case
"K2003" : nama.Text = "Desi"
Case
"S1001" : nama.Text = "hindus"
Case
"S2002" : nama.Text = "Yoga"
Case
"S3003" : nama.Text = "Yudi"
Case
"A1001" : nama.Text = "imeh"
Case
"A2002" : nama.Text = "uli"
Case
"A3003" : nama.Text = "Yuni"
End
Select
x = Microsoft.VisualBasic.Mid(nik.Text,
2, 1)
Select
Case x
Case
"1" : Jabatan.Text = "Kepala Bagian"
Case
"2" : Jabatan.Text = " wakil"
End
Select
End
Sub
Private
Sub Btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkeluar.Click
End
End
Sub
Private
Sub gol_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
gol.SelectedIndexChanged
Select
Case gol.Text
Case
"IIIA" : gaji.Text = 2500000
Case
"IIIB" : gaji.Text = 3000000
Case
"IIIC" : gaji.Text = 3500000
End
Select
End
Sub
End Class
Postingan
0 komentar:
Posting Komentar