Private Sub cmdbatal_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim A, jb, pg, th, pb, h As Integer
txtthn.Text = “20” & Right(txtkode, 2)
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
pg = “andra setiawan”
ElseIf A = “EDP” Then
pg = “desi ostiqomah”
ElseIf A = “MNJ” Then
pg = “sandy fitra jaya”
ElseIf A = “CDR” Then
pg = “tri indah sari”
ElseIf A = “RPL” Then
pg = “ernita sari”
End If
txtpg.Text = pg
A = Left(txtkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub
Private Sub cmdbatal_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim A, jb, pg, th, pb, h As Integer
txtthn.Text = “20” & Right(txtkode, 2)
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
pg = “andra setiawan”
ElseIf A = “EDP” Then
pg = “desi ostiqomah”
ElseIf A = “MNJ” Then
pg = “sandy fitra jaya”
ElseIf A = “CDR” Then
pg = “tri indah sari”
ElseIf A = “RPL” Then
pg = “ernita sari”
End If
txtpg.Text = pg
A = Left(txtkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub
Private Sub cmdbatal_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim A, jb, pg, th, pb, h As Integer
txtthn.Text = “20” & Right(txtkode, 2)
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
pg = “andra setiawan”
ElseIf A = “EDP” Then
pg = “desi ostiqomah”
ElseIf A = “MNJ” Then
pg = “sandy fitra jaya”
ElseIf A = “CDR” Then
pg = “tri indah sari”
ElseIf A = “RPL” Then
pg = “ernita sari”
End If
txtpg.Text = pg
A = Left(txtkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub
Private Sub cmdbatal_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim A, jb, pg, th, pb, h As Integer
txtthn.Text = “20” & Right(txtkode, 2)
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
pg = “andra setiawan”
ElseIf A = “EDP” Then
pg = “desi ostiqomah”
ElseIf A = “MNJ” Then
pg = “sandy fitra jaya”
ElseIf A = “CDR” Then
pg = “tri indah sari”
ElseIf A = “RPL” Then
pg = “ernita sari”
End If
txtpg.Text = pg
A = Left(txtkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb
A = Mid(txtkode, 3, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub