QUIS 2

QUIS2

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtnm.Text = “”

Txtnpm.Text = “”

Txtjr.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txtnourut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjr.Text = “sistem informatika”

ElseIf S = “2” Then

Txtjr.Text = ” manajemen informatika”

ElseIf S = “3” Then

Txtjr.Text = “manajemen informatika&akutansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “strata satu”

ElseIf S = “02” Then

Txtps.Text = “diploma tiga”

ElseIf S = “03” Then

Txtps.Text = “diploma empat”

ElseIf S = “04” Then

Txtps.Text = “diploma dua”

End If

Txtnourut.Text = Right(Txtnpm.Text, 3)

End Sub