tutistmikpringsewu

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

Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttahun = Left(txtnik, 4) S = Mid(txtnik, 5, 1) If S = "A" Then txtgolongan = "A" txtjabatan = "Manajer" txtgaji = "4000000" t

Private Sub cbokode_Change() 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 = "" txtjb = "" txtpg = "" txtth = "" txtpn = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjb = "" txtpg = "" txtth = "" txtpn = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(cbokode, 1) If A = "A" Then txtpn = "Andi Offset Yogyakarta" ElseIf A = "I" Then txtpn = "Indah Surabaya" ElseIf A = "S" Then txtpn = "Salemba Empat" ElseIf A = "E" Then txt

Private Sub Cbokode_click() Dim merk, hs As String Select Case Mid(Cbokode, 7, 5) Case Is = "mc965" merk = "apple macbook air mc965" hs = "12800000" Case Is = "mc966" merk = "apple macbook air mc966" hs = "15800000" Case Is = "mc968" merk = "apple macbook air mc968" hs = "9900000" Case Is = "mc969" merk = "apple macbook air mc969" hs = "11900000" Case Is = "mc700" merk = "apple macbook pro mc700" hs = "18800000" Case Is = "mc721" merk = "apple macbook pro mc721" hs = "15900000" Case Is = "mc723" merk = "apple macbook pro mc723" hs = "19300000" Case Is = "mc724" merk = "apple macbook pro mc724" hs = "13700000" Case Is = "mc311" merk = "apple macbook pro mc311" hs = "24200000" Case Is = &qu

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtju.Text = "" txtps.Text = "" txttm.Text = "" txtnu.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtju.Text = "" txtps.Text = "" txttm.Text = "" txtnu.Text = "" End Sub Private Sub cmdproses_Click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm.Text, 3, 1) If S = "1" Then txtju.Text = "Sistem Informasi" ElseIf S = "2" Then txtju.Text = "Manajemen Informatika" ElseIf S = "3" Then txtju.Text = "Tehnik Informatika" ElseIf S = "4" Then txtju.Text = "Manajemen & Komp. Akuntansi" End If S = Mid

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 txtgapok.Text = gapok txttunjangan.Text = tunjangan txtpajak.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 Private Sub txtndin_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnp.SetFocus End If End Sub