PT SAYA

RUMUSNYA ADALAH :
Private Sub Text10_keypress(keyascii As Integer)
If keyascii = 13 Then
Text11.SetFocus
End If
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
End Sub

Private Sub Command1_Click()
Text4 = Left(Text11.Text, 4)
G = Mid(Text11.Text, 5, 1)
If G = “A” Then
Text1 = “A”
Text5 = “Manager”
Text7 = “4000000”
Text8 = “1025000”
ElseIf G = “B” Then
Text1 = “B”
Text5 = “Ka.Seksi”
Text7 = “3500000”
Text8 = “975000”
ElseIf G = “C” Then
Text1 = “C”
Text5 = “Staff”
Text7 = “3000000”
Text8 = “925000”
End If
S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2 = “S”
Text3 = “Single”
ElseIf S = “M” Then
Text2 = “M”
Text3 = “Menikah”
ElseIf S = “J” Then
Text2 = “J”
Text3 = “Janda”
ElseIf S = “D” Then
Text2 = “D”
Text3 = “Duda”
End If
B = Right(Text11.Text, 3)
If B = “KEU” Then
Text6 = “Accounting”
ElseIf B = “ADM” Then
Text6 = “Administrasi”
ElseIf B = “SDM” Then
Text6 = “general affair”
ElseIf B = “EDP” Then
Text6 = “IT Unit”
ElseIf B = “SPM” Then
Text6 = “Security”
End If
Text9 = Val(Text7.Text) + Val(Text8.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