Tugas 4.4

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtp = ""

txttt = ""

txtpn = ""

txthar = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtp = ""

txttt = ""

txtpn = ""

txthar = ""

End Sub

Private Sub cmdproses_Click()

Dim k, jb, pen, har As String

txttt = "20" & Mid(txtkb, 5, 2)

k = Left(txtkb, 3)

If k = "SIM" Then

jb = "Sistem Informasi Manajemen"

pen = "fadiya ulfa"

har = "75900"

ElseIf k = "EDP" Then

jb = "Elektronik Data Processing"

pen = "Nurul Agustina"

har = "62000"

ElseIf k = "MNJ" Then

jb = "Manajemen"

pen = "Rian Hidayat"

har = "42000"

ElseIf k = "CDR" Then

jb = "Corel Draw"

pen = "Siti Nur Khotimah"

har = "53000"

ElseIf k = "RPL" Then

jb = "Rekaya Perangkat Lunak"

pen = "Winda Erlanti"

har = "83000"

End If

txtjb.Text = jb

txtp.Text = pen

txthar = har

k = Right(txtkb, 1)

If k = "A" Then

pen = "Andi Offset Yogyakarta"

ElseIf k = "I" Then

pen = "Indah Surabaya"

ElseIf k = "S" Then

pen = "Salemba Empat"

ElseIf k = "E" Then

pen = "Elek Media Komputindo"

ElseIf k = "M" Then

pen = "Maxicom"

End If

txtpn.Text = pen

End Sub