Helmi stmik pringsewu

Private Sub Cmdproses_Click() Dim a As String a = Mid(Textnik, 1, 4) If a = "2009" Then Textthn = "2009" End If a = Mid(Textnik, 5, 1) If a = "A" Then Textjbt = "Manajer" Textgol = "A" Textgapok = "4000000" Texttun = "1025000" ElseIf a = "B" Then Textjbt = "Ka. Seksi" Textgol = "B" Textgapok = "3500000" Texttun = "975000" ElseIf a = "C" Then Textjbt = "Staff" Textgol = "C" Textgapok = "3000000" Texttun = "925000" End If a = Mid(Textnik, 7, 1) If a = "S" Then Textkode = "S" Textsts = "Single" ElseIf a = "M" Then Textkode = "M" Textsts = "Menikah" ElseIf a = "J" Then Texkode = "J" Textsts = "Janda" ElseIf a = "D" Then Textkode = "D" Textst

Private Sub Cmdproses_Click() Dim A As String A = Mid(Textkode, 1, 3) If A = "SIM" Then Textjb = "Sistem Informasi Manajemen" Textpg = "Yati Nur Oktavia" Textrp = "75900" ElseIf A = "EDP" Then Textjb = "Elektronik Data Proseccing" Textpg = "Imam Tarmizi" Textrp = "62000" ElseIf A = "MNJ" Then Textjb = "MANAJEMEN" Textpg = "Valentina Mariana Adiwianti" Textrp = "42000" ElseIf A = "CDR" Then Textjb = "Corel Draw" Textpg = "Riyan Suhandi" Textrp = "53000" ElseIf A = "RPL" Then Textjb = "Rekayasa Perangkat Lunak" Textpg = "Sinta Umpu Singa" Textrp = "83000" End If A = Mid(Textkode, 5, 2) If A = "09" Then Texttt = "2009" ElseIf A = "10" Then Texttt = "2010" ElseIf A = "11" Then T

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Textkode = "" Textjk = "" Textht = "" Textjb = "" Textjt = "" Texttotal = "" Textkode.SetFocus End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Textkode, 1, 3) If a = "BIM" Then Textjk = "BIMA" Textht = "50000" Textjb = "16.00" End If If a = "EKO" Then Textjk = "EKONOMI" Textht = "35000" Textjb = "19.00" End If If a = "MUT" Then Textjk = "MUTIARA" Textht = "23000" Textjb = "17.00" End If If a = "SEN" Then Textjk = "SENJA" Textht = "15000" Textjb = "20.00" End If Textjt.SetFocus End Sub Private Sub Form_Load() End Sub Private Sub Textjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texttotal = Val(Textjt) * Val(Textht) End If

Private Sub Cmdproses_Click() Dim A As String A = Mid(Cbokode, 1, 1) If A = "A" Then Textpn = "Abdi Offsyet Yogyakarta" End If A = Mid(Cbokode, 3, 3) If A = "SIM" Then Textjb = "Sistem Informasi Manajemen" Textpg = "Yati Nur Oktavia" Textrp = "75900" End If A = Mid(Cbokode, 7, 2) If A = "01" Then Texttt = "2001" End If A = Mid(Cbokode, 1, 1) If A = "I" Then Textpn = "Indah Surabaya" End If A = Mid(Cbokode, 3, 3) If A = "EDP" Then Textjb = "Electronik Data Processing" Textpg = "Imam Tarmizi" Textrp = "62000" End If A = Mid(Cbokode, 7, 2) If A = "02" Then Texttt = "2002" End If A = Mid(Cbokode, 1, 1) If A = "S" Then Textpn = "HELMIYANTO" End If A = Mid(Cbokode, 3, 3) If A = "MNJ" Then Textjb = "MANAJEMEN" Textpg =

Private Sub CboKode_Click() Dim s As String  s = Mid(cbokode, 7, 5)  If s = "MC965" Then  Textmerk = "Apple MacBook Air MC965"  Texths = "12800000"  End If  If s = "MC966" Then  Textmerk = "Apple MacBook Air MC966"  Texths = "15800000"  End If  If s = "MC968" Then  Textmerk = "Apple MacBook Air MC968"  Texths = "9900000"  End If  If s = "MC969" Then  Textmerk = "Apple MacBook Air MC969"  Texths = "11900000"  End If  If s = "MC700" Then  Textmerk = "Apple MacBook Pro MC700"  Texths = "10800000"  End If  Textjj.SetFocus  End Sub Private Sub Cmdbatal_Click() cbokode = "" Textmerk = "" Texths = "" Texthp = "" Textdis = "" Textjj = "" Texttotal = "" End Sub Private Sub Cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Texthp &

Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = "" Textnpm = "" Textjr = "" Textps = "" Texttm = "" Texturut = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = "" Textnpm = "" Textjr = "" Textps = "" Texttm = "" Texturut = "" End Sub Private Sub Cmdproses_Click() Dim a As String Texttm = "20" & Left(Textnpm, 2) a = Mid(Textnpm, 3, 1) If a = "1" Then Textjr = "sistem informasi" Textps = "Strata Satu" ElseIf a = "2" Then Textjr = "teknik informatika" Textps = "Diploma empat" ElseIf a = "3" Then Textjr = "manajemen informatika" Textps = "Diploma tiga" ElseIf a = "4" Then Textjr = "komputer akunt

Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = "" Textnpm = "" Textjr = "" Textps = "" Texttm = "" Texturut = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = "" Textnpm = "" Textjr = "" Textps = "" Texttm = "" Texturut = "" End Sub Private Sub Cmdproses_Click() Dim a As String Texttm = "20" & Left(Textnpm, 2) a = Mid(Textnpm, 3, 1) If a = "1" Then Textjr = "sistem informasi" ElseIf a = "2" Then Textjr = "teknik informatika" ElseIf a = "3" Then Textjr = "manajemen informatika" ElseIf a = "4" Then Textjr = "komputer akuntansi" End If a = Mid(Textnpm, 4, 2) If a = "00" Then Textps = "Strata Satu" E

Private Sub cbogolongan_Click() Dim gp, pajak, tunjangan, total As Variant Select Case cbogolongan Case "I" gp = 20000000 tunjangan = 2000000 Case "II" gp = 15000000 tunjangan = 15000000 Case "III" gp = 2500000 tunjangan = 250000 Case "IV" gp = 4000000 tunjangan = 400000 Case Else gp = 0 tunjangan = 0 End Select total = gp + tunjangan pajak = total * 0.1 Textgp = gp Texttunjangan = tunjangan Textpajak = pajak Texttotal = total End Sub Private Sub Cmdbatal_Click() Textnidn = "" Textnp = "" cbogolongan = "" Textgp = "" Texttunjangan = "" Textpajak = "" Texttotal = "" End Sub Private Sub cmdlagi_Click() Textnidn = "" Textnp = "" cbogolongan = "" Textgp = "" Texttunjangan = "" Textpajak = "" Texttotal = "" End Sub P

Private Sub Combonpm_Click() Dim nama, jurusan, HM As String Select Case Combonpm Case "17100085" nama = "AGISTA UTAMI" jurusan = "Manajemen Informatika" Case "17100074" nama = "NUZUL RAMADHANI" jurusan = "Sistem Informasi" Case "17100103" nama = "HELMIYANTO" jurusan = "Sistem Informasi" Case "17100099" nama = "IRVAN BAHARI" jurusan = "Teknik Komputer Jaringan" Case "17100084" nama = "UUT ELOK PERMATA" jurusan = "Manajemen Informatika" End Select Textnama = nama Textjurusan = jurusan Textquis.SetFocus End Sub Private Sub Command2_Click() Combonpm.SetFocus Combonpm = "" Textnama = "" Textjurusan = "" Textquis = "" Texttugas = "" Textuts = "" Textuas = "" Textna = "" Texthm = "&

Private Sub Combonpm_Click() Dim Nama, Jurusan, Hm As String Select Case Combonpm  Case "17100085"  Nama = "AGISTA UTAMI"  Jurusan = "Manajemen Informatika"  Case "17100074"  Nama = "NUZUL RAMADHANI"  Jurusan = "Sistem Informasi"  Case "17100103"  Nama = "HELMIYANTO"  Jurusan = "Sistem Informasi"  Case "17100099"  Nama = "IRVAN BAHARI"  Jurusan = "Teknik Komputer Jaringan"  Case "17100084"  Nama = "UUT ELOK PERMATA"  Jurusan = "Manajemen Informatika"  End Select  Textnama = Nama  Textjurusan = Jurusan  Textquis.SetFocus End Sub Private Sub Command2_Click() Combonpm.SetFocus Combonpm = "" Textnama = "" Textjurusan = "" Textquis = "" Texttugas = "" Textuts = "" Textuas = "" Textna = "" T

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

Private Sub Optionred_Click() Label1.ForeColor = vbRed End Sub Private Sub Optionyellow_Click() Label1.ForeColor = vbYellow End Sub Private Sub Optionblue_Click() Label1.ForeColor = vbBlue End Sub Private Sub optiongreen_Click() Label1.ForeColor = vbGreen End Sub Private Sub checkbold_Click() If Checkbold.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub checkitalic_Click() If Checkitalic.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub checkstrikethru_Click() If Checkstrikethru.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub Private Sub checkunderline_Click() If Checkunderline.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If End Sub Private Sub Command1_Click() Unload Me End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub cmdProses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" 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 Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End If End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub cmdProses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub

Private Sub Command1_Click() Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) 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 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End If End Sub

Private Sub Command1_Click() Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub

Private Sub txt1_Change() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdbatal_Click() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdhitung_Click() Txtjmlh1 = Val(Txtn1) + Val(Txtn2) txtjmlh2 = Val(txtn3) - Val(Txtn4) txtjmlh3 = Val(txtn5): Val (txtn6) txtjmlh4 = Val(txtn7) * Val(txtn8) Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4) End Sub Private Sub cmdjumlah_Click() Txtjmlh1 = Val(Txtn1) + Val(T

Private Sub txt1_Change() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdbatal_Click() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdhitung_Click() Txtjmlh1 = Val(Txtn1) + Val(Txtn2) txtjmlh2 = Val(txtn3) - Val(Txtn4) txtjmlh3 = Val(txtn5) / Val(txtn6) txtjmlh4 = Val(txtn7) * Val(txtn8) Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4) End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private

Private Sub Cmdhitung_Click() Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End Sub Private Sub Cmdbatal_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Txtnilai1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnilai2.SetFocus End If End Sub Private Sub Txtnilai2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnilai3.SetFocus End If End Sub Private Sub Txtnilai3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End If End Sub

Private Sub Cmdhitung_Click() Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End Sub Private Sub Cmdbatal_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub

Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub Private Sub txtnpm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub

Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub txtnpm_Change() End Sub

  May 23, 2017   STMIK PRINGSEWU  – Selasa (23/5), untuk menumbuhkan semangat demokrasi dan mengembangkan jiwa kepemimpinan di kalangan mahasiswa STMIK Pringsewu, Pemilihan Raya Presiden Mahasiswa menjadi agenda penting untuk dilakukan setiap tahunnya. Khusus tahun ini, Pemilihan Presiden dan Wakil Presiden Mahasiswa STMIK Pringsewu kembali digelar untuk mendapatkan Presiden Mahasiswa STMIK Pringsewu. Sejumlah perbaikan dari penyelenggaraan tahun lalu dilakukan oleh Komisi Pemilihan Umum (KPU) STMIK Pringsewu yang diketuai oleh Deni Siswanto, yang dibawah pembinaan langsung Wakil Ketua III STMIK Pringsewu  Nur Aminudin, M.T.I. Setelah dibuka pendaftaran Calon Presiden dan Wakil Presiden Mahasiswa, terjaring dua kandidat yakni kandidat nomor 1 Prianti Dewi Anggreni – Gilbert Alexander, kandidat nomor 2 Miftahus Surur – Lailaturrohmah Rentetan kampanye telah dimulai dari 15 – 22 Mei 2017, termasuk debat terbuka yang diselenggarakan pada 23 Mei 2017. Debat terbuka dihadiri ole