12 Januari 2015 by nandafadhillahstmikpringsewu PROGRAM DATA BUKU STMIK PRINGSEWU Tak Berkategori Tinggalkan komentar Private Sub cmdbatal_Click() cbokb.SetFocus cbokb.Text = “” txtjb.Text = “” txtpeng.Text = “” txttt.Text = “” txtpen.Text = “” txth.Text = “” End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokb.SetFocus cbokb.Text = “” txtjb.Text = “” txtpeng.Text = “” txttt.Text = “” txtpen.Text = “” txth.Text = “” End Sub Private Sub cmdproses_Click() Dim a, b, c, d As String Dim h As Double txttt.Text = “20” & Right(cbokb.Text, 2) a = Mid(cbokb.Text, 3, 3) If a = “SIM” Then b = “SISTEM INFORMASI MANAJEMEN” c = “YATI NUR OKTAVIA” h = “75900” ElseIf a = “MNJ” Then b = “MANAJEMEN” c = “VALENTINA MARIANA ADIWIANTI” h = “42000” ElseIf a = “EDP” Then b = “ELECTRONIK DATA PROCESSING” c = “IMAM TARMIZI” h = “62000” ElseIf a = “CDR” Then b = “COREL DRAW” c = “RIYAN SUHANDI” h = “53000” ElseIf a = “RPL” Then b = “REKAYASA PERANGKAT LUNAK” c = “SINTA UMPUL SINGA” h = “83000” End If txtjb.Text = b txtpeng.Text = c txth.Text = h d = Left(cbokb.Text, 1) If d = “A” Then txtpen.Text = “ANDI OFFSET YOGYAKARTA” ElseIf d = “I” Then txtpen.Text = “INDAH SURABAYA” ElseIf d = “M” Then txtpen.Text = “MAXICOM” ElseIf d = “S” Then txtpen.Text = “SURYA PERMAI” ElseIf d = “E” Then txtpen.Text = “ELEK MEDIA KOMPUTINDO” End If End Sub Private Sub Form_Load() cbokb.AddItem “A-SIM-01″ cbokb.AddItem “I-EDP-02″ cbokb.AddItem “S-MNJ-03″ cbokb.AddItem “E-CDR-04″ cbokb.AddItem “M-RPL-05″ End Sub Bagikan ini:TwitterFacebookSuka Memuat... Terkait