PROGRAM STUDI

Gambar

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command3_Click()
End
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command4_Click()
Dim A, JS, PS, ASSTRING
Text6.Text = “20” & Left(Text2.Text, 2)
A = Mid(Text2.Text, 3, 1)
If A = “1” Then
jr = “SISTEM INFORMASI”
ElseIf A = “2” Then
jr = “manajemen informatiaka”
ElseIf A = “3” Then
jr = “teknik informasi”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
Text4.Text = jr
A = Mid(Text2.Text, 4, 2)
If A = “00” Then
PS = “strata satu”
ElseIf A = “01” Then
PS = “diploma empat”
ElseIf A = “02” Then
PS = “diploma tiga”
ElseIf A = “03” Then
PS = “diploma dua”
End If
Text5.Text = PS
Text7.Text = Right(Text2.Text, 3)
End Sub

This entry was posted in Uncategorized. Bookmark the permalink.

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