Private Sub cmdbatal_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

txtnpm.Text = “”

txtkls.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtup.Text = “”

txtbps.Text = “”

txtub.Text = “”

txtbpa.Text = “”

txttotal.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

txtnpm.Text = “”

txtkls.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtup.Text = “”

txtbps.Text = “”

txtub.Text = “”

txtbpa.Text = “”

txttotal.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim jb As String

jb = Left(txtnpm.Text, 1)

If jb = “E” Then

txtkls.Text = “EKSEKUTIF”

ElseIf jb = “R” Then

txtkls.Text = “REGULER”

End If

jb = Mid(txtnpm.Text, 3, 2)

txttm.Text = “20” & Mid(txtnpm.Text, 3, 2)

jb = Mid(txtnpm.Text, 5, 1)

If jb = “1” Then

txtjur.Text = “Sistem informasi”

ElseIf jb = “2” Then

txtjur.Text = “Menejemen Informatika”

ElseIf jb = “3” Then

txtjur.Text = “Menejemen & Komp Akuntansi”

End If

jb = Right(txtnpm.Text, 3)

txtnu.Text = jb

If txtkls.Text = “Eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then

txtup.Text = 200000

ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtup.Text = 150000

End If

If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Starta Satu” Then

txtbps.Text = 190000

ElseIf txtprodi.Text = “Diploma Tiga” Then

txtbps.Text = 1650000

ElseIf txtprodi.Text = “Diploma Satu” Then

txtbps.Text = 1350000

End If

If txtkls.Text = “reguler” Or txtprodi.Text = “Strata Satu” Then

txtbps.Text = 1500000

ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtbps.Text = 1250000

End If

If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Starta Satu” Or txtprodi.Text = “Diploma Satu” Then

txtub.Text = 1250000

ElseIf txtkls.Text = “Eksekutif” Or txtprodi.Text = “Starta Satu” Or txtprodi.Text = “Diploma Satu” Then

txtub.Text = 1000000

End If

If txtkls.Text = “eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then

txtbpa.Text = 600000

End If

txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbpa.Text)

txttotal.SetFocus

End Sub

Private Sub txtNAMA_Keypress(keyAscii As Integer)

If keyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub