VB Data Buku Perpustakaan Milik Bersama

 

Code VB Data Buku Perpustakaan Milik Bersama :

Private Sub Command1_Click()
Dim jb, pg, tt As String
Dim pt, hg As Variant
Text3.Text = “20” & Mid(Combo1.Text, 5, 2)
a = Left(Combo1.Text, 3)
If a = “WEB” Then
jb = “Ebook Web Design”
pg = “Rivandi Saputra”
hg = “125000”
ElseIf a = “SIM” Then
jb = “Sistem Informasi Management”
pg = “Revita Yulistina”
hg = “75900”
ElseIf a = “EDP” Then
jb = “Elektronic Data Processing”
pg = “Bambang Deswantoro”
hg = “62000”
ElseIf a = “MNJ” Then
jb = “Manajemen”
pg = “Agus Fahrudi”
hg = “42000”
ElseIf a = “ITC” Then
jb = “Information Tecnologi”
pg = “Rivandi Saputra”
hg = “53000”
ElseIf a = “JPL” Then
jb = “Jaringan Perangkat Lunak”
pg = “Widianti”
hg = “83000”
End If
Text1.Text = jb
Text2.Text = pg
Text5.Text = hg
a = Right(Combo1.Text, 1)
If a = “1” Then
pt = “ICS Ivan Cyber System Tec”
ElseIf a = “2” Then
pt = “Saifull Jakarta”
ElseIf a = “3” Then
pt = “Jaya Bakti”
ElseIf a = “4” Then
pt = “Lembah Hijau”
ElseIf a = “5” Then
pt = “Rivandi Saputra Tec”
ElseIf a = “6” Then
pt = “Sinar Jaya”
End If
Text4.Text = pt
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command3_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “WEB-13-1”
Combo1.AddItem “SIM-08-2”
Combo1.AddItem “EDP-09-3”
Combo1.AddItem “MNJ-10-4”
Combo1.AddItem “ITC-11-5”
Combo1.AddItem “JPL-12-6”
End Sub

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