yannastmikpringsewu

Private Sub cmdbatal_Click() txtnk = "" txtmn = "" txtnk.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk = "" txtmn = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgp = "" txttj = "" txttotal = "" txtnk.SetFocus End Sub Private Sub cmdproses_Click() Dim H, BAGIAN, STATUS, KODE, GOL, JABATAN, GP, TJ As String H = Right(txtmn, 3) If H = "KEU" Or H = "keu" Then BAGIAN = "Accounting" ElseIf H = "ADM" Or H = "adm" Then BAGIAN = "administrasi" ElseIf H = "SDM" Or H = "sdm" Then BAGIAN = "general affair" ElseIf H = "EDP" Or H = "edp" Then BAGIAN = "it unit" ElseIf H = "SPM" Or H = "spm" Then BAGIAN...

Private Sub cmdbatal_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit txtharga = "" txtkode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit = "" txtharga = "" txtkode.SetFocus End Sub Private Sub cmdproses_Click() Dim H, JB, PENG, HAR, PENER As String txtterbit = "20" & Mid(txtkode, 5, 2) H = Left(txtkode, 3) If H = "SIM" Or H = "sim" Then JB = "sistem informasi manajemen" PENG = "fadiya ulfa" HAR = "75900" ElseIf H = "EDP" Or H = "edp" Then JB = "eletronik data processing" PENG = "nurul agustina" HAR = "62000" ElseIf H = "MNJ" Or H = "mnj" Then JB = "manajem...

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" End Sub Private Sub cmdproses_Click() Dim C As String C = Left(txtkode, 3) If C = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf C = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf C = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf C = "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 txttotalp = Val(txtht) * Val(txtjt) End If End Sub

Private Sub cmdbatal_Click() Cbokode = "" Cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Cbokode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim H, JB, PENG, HAR, PENER As String txtterbit.Text = "20" & Right(Cbokode.Text, 2) H = Mid(Cbokode.Text, 3, 3) If H = "SIM" Then JB = "SistemInformasi Manajemen" PENG = "Yati Nur Oktavia" HAR = "75900" ElseIf H = "EDP" Then JB = "Elektronik Data Processing " PENG = "Imam Tarmizi" HAR = "62000" ElseIf H = "MNJ" Then JB = "Manajemen" PENG = "Valentina Mariana" HAR = "42000" ElseIf H = "CDR" Then JB = "Corel Draw" PENG = "Riyan Suhandi" HAR = "53000" ElseIf H = ...

Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air" hs = "12800000" Case "MC966" mt = "Apple MC966 Macbook Air" hs = "15800000" Case "MC968" mt = "Apple MC968 Macbook Air" hs = "9900000" Case "MC969" mt = "Apple MC969 Macbook Air" hs = "11900000" Case "MC700" mt = "Apple MC700 Macbook Air" hs = "10800000" Case "MC721" mt = "Apple MC721 Macbook Air" hs = "15900000" Case "MC723" mt = "Apple MC723 Macbook Air" hs = "19300000" Case "MC724" mt = "Apple MC724 Macbook Air" hs = "13700000" Case "MC7311" mt = "Apple MC7311 Macbook Air" hs = "24200000" Case "MC313" mt = "Apple MC313 Macbook Air" hs = ...

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtjur.Text = "" txtps.Text = "" txttm.Text = "" txturut.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtjurusan.Text = "" txtprogramstudi.Text = "" txttahunmasuk.Text = "" txtnomorurut.Text = "" End Sub Private Sub cmdproses_click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm, 3, 1) If S = "1" Then txtjur.Text = "sistem informasi" ElseIf S = "2" Then txtjur.Text = "manajemen informatika" ElseIf S = "3" Then txtjur.Text = "teknik informatika" ElseIf S = "4" Then txtjur.Text = "manajemen&komp. akuntasi" End If S = Mid(txtnpm.Te...

Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 200000 tunjangan = 20000 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 = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total 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 txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnp.SetFoc...

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100028" nama = "Ida Ayu Wulandari" jurusan = "Tehnik Informatika" Case "17100001" nama = "Mardalenna" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select txtnama.Text = nama txtjurusan.Text = jurusan txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" txtnama.Text = "" txtjurusan.Text = "" txtquis.Text = "" txttugas.Text = "" txtuts.Text = "" txtuas.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Su...

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100028" nama = "Ida Ayu Wulandari" jurusan = "Tehnik Informatika" Case "17100001" nama = "Mardalenna" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select Txtnama.Text = nama Txtjurusan.Text = jurusan Txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" Txtnama.Text = "" Txtjurusan.Text = "" Txtquis.Text = "" Txttugas.Text = "" Txtuts.Text = "" Txtuas.Text = "" Txtna.Text = "" Txthm.Text = "" End Sub Private Su...

Private Sub Chkbold_Click() 'membuat teks miring If ChKBOLD.Value = 1 Then     LBLTEKS.FontBold = True Else     LBLTEKS.FontBold = False End If End Sub Private Sub Chkitalic_Click() 'membuat teks miring If ChkITALIC.Value = 1 Then     LBLTEKS.FontItalic = True Else     LBLTEKS.FontItalic = False End If End Sub Private Sub Chkstrikethru_Click() 'membuat teks garis tengah If Chkstrikethru.Value = 1 Then     LBLTEKS.FontStrikethru = True Else     LBLTEKS.FontStrikethru = False End If End Sub Private Sub Chkunderline_Click() 'membuat teks garis bawah If ChkUNDERLINE.Value = 1 Then     LBLTEKS.FontUnderline = True Else     LBLTEKS.FontUnderline = False End If End Sub Private Sub CMDEXIT_Click() End End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub OptBLUE_Click() 'membuat teks berwarna biru LBLTEKS.ForeColor = vbBlue ...

Private Sub cmdproses_Click() txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" txtgp.SetFocus End Sub Private Sub txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttj.SetFocus End If End Sub Private Sub txtpt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End If End Sub Private Sub txttj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtpt.SetFocus End If End Sub

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdproses_Click() txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "'" txtpt = "" txtgk = "" txtpj = "'" txtgd = "'" txtgp.SetFocus End Sub

Private Sub cmdhitung_Click() txtha = "" txtdis = "" txtha = "" End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtha = "" End Sub Private Sub txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - Val(txtdis) End If End Sub

Private Sub cmdhitung_Click() txtdis.Text = Val(txtha.Text) * 0.1 txtak.Text = Val(txtha.Text) - Val(txtdis.Text) End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtak = "" txtha.SetFocus End Sub

Private Sub Command1_Click() If Val(Text1.Text) & Val(Text2.Text) Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) End If If Val(Text4.Text) & Val(Text5.Text) Then Text6.Text = Val(Text4.Text) / Val(Text5.Text) End If If Val(Text7.Text) & Val(Text8.Text) Then Text9.Text = Val(Text7.Text) - Val(Text8.Text) End If If Val(Text10.Text) & Val(Text11.Text) Then Text12.Text = Val(Text10.Text) * Val(Text11.Text) End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ...

Private Sub Command1_Click() If Val(Text1.Text) & Val(Text2.Text) Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Text1.SetFocus End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

Private Sub Command1_Click() If Val(Text1.Text) & Val(Text2.Text) Then Text3.Text = Val(Text1.Text) + (Text2.Text) End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub

Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub

Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub