RSS

Mahasiswa STMIK Pringsewu Lampung

Tugas Empat

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdbatal_Click()
txtkode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
txtkode.SetFocus
End Sub

Private Sub cmdlagi_Click()
txtkode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
txtkode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim KB As String
If Left(txtkode.Text, 3) = “SIM” Then
txtjudul.Text = “Sistem Informasi Manajemen”
txtpengarang = “Fadiya Ulfa”
txtharga.Text = “75900?”
ElseIf Left(txtkode.Text, 3) = “EDP” Then
txtjudul.Text = “Elektronik Data Processing”
txtpengarang = “Nurul Agustina”
txtharga.Text = “62000”
ElseIf Left(txtkode.Text, 3) = “MNJ” Then
txtjudul.Text = “Manajemen”
txtpengarang = “Rian Hidayat”
txtharga.Text = “42000”
ElseIf Left(txtkode.Text, 3) = “CDR” Then
txtjudul.Text = “Corel Draw”
txtpengarang = “Siti Nur Khotimah”
txtharga.Text = “53000”
ElseIf Left(txtkode.Text, 3) = “RPL” Then
txtjudul.Text = “Rekayasa Perangkat Lunak ”
txtpengarang = “Winda Erlianti”
txtharga.Text = “83000”
End If

If Right(txtkode.Text, 1) = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf Right(txtkode.Text, 1) = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf Right(txtkode.Text, 1) = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf Right(txtkode.Text, 1) = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf Right(txtkode.Text, 1) = “M” Then
txtpenerbit.Text = “Maxicom”
End If

If Mid(txtkode.Text, 5, 2) = “09” Then
txttahun = “2009”
ElseIf Mid(txtkode.Text, 5, 2) = “10” Then
txttahun = “2010”
ElseIf Mid(txtkode.Text, 5, 2) = “11” Then
txttahun = “2011”
ElseIf Mid(txtkode.Text, 5, 2) = “12” Then
txttahun = “2012”
ElseIf Mid(txtkode.Text, 5, 2) = “13” Then
txttahun = “2013”
End If
End Sub

 

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: