PRAKTIKUM VB

Private Sub Command1_Click()

Dim S As String

Text4.Text = Mid(Text11, 2, 4)

S = Left(Text11.Text, 1)

If S = “A” Then

Text1.Text = S

Text5.Text = “MANAGER”

Text7.Text = “2500000”

Text8.Text = “625000”

 

ElseIf S = “B” Then

Text1.Text = S

Text5.Text = “KA SEKSI”

Text7.Text = “1500000”

Text8.Text = “375000”

 

ElseIf S = “C” Then

Text1.Text = S

Text5.Text = “STAFF”

Text7.Text = “1000000”

Text8.Text = “250000”

End If

Text8.Text = Val(Text8.Text)

Text7.Text = Val(Text7.Text)

Text9.Text = Val(Text8.Text) + Val(Text7.Text)

 

 

Text2.Text = Mid(Text11.Text, 6, 3)

If Text2.Text = “KEU” Then

Text6.Text = “ACCOUNTING”

ElseIf Text2 = “ADM” Then

Text6.Text = “ADMINISTRATION”

ElseIf Text2 = “SDM” Then

Text6.Text = “GENERAL AFFAIR”

ElseIf Text2 = “EDP” Then

Text6.Text = “IT UNIT”

ElseIf Text2 = “SPM” Then

Text6.Text = “SECURITY”

End If

Text2 = Right(Text11, 1)

If Text2 = “M” Then

Text2.Text = “M”

Text3.Text = “MENIKAH”

ElseIf Text2 = “S” Then

Text2.Text = “S”

Text3.Text = “SINGGEL”

ElseIf Text2 = “J” Then

Text2.Text = “J”

Text3.Text = “JANDA”

ElseIf Text2 = “D” Then

Text2.Text = “D”

Text3.Text = “DUDA”

End If

End Sub

 

Private Sub Command2_Click()

Text10.Text = “”

Text11.Text = “”

Text10.SetFocus

End Sub

 

Private Sub Command3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text10.SetFocus

 

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Command1_Click()

Dim S As String

Text4.Text = Mid(Text11, 2, 4)

S = Left(Text11.Text, 1)

If S = “A” Then

Text1.Text = S

Text5.Text = “MANAGER”

Text7.Text = “2500000”

Text8.Text = “625000”

 

ElseIf S = “B” Then

Text1.Text = S

Text5.Text = “KA SEKSI”

Text7.Text = “1500000”

Text8.Text = “375000”

 

ElseIf S = “C” Then

Text1.Text = S

Text5.Text = “STAFF”

Text7.Text = “1000000”

Text8.Text = “250000”

End If

Text8.Text = Val(Text8.Text)

Text7.Text = Val(Text7.Text)

Text9.Text = Val(Text8.Text) + Val(Text7.Text)

 

 

Text2.Text = Mid(Text11.Text, 6, 3)

If Text2.Text = “KEU” Then

Text6.Text = “ACCOUNTING”

ElseIf Text2 = “ADM” Then

Text6.Text = “ADMINISTRATION”

ElseIf Text2 = “SDM” Then

Text6.Text = “GENERAL AFFAIR”

ElseIf Text2 = “EDP” Then

Text6.Text = “IT UNIT”

ElseIf Text2 = “SPM” Then

Text6.Text = “SECURITY”

End If

Text2 = Right(Text11, 1)

If Text2 = “M” Then

Text2.Text = “M”

Text3.Text = “MENIKAH”

ElseIf Text2 = “S” Then

Text2.Text = “S”

Text3.Text = “SINGGEL”

ElseIf Text2 = “J” Then

Text2.Text = “J”

Text3.Text = “JANDA”

ElseIf Text2 = “D” Then

Text2.Text = “D”

Text3.Text = “DUDA”

End If

End Sub

 

Private Sub Command2_Click()

Text10.Text = “”

Text11.Text = “”

Text10.SetFocus

End Sub

 

Private Sub Command3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text10.SetFocus

 

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

About irfanstmik

KEJUJURAN ADALAH MODAL UTAMA UNTUK MEMPEROLEH KEPERCAYAAN

Posted on January 13, 2012, in Uncategorized. Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: