Tugas 3 Program 7

Private Sub cmdbatal_Click()

txtkb = ""

Txtjb = ""

Txtp = ""

Txttt = ""

Txtpn = ""

Txthar = ""

txtkb.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkb = ""

Txtjb = ""

Txtp = ""

Txttt = ""

Txtpn = ""

Txthar = ""

txtkb.SetFocus

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

Private Sub Form_Load()

End Sub