Private Sub Cmdbatal_Click()
Cmbokb.SetFocus
Cmbokb = “”
Textjb = “”
Textpg = “”
Texttt = “”
Textpn = “”
Textha = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Cmbokb.SetFocus
Cmbokb = “”
Textjb = “”
Textpg = “”
Texttt = “”
Textpn = “”
Textha = “”
End Sub
Private Sub Cmdproses_Click()
Dim s As String
Texttt.Text = “20” & Right(Cmbokb.Text, 2)
s = Mid(Cmbokb.Text, 3, 3)
If s = “SIM” Then
Textjb = “Sistem Informasi Manajemen”
Textpg = “Yati Nur Oktavia”
` Textha = “75900”
s = Mid(Cmbokb.Text, 3, 3)
ElseIf s = “EDP” Then
Textjb = “Elektronik Data Processing”
Textpg = “Imam Tarmizi”
Textha = “62000”
s = Mid(Cmbokb.Text, 3, 3)
ElseIf s = “MNJ” Then
Textjb = “Manajemen”
Textpg = “Valentina Marliana Adiwianti”
Textha = “42000”
s = Mid(Cmbokb.Text, 3, 3)
ElseIf s = “CDR” Then
Textjb = “Corel Draw”
Textpg = “Riyan Suhandi”
Textha = “53000”
s = Mid(Cmbokb.Text, 3, 3)
ElseIf s = “RPL” Then
Textjb = “Rekayasa Perangkat Lunak”
Textpg = “Sinta Umpu Singa”
Textha = “83000”
End If
s = Left(Cmbokb.Text, 1)
If s = “A” Then
Textpn = “Andi Offset Yogyakarta”
s = Left(Cmbokb.Text, 1)
ElseIf s = “I” Then
Textpn = “Indah Surabaya”
s = Left(Cmbokb.Text, 1)
ElseIf s = “S” Then
Textpn = “Selemba Empat”
s = Left(Cmbokb.Text, 1)
ElseIf s = “E” Then
Textpn = “Elek Media Komputindo”
s = Left(Cmbokb.Text, 1)
ElseIf s = “M” Then
Textpn = “Maxlcom”
End If
End Sub
Private Sub Form_Load()
Cmbokb.AddItem “A-SIM-01”
Cmbokb.AddItem “I-EDP-02”
Cmbokb.AddItem “S-MNJ-03”
Cmbokb.AddItem “E-CDR-04”
Cmbokb.AddItem “M-RPL-O5”
End Sub
Blog IT 