tugas 8

Private Sub kosong()

Textkode.SetFocus

Textkode.Text = “”

Textjb.Text = “”

Textpg.Text = “”

Texttt.Text = “”

Textpe.Text = “”

Textha.Text = “”

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim b As String

b = Mid(Textkode.Text, 1, 3)

If b = “SIM” Then

Textjb.Text = “Sistem Informasi Manajemen”

Textpg.Text = “Fadiya Ulfa”

Textha.Text = “75900”

ElseIf b = “EDP” Then

Textjb.Text = “Elektronika Data Processig”

Textpg.Text = “Nurul Agustina”

Textha.Text = “62000”

ElseIf b = “MNJ” Then

Textjb.Text = “Manajemen”

Textpg.Text = “Rian Hidayat”

Textha.Text = “42000”

ElseIf b = “CDR” Then

Textjb.Text = “Corel Draw”

Textpg.Text = “Siti Nur Khotimah”

Textha.Text = “53000”

ElseIf b = “RPL” Then

Textjb.Text = “Rekayasa Perangkat Lunak”

Textpg.Text = “Winda Erlianti”

Textha.Text = “83000”

End If

b = Mid(Textkode.Text, 8, 1)

If b = “A” Then

Textpe.Text = “Andi Offset Yogyakarta”

ElseIf b = “I” Then

Textpe.Text = “Indah Surabaya”

ElseIf b = “S” Then

Textpe.Text = “Salemba Empat”

ElseIf b = “E” Then

Textpe.Text = “Elek Media Komputindo”

ElseIf b = “M” Then

Textpe.Text = “Maxicom”

End If

Texttt.Text = “20” & Mid(Textkode.Text, 5, 2)

End Sub