TUGAS I

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = ""
txtnpm = ""
txtjr = ""
txtps = ""
txttm = ""
txtnu = ""
txtbp = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = ""
txtnpm = ""
txtjr = ""
txtps = ""
txttm = ""
txtnu = ""
txtbp = ""
End Sub


Private Sub cmdproses_Click()
Dim Z As String
txttm = "20" & Left(txtnpm, 2)
txtnu = Right(txtnpm, 3)
Z = Mid(txtnpm, 3, 1)
If Z = "1" Then
txtjr = "Sistem Informasi"
txtps = "Strata Satu"
txtbp = "1.950.000"
ElseIf Z = "2" Then
txtjr = "Teknik Informatika"
txtps = "diploma IV"
txtbp = "1.750.000"
ElseIf Z = "3" Then
txtjr = "Manajemen Informatika"
txtps = "Diploma III"
txtbp = "1.650.000"
ElseIf Z = "4" Then
txtjr = "Manajemen & Komp.Akuntansi"
txtps = "Diploma II"
txtbp = "1.450.000"
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub