TUGAS BP1 (PROGRAM I)

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = ""

txtnpm = ""

txtjurusan = ""

txtpstudi = ""

txttahun = ""

txtnurut = ""

txtbp = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = ""

txtnpm = ""

txtjurusan = ""

txtpstudi = ""

txttahun = ""

txtnurut = ""

txtbp = ""

End Sub

Private Sub cmdproses_Click()

Dim Z As String

txttahun = "20" & Left(txtnpm, 2)

txtnurut = Right(txtnpm, 3)

Z = Mid(txtnpm, 3, 1)

If Z = "1" Then

txtjurusan = "Sistem Informasi"

ElseIf Z = "2" Then

txtjurusan = "Tehnik Informatika"

ElseIf Z = "3" Then

txtjurusan = "Manajemen Informatika"

ElseIf Z = "4" Then

txtjurusan = "Manajemen & Komp.Akuntansi"

End If

Dim Q As String

Q = Mid(txtnpm, 4, 2)

If Q = "01" Then

txtpstudi = "Strata Satu"

txtbp = "1950000"

ElseIf Q = "02" Then

txtpstudi = "Diploma Empat"

txtbp = "1750000"

ElseIf Q = "03" Then

txtpstudi = "Diploma Tiga"

txtbp = "1650000"

ElseIf Q = "04" Then

txtpstudi = "Diploma Dua"

txtbp = "1450000"

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub