PT.PULANG PAGI SETIAP HARI

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnik = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnik = “”
txtgol = “”
txtks = “”
txts = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttj = “”
txttg = “”
txtterbilang = “”
End Sub
Private Sub cmdproses_Click()
Dim NIK As String
NIK = Mid(txtnik.Text, 9, 1)
If NIK = “A” Then
txtgol.Text = “A”
txtjb.Text = “MANAGER”
txtgp.Text = “3000000”
txttj.Text = “875000”
ElseIf NIK = “B” Then
txtgol.Text = “B”
txtjb.Text = “KA. SEKSI”
txtgp.Text = “2500000”
txttj.Text = “525000”
ElseIf NIK = “C” Then
txtgol.Text = “C”
txtjb.Text = “STAF”
txtgp.Text = “2000000”
txttj.Text = “325000”
End If
NIK = Mid(txtnik.Text, 5, 4)
txtth.Text = NIK
NIK = Right(txtnik.Text, 1)
If NIK = “S” Then
txtks = “S”
txts.Text = “SINGLE”
ElseIf NIK = “D” Then
txtks.Text = “D”
txts.Text = “DUDA”
ElseIf NIK = “M” Then
txtks.Text = “M”
txts.Text = “MENIKAH”
ElseIf NIK = “J” Then
txtks.Text = “J”
txts.Text = “JANDA”
End If
NIK = Left(txtnik.Text, 3)
If NIK = “EDP” Then
txtbg.Text = “IT UNIT”
ElseIf NIK = “ADM” Then
txtbg.Text = “ADMINISTRASI”
ElseIf NIK = “SPM” Then
txtbg.Text = “SECURITY”
ElseIf NIK = “KEU” Then
txtbg.Text = “ACCOUNTING”
ElseIf NIK = “SDM” Then
txtbg.Text = “GENERAL AFFAIR”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s