praktikum satu VB 6.0

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 11, 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: