Suci rahmat

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdproses_Click() Dim Z As String txttahun = "20" & Left(txtnpm, 2) txtnurut = Right(txtnpm, 3) Z = Mid(txtnpm, 3, 1) If Z = "1" Then txtjurusan = "Sistem Informasi" ElseIf Z = "2" Then txtjurusan = "Teknik Informatika" ElseIf Z = "3" Then txtjurusan = "Manajemen Informatika" ElseIf Z = "4" Then txtjurusan = "Manajemen & Komp.Akuntansi" End If Dim Q As String Q = Mid(

Private Sub cbokode_Click() Dim A, M As String Select Case cbokode Case "P205" A = "Pentium II 500 Mega Hz" M = "1500000" Case "P308" A = "Pentium III 800 Mega Hz" M = "2100000" Case "P310" A = "Pentium III 1.0 Giga Hz" M = "3500000" Case "P415" A = "Pentium IV 1.5 Giga Hz" M = "4000000" Case "P417" A = "Pentium IV 1.7 Giga Hz" M = "4200000" Case "P419" A = "Pentium IV 1.9 Giga Hz " M = "5500000" End Select txtjk = A txths = M txtjj.SetFocus End Sub Private Sub Command1_Click() txthp = Val(txtjj) * Val(txths) If txthp >= 30000000 Then txtdis = 0.15 * Val(txthp) ElseIf txthp >= 25000000 Then txtdis = 0.1 * Val(txthp) ElseIf txthp >= 20000000 Then txtdis = 0.05 * Val(txthp) ElseIf txthp >= 15000000 Then txtdis = 0.02 * Val(txthp) End If txthb = Val(txthp) - Val

Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdproses_Click() Dim X As String txttt = "20" & Mid(txtkb, 5, 2) X = Left(txtkb, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpeng = "Fadiya Ulfa" txth = "75900" ElseIf X = "EDP" Then txtjb = "Electronik Data Processing" txtpeng = "Nurul Agustina" txth = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtpeng = "Rian Hidayat" txth = "42000" ElseIf X = "CDR" Then txtjb = "Corel

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttp = "" End Sub Private Sub cmdproses_Click() txttp = Val(txtht) * Val(txtjt) End Sub Private Sub txtkt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtjt.SetFocus End If Dim k As String k = txtkt If k = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf k = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf k = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf k = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If End Sub

Private Sub cbokode_Click() Dim j, h As String Select Case cbokode Case "P205" j = "Pentium II 500 Mega Hz" h = "1500000" Case "P308" j = "Pentium III 800 Mega Hz" h = "2100000" Case "P310" j = "Pentium III 1.0 Giga Hz" h = "3500000" Case "P415" j = "Pentium IV 1.5 Giga Hz" h = "4000000" Case "P417" j = "Pentium IV 1.7 Giga Hz" h = "4200000" Case "P419" j = "Pentium IV 1.9 Giga Hz" h = "5500000" End Select txtjk = j txths = h txtjj.SetFocus End Sub Private Sub cmdhl_Click() cbokode.SetFocus cbokode = "Pilih Kode Komputer" txtjj = "" txtjk = "" txths = "" txthp = "" txtdis = "" txttb = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txthp = Val(txths) * Val(txtjj)

Private Sub cbokode_Click() Dim m, h As String Select Case cbokode Case "Asus A43SA" m = "Asus A43SA - VX090D" h = "5500000" Case "Asus A43SD" m = "Asus A43SD - VX052D" h = "4500000" Case "Asus A43SJ" m = "Asus A43SJ - VX792D" h = "4300000" Case "Asus A43TA" m = "Asus A43TA - VX034D" h = "4900000" Case "Asus N43SL" m = "Asus N43SL - VX264D" h = "4300000" Case "Apple MD311" m = "Apple MacBook Pro MD311" h = "19300000" Case "Apple MD313" m = "Apple MacBook Pro MD313" h = "24200000" Case "Apple MD314" m = "Apple MacBook Pro MD314" h = "11900000" Case "Apple MD322" m = "Apple MacBook Pro MD322" h = "14700000" Case "Apple MC965" m = "Apple MacBook Pro MC965" h = "2130

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtp = "" txttahun = "" txtpenerbit = "" txthg = "" End Sub Private Sub cmdproses_Click() Dim X As String txttahun = "20" & Right(txtkb, 2) X = Mid(txtkb, 3, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtp = "Andra Setiawan" txthg = "75900" ElseIf X = "EDP" Then txtjb = "Electronic Data Processing" txtp = "Desi Istiqomah" txthg = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtp = "Sandy Fitrajaya" txthg = "42000" ElseIf X = "CDR" Then txtjb = "Corel Draw" txtp = "Tri Indah Sari" txthg = "53000" ElseIf X = "RPL" Then txtjb = "Rekayasa Perangkat Lunak" txtp = "Ernita

Private Sub cmdp_Click() txttt = "20" & Right(cbokb, 2) Dim V, S As String V = Mid(cbokb, 3, 3) If V = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpr = "Yati Nur Oktavia" txth = "75900" ElseIf V = "EDP" Then txtjb = "Electronic Data Processing" txtpr = "Imam Tarmizi" txth = "62000" ElseIf V = "MNJ" Then txtjb = "Manajemen" txtpr = "Valentina Mariana" txth = "42000" ElseIf V = "CDR" Then txtjb = "Corel Draw" txtpr = "Riyan Suhandi" txth = "53000" ElseIf V = "RPL" Then txtjb = "Rekayasa Perangkat Lunak" txtpr = "Sinta Umpu Singa" txth = "83000" End If S = Left(cbokb, 1) If S = "A" Then txtpt = "Andi Offset Yogyakarta" ElseIf S = "I" Then txtpt = "Indah Surabaya" ElseIf S = "S" Then txtpt =

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk.SetFocus txtnk = "" txtnik = "" txtgol = "" txtkstat = "" txtstatus = "" txttahun = "" txtjbt = "" txtbagian = "" txtgapok = "" txttunjangan = "" txttotg = "" End Sub Private Sub cmdproses_Click() Dim V As String txttahun = Left(txtnik, 4) V = Mid(txtnik, 7, 1) If V = "S" Then txtkstat = "S" txtstatus = "Single" ElseIf V = "M" Then txtkstat = "M" txtstatus = "Menikah" ElseIf V = "J" Then txtkstat = "J" txtstatus = "Janda" ElseIf V = "D" Then txtkstat = "D" txtstatus = "Duda" End If Dim S As String S = Right(txtnik, 3) If S = "KEU" Then txtbagian = "Accounting" ElseIf S = "ADM" Then txtbagian = "Administrasi&quo