tugas vb3

MISKA

Private Sub cmdbatal_Click()
Txtkb.SetFocus
Txtkb.Text = “”
txtjb.Text = “”
txtpengarang.Text = “”
txtthnterbit.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtkb.SetFocus
Txtkb.Text = “”
txtjb.Text = “”
txtpengarang.Text = “”
txtthnterbit.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
a = Left(Txtkb.Text, 3)
If a = “SIM” Then
txtjb.Text = “sistem informasi manajemen”
txtpengarang.Text = “fadiya ulfa”
txtharga.Text = “75900”
ElseIf a = “EDP” Then
txtjb.Text = “elektronik data processing”
txtpengarang.Text = “nurul agustina”
txtharga.Text = “62000”
ElseIf a = “MNJ” Then
txtjb.Text = “manajemen”
txtpengarang.Text = “rian hidayat”
txtharga.Text = “42000”
ElseIf a = “CDR” Then
txtjb.Text = “corel draw”
txtpengarang.Text = “siti nur khotimah”
txtharga.Text = “53000”
ElseIf a = “RPL” Then
txtjb.Text = “rekatasa perangkat lunak”
txtpengarang.Text = “winda erlianti”
txtharga.Text = “83000”
End If
a = Right(Txtkb.Text, 1)
If a = “A” Then
txtpenerbit.Text = “andi offset yogyakarta”
ElseIf a = “I” Then
txtpenerbit.Text = “indah surabaya”
ElseIf a = “S” Then
txtpenerbit.Text = “salemba empat”
ElseIf a = “E” Then
txtpenerbit.Text = “elek media komputindo”
ElseIf a = “M” Then
txtpenerbit.Text = “Maxicom”
End If
txtthnterbit.Text = “20” & Mid(Txtkb.Text, 5.2)
End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s