TUGAS 3.4 ( Data Buku Stmik Pringsewu Dengan Text)

Private Sub cmdProses_Click()

Dim kode As String

kode = Left(Txtkode.Text, 3)

If kode = "SIM" Then

TxtJudul.Text = "Sistem Informasi Manajemen"

TxtPengarang.Text = "Fadiya Ulfa"

TxtHarga.Text = "75900"

ElseIf kode = "EDP" Then

TxtJudul.Text = "Elektronik Data Processing"

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 Perangkat Lunak"

TxtPengarang.Text = "Winda Erlianti"

TxtHarga.Text = "83000"

End If

kode = Right(Txtkode.Text, 1)

If kode = "A" Then

TxtPenerbit.Text = "Andi Offset 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 Komputindo"

ElseIf kode = "M" Then

TxtPenerbit.Text = "Mexicom"

End If

TxtTahun.Text = "20" & Mid(Txtkode.Text, 5, 2)

End Sub

Private Sub Form_Load()

TxtJudul.Enabled = False

TxtPengarang.Enabled = False

TxtTahun.Enabled = False

TxtPenerbit.Enabled = False

TxtHarga.Enabled = False

End Sub

Private Sub cmdBatal_Click()

Txtkode = ""

TxtJudul = ""

TxtPengarang = ""

TxtTahun = ""

TxtPenerbit = ""

TxtHarga = ""

Txtkode.SetFocus

End Sub

Private Sub cmdLagi_Click()

Txtkode = ""

TxtJudul = ""

TxtPengarang = ""

TxtTahun = ""

TxtPenerbit = ""

TxtHarga = ""

Txtkode.SetFocus

End Sub

Private Sub cmdKeluar_Click()

End

End Sub

Share this post