3.4 tugas visual basic

 Private Sub Cmdbatal_Click()

cbokode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

cbokode.SetFocus



End Sub



Private Sub Cmdkeluar_Click()

End

End Sub



Private Sub Cmdlagi_Click()

cbokode.SetFocus

cbokode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""



End Sub



Private Sub cmdproses_Click()

Dim R As String

txttahun.Text = "20" & Mid(cbokode.Text, 5, 2)

R = Left(cbokode.Text, 3)

If R = "SIM" Then

txtjudul.Text = "Sistem Informasi Manajemen"

txtpengarang.Text = "Fadiya Ulfa"

txtharga.Text = "75900"

ElseIf R = "EDP" Then

txtjudul.Text = "Elektronik Data Processing"

txtpengarang.Text = "Nurul Agustina"

txtharga.Text = "62000"

ElseIf R = "MNJ" Then

txtjudul.Text = "Manajemen"

txtpengarang.Text = "Rian Hidayat"

txtharga.Text = "42000"

ElseIf R = "CDR" Then

txtjudul.Text = "Corel Draw"

txtpengarang.Text = "Siti Nur Khotimah"

txtharga.Text = "53000"

ElseIf R = "RPL" Then

txtjudul.Text = "Rekayasa Perangkat Lunak"

txtpengarang.Text = "Winda Erlianti"

txtharga.Text = "83000"

End If



R = Right(cbokode.Text, 1)

If R = "A" Then

txtpenerbit.Text = "Andi Offset Yogyakarta"

ElseIf R = "I" Then

txtpenerbit.Text = "Indah Surabaya"

ElseIf R = "S" Then

txtpenerbit.Text = "Salemba Empat"

ElseIf R = "E" Then

txtpenerbit.Text = "Elek Media Komputindo"

ElseIf R = "M" Then

txtpenerbit.Text = "Maxicom"

End If

End Sub



Private Sub Form_Load()

cbokode.AddItem "SIM-09-A"

cbokode.AddItem "EDP-10-I"

cbokode.AddItem "MNJ-11-S"

cbokode.AddItem "CDR-12-E"

cbokode.AddItem "RPL-13-M"

End Sub