tugas 3

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

Private Sub Txtkode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p, h As String

kode = Left(Txtkode.Text, 3)

If kode = “SIM” Then

Txtjudul.Text = “Sistem Informasi Manajemen”

Txtpengarang.Text = “Fadiya Ulfa”

Txtharga.Text = “79500”

ElseIf kode = “EDP” Then

Txtjudul.Text = “Elektronik Data Procesing”

Txtpengarang.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf kode = “MNJ” Then

Txtjudul.Text = “Manajemen”

Txtpengarang.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf kode = “CDR” Then

Txtjudul.Text = “Corel Draw”

Txtpengarang.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf kode = “RPL” Then

Txtjudul.Text = “Rekayasa Perngkat Lunak”

Txtpengarang.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

kode = Mid(Txtkode.Text, 8, 1)

If kode = “A” Then

Txtpenerbit.Text = “Andi Offest Yogyakarta”

ElseIf kode = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf kode = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf kode = “E” Then

Txtpenerbit.Text = “Elek Media Kompotindo”

ElseIf kode = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)

End If

End Sub

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

Private Sub Cmdproses_Click()

Dim k, j, p, h As String

kode = Left(Txtkode.Text, 3)

If kode = “SIM” Then

Txtjudul.Text = “Sistem Informasi Manajemen”

Txtpengarang.Text = “Fadiya Ulfa”

Txtharga.Text = “79500”

ElseIf kode = “EDP” Then

Txtjudul.Text = “Elektronik Data Procesing”

Txtpengarang.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf kode = “MNJ” Then

Txtjudul.Text = “Manajemen”

Txtpengarang.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf kode = “CDR” Then

Txtjudul.Text = “Corel Draw”

Txtpengarang.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf kode = “RPL” Then

Txtjudul.Text = “Rekayasa Perngkat Lunak”

Txtpengarang.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

kode = Mid(Txtkode.Text, 8, 1)

If kode = “A” Then

Txtpenerbit.Text = “Andi Offest Yogyakarta”

ElseIf kode = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf kode = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf kode = “E” Then

Txtpenerbit.Text = “Elek Media Kompotindo”

ElseIf kode = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)

End Sub

Private Sub Txtkode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p, h As String

kode = Left(Txtkode.Text, 3)

If kode = “SIM” Then

Txtjudul.Text = “Sistem Informasi Manajemen”

Txtpengarang.Text = “Fadiya Ulfa”

Txtharga.Text = “79500”

ElseIf kode = “EDP” Then

Txtjudul.Text = “Elektronik Data Procesing”

Txtpengarang.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf kode = “MNJ” Then

Txtjudul.Text = “Manajemen”

Txtpengarang.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf kode = “CDR” Then

Txtjudul.Text = “Corel Draw”

Txtpengarang.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf kode = “RPL” Then

Txtjudul.Text = “Rekayasa Perngkat Lunak”

Txtpengarang.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

kode = Mid(Txtkode.Text, 8, 1)

If kode = “A” Then

Txtpenerbit.Text = “Andi Offest Yogyakarta”

ElseIf kode = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf kode = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf kode = “E” Then

Txtpenerbit.Text = “Elek Media Kompotindo”

ElseIf kode = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)

End If

End Sub

proses dan enter 3