rosistmikpringsewu

Private Sub cmdbatal_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim A As String A = Left(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi Manageman" txtpengarang = "Fadila Ulfa" txtharga = "75900" ElseIf A = "EDP" Then txtjudul = "Elektronik Data Processing" txtpengarang = "Nurul Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajeman" txtpengarang = "Riyan Hidayat" txtharga = "42000" ElseIf A = "CDR" Then txtjudul = &quo

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = "" txthati = "" txtjeke = "" txtjambe = "" txtjuti = "" txttotal = "" End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkode, 3) If B = "BIM" Then txthati = "50000" txtjeke = "BIMA" txtjambe = "16.00" ElseIf B = "EKO" Then txthati = "35000" txtjeke = "EKONOMI" txtjambe = "19.00" ElseIf B = "SEN" Then txthati = "15000" txtjeke = "SENJA" txtjambe = "20.00" End If txtjuti.SetFocus End Sub Private Sub txtjuti_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(txthati) * Val(txtjuti) End If End Sub

Private Sub cbokode_Click() Select Case cbokode Case "A-SIM-01" Case "I-EDP-02" Case "S-MNJ-03" Case "E-CDR-04" Case "M-RPL-05" End Select End Sub Private Sub cmdbatal_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(cbokode, 1) If A = "A" Then txtpenerbit = "Andi Offset Yogyakarta" ElseIf A = "I" Then txtpenerbit = "Indah Surabaya" ElseIf A = "S" Then txtpenerbit = "Salemba Empat" ElseIf A = "E" Then txtpenerbit = "Elek Media Ko

Private Sub cmdbatal_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtprogram = "" txttahun = "" txtnomor = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtprogram = "" txttahun = "" txtnomor = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim pro As String txttahun = "20" & Left(txtnpm, 2) pro = Mid(txtnpm, 3, 1) If pro = "1" Then txtjurusan = "Sistem Informasi" ElseIf pro = "2" Then txtjurusan = "Manajemen Informasi" ElseIf pro = "3" Then txtjurusan = "Teknik Informasi" End If pro = Mid(txtnpm, 4, 2) If pro = "00" Then txtprogram = "Strata Satu" ElseIf pro = "01" Then txtprogram = "Diplomat Tiga" ElseIf pro = "02" Then txtprogram = &qu

Private Sub Cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2000000 tunjangan = 200000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgp.Text = gapok txttj.Text = tunjangan txtpj.Text = pajak txttt.Text = total - pajak End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub Form_Load() Cbogolongan.AddItem "I" Cbogolongan.AddItem "II" Cbogolongan.AddItem "III" Cbogolongan.AddItem "IV" End Sub Public Sub kosong() Txtnidn.SetFocus Txtnidn.Text = "" txtnp.Text = "" Cbogolongan.Text = "" txtgp.Text = "" txttj.Text = "&quo

Private Sub cbokode_Click() Dim Penjualan, discount, kode, merk, bayar As String Dim Harga As Variant merk = Mid(cbokode.Text, 7, 5) If merk = "MC965" Then txtmerk = "Apple MacBook Air MC965?" Harga = "12800000" ElseIf merk = "MC966" Then txtmerk = "Apple MacBook Air MC966?" Harga = "15800000" ElseIf merk = "MC968" Then txtmerk = "Apple MacBook Air MC968" Harga = "9900000" ElseIf merk = "MC969" Then txtmerk = "Apple MacBook Air MC969?" Harga = "11900000?" ElseIf merk = "MC700" Then txtmerk = "Apple MacBook Air MC700" Harga = "10800000" ElseIf merk = "MC721" Then txtmerk = "Apple MacBook Air MC721?" Harga = "15900000?" ElseIf merk = "MC723" Then txtmerk = "Apple MacBook Air MC723" Harga = "19300000" ElseIf merk = "MC724" Then txtmerk = "