huruf mutu mahasiswa stmik pringsewu menggunakan ke tugas 8

Private Sub batal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmhs.Text = ""

txtjr.Text = ""

txtnq.Text = ""

txtnt.Text = ""

txtut.Text = ""

txtua.Text = ""

txtna.Text = ""

txthm.Text = ""

End Sub

Private Sub cbonpm_Click()

Dim nama, jurusan, hm As String

 Select Case cbonpm.Text

Case "17100024"

nama = "ayunda mugiarsih"

jurusan = "Sistem Informasi"

Case "13100501"

nama = "Phinasti Wita Sari"

jurusan = "Sistem Informasi"

Case "17100020"

nama = "siti tasripah"

jurusan = "Sistem Informasi"

Case "17100031"

nama = "Tuti Mulyani"

jurusan = "Sistem Informasi"

Case "13100526"

nama = " fitri indah tria nanda"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

End Select

txtmhs.Text = nama

txtjr.Text = jurusan

txtnq.SetFocus

End Sub

Private Sub Form_Load()

 cbonpm.AddItem "17100024"

cbonpm.AddItem "13100501"

cbonpm.AddItem "17100020"

cbonpm.AddItem "17100031"

cbonpm.AddItem "17100026"

cbonpm.AddItem "17100008"

End Sub

Private Sub proses_Click()

Dim na As Integer

Dim hm As String

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtut.Text)

uas = Val(txtua.Text)

na = (quis + tugas + uts + uas) / 4

txtna.Text = na

Select Case txtna.Text

Case Is > 80

hm = "A"

Case Is > 70

hm = "B"

Case Is > 60

hm = "C"

Case Is > 50

hm = "D"

Case Is < 50

hm = "E"

End Select

txthm.Text = hm

End Sub

Private Sub quit_Click()

Unload Me

End Sub

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

Private Sub txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtut.SetFocus

End If

End Sub

Private Sub txtua_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtna.SetFocus

Dim na As Integer

Dim hm As String

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtut.Text)

uas = Val(txtua.Text)

na = (quis + tugas + uts + uas) / 4

txtna.Text = na

Select Case txtna.Text

Case Is > 80

hm = "A"

Case Is > 70

hm = "B"

Case Is > 60

hm = "C"

Case Is > 50

hm = "D"

Case Is < 50

hm = "E"

End Select

txthm.Text = hm

End If

End Sub

Private Sub txtut_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtua.SetFocus

End If

End Sub

huruf mutu mahasiswa stmik pringsewu tugas 7

Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjr.Text = ""
txtnq.Text = ""
txtnt.Text = ""
txtut.Text = ""
txtua.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub


Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String

 Select Case cbonpm.Text
Case "17100031"
nama = "Tuti Mulyani"
jurusan = "Sistem Informasi"
Case "171000"
nama = "Bahadi Rhamadani"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "Renaldi Zainal Arifin"
jurusan = "Sistem Informasi"
Case "17100004"
nama = "Eka Kartika"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
Case "17100008"
nama = "M.Galih algofur"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjr.Text = jurusan
txtnq.SetFocus
End Sub

Private Sub Form_Load()
 cbonpm.AddItem "17100001"
cbonpm.AddItem "17100002"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
End Sub

Private Sub proses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtnq.Text)
tugas = Val(txtnt.Text)
uts = Val(txtut.Text)
uas = Val(txtua.Text)
na = (quis + tugas + uts + uas) / 4
txtna.Text = na

Select Case txtna.Text
Case Is > 80
hm = "A"
Case Is > 70
hm = "B"
Case Is > 60
hm = "C"
Case Is > 50
hm = "D"
Case Is < 50
hm = "E"
End Select
txthm.Text = hm
End Sub

Private Sub quit_Click()
Unload Me
End Sub

aplikasi mengganti warna fount dan colour menggunakan keypress tugas 6

Private Sub chkgb_Click()
If chkgb.Value = 1 Then
lbl2.FontUnderline = True
Else
lbl2.FontUnderline = False
End If
End Sub

Private Sub chkm_Click()
If chkm.Value = 1 Then
lbl2.FontItalic = True
Else
lbl2.FontItalic = False
End If
End Sub

Private Sub chkt_Click()
If chkt.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = False
End If
End Sub

Private Sub ok_Click()
lbl2.Caption = txtsesuatu.Text
End Sub

Private Sub opnb_Click()
lbl2.ForeColor = vbBlue
End Sub

Private Sub opng_Click()
lbl2.ForeColor = vbGreen
End Sub

Private Sub opnr_Click()
lbl2.ForeColor = vbRed
End Sub

Private Sub opny_Click()
lbl2.ForeColor = vbYellow
End Sub
'17100002 bhadi rama dhani

Private Sub selesai_Click()
End
End Sub

aplikasi mengganti warna fount dan colour tugas 5

Private Sub chkb_Click()
If chkb.Value = 1 Then
lbl1.FontBold = True
Else
lbl1.FontBold = False
End If
End Sub

Private Sub chki_Click()
If chki.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub chks_Click()
If chks.Value = 1 Then
lbl1.FontStrikethru = True
Else
lbl1.FontStrikethru = False
End If
End Sub

Private Sub chku_Click()
If chku.Value = 1 Then
lbl1.FontUnderline = True
Else
lbl1.FontUnderline = False
End If
End Sub


Private Sub opnb_Click()
lbl1.ForeColor = vbBlue
End Sub

Private Sub opng_Click()
lbl1.ForeColor = vbGreen
End Sub
'17100002 bhadi rama dhani

Private Sub opnr_Click()
lbl1.ForeColor = vbRed
End Sub

Private Sub opny_Click()
lbl1.ForeColor = vbYellow
End Sub

Private Sub QUIT_Click()
Unload Me
End Sub

aplikasi perhitungan gaji menggunakan keypress tugas 4

Private Sub KELUAR_Click(Index As Integer)
Unload Me
End Sub

Private Sub PROSES_Click(Index As Integer)
TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT)
TXTPJ = Val(TXTGK) * 0.1
TXTGD = Val(TXTGK) - Val(TXTPJ)
End Sub


Private Sub TXTGP_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 ULANG_Click()
TXTGP = ""
TXTTJ = ""
TXTPT = ""
TXTGK = ""
TXTPJ = ""
TXTGD = ""
TXTGP.SetFocus
End Sub

aplikasi perhitungan gaji tugas 3

Private Sub KELUAR_Click(Index As Integer)
Unload Me
End Sub

Private Sub PROSES_Click(Index As Integer)
TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT)
TXTPJ = Val(TXTGK) * 0.1
TXTGD = Val(TXTGK) - Val(TXTPJ)
End Sub


Private Sub ULANG_Click()
TXTGP = ""
TXTTJ = ""
TXTPT = ""
TXTGK = ""
TXTPJ = ""
TXTGD = ""
TXTGP.SetFocus
End Sub

tugas 2 harga setelah diskon 10% menggunakan keypress

Private Sub cmdhitung_Click() Dim A, B, C As Double TxtB.txt = Val(TxtA.txt) * 0.1 TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt) End Sub Private Sub cmdquit_Click() End If End Sub Private Sub cmdulangi_Click() TxtA = "" TxtB = "" TxtC = "" End Sub Private Sub TxtA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtB = Val(TxtA) * 0.1 TxtC = Val(TxtA) - Val(TxtB) End If 
End Sub

tugas 1 perhitungan harga diskon 10%

private sub txtha_keypress (keyasci as integer)
if keyasci = val (txtha)*0.1
txtak = val (txtha)- val (txtdis)
end if
end sub
private sub cmd hitung click ()
if keyasci = val (txtha)*0.1
txtak = val (txtha)- val (txtdis)
end sub

kalkulator menggunakan keypress

Private Sub cmdbatal_Click()

txtn1 = ""

txtn2 = ""

txtn3 = ""

txtn4 = ""

txtn5 = ""

txtn6 = ""

txtn7 = ""

txtn8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtn1.SetFocus

End Sub

Private Sub cmdhitung_Click()

txttotal1 = Val(txtn1) + Val(txtn5)

txttotal2 = Val(txtn2) / Val(txtn6)

txttotal3 = Val(txtn3) - Val(txtn7)

txttotal4 = Val(txtn4) * Val(txtn8)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtn1 = ""

txtn2 = ""

txtn3 = ""

txtn4 = ""

txtn5 = ""

txtn6 = ""

txtn7 = ""

txtn8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtn1.SetFocus

End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn7.SetFocus

End If

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn3.SetFocus

End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn4.SetFocus

End If

End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn5.SetFocus

End If

End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn6.SetFocus

End If

End Sub

Private Sub txtn7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn8.SetFocus

End If

End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotal1 = Val(txtn1) + Val(txtn5)

txttotal2 = Val(txtn2) / Val(txtn6)

txttotal3 = Val(txtn3) - Val(txtn7)

txttotal4 = Val(txtn4) * Val(txtn8)

End If

End Sub

kalkulator

Private Sub cmdbatal_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txttotal1 = ""
txttotal2 = ""
txttotal4 = ""
txttotal3 = ""
txtn1.SetFocus
End Sub

Private Sub cmdhitung_Click()
txttotal1 = Val(txtn1) + (txtn2)
txttotal2 = Val(txtn3) / (txtn4)
txttotal3 = Val(txtn5) - (txtn6)
txttotal4 = Val(txtn7) * (txtn8)
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txttotal1 = ""
txttotal2 = ""
txttotal4 = ""
txttotal3 = ""
txtn1.SetFocus
End Sub

penjumlahan menggunakan keypres

Private Sub cmdhitung_Click()
txttotal = Val(txtn1) + (txtn2)
End Sub


Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtn1 = ""
txtn2 = ""
txttotal = ""
txtn1.SetFocus
End Sub




Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub



Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(txtn1) + (txtn2)
End If
End Sub

penjumlahan

Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

data mahasiswa stmik pringsewu menggunakan keypres

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

data mahasiswa stmik pringsewu

langkah langkah membuat program

Private Sub Command1_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub

Private Sub Command2_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_Change()

End Sub

PERAN IT DALAM MENINGKATKAN PENDAPATAN UMKM

STMIK PRINGSEWU –
Sekolah Tinggi Manajemen Informatika dan Komputer Pringsewu menggelar seminar untuk usaha kecil dan menengah (UKM) di kampus setempat. Dalam acara seminar tersebut di awali dengan menyanyikan lagu indonesia raya & mars Pringsewu, dilanjutkan dengan sambutan ketua LLPM STMIK Pringsewu (M. Muslihudin, M.T.I), sambutan Direktur Inovasi dan Kompetisi Universitas Komputer Indonesia (Dr. Yusrilla Yeka Kerlooza), sambutan sekaligus membuka acara seminar oleh Wakil Ketua III STMIK Pringsewu (Nur Aminudin, M.T.I).

Dalam acara tersebut dihadiri oleh Wakil Ketua I STMIK Pringsewu (Elisabet YA, M.T.I), Wakil Ketua II (Kasmi, M.M), Wakil Ketua III (Nur Aminudin, M.T.I), Kaprodi Sistem Informasi (Tri Susilowati, M.T.I), Kaprodi Manajemen Informatika (Oktafianto, M.T.I), Ketua LPPM (M. Muslihudin, M.T.I), bapak ibu dosen STMIK Pringsewu, Dosen STIT Pringsewu, Dosen STEBI Tanggamus, Dosen STIT Multazam Lampung Barat, 23 Kepala Pekon yang berada di wilayah Kabupaten Pringsewu, serta bapak/ibu dosen perguruan tinggi swasta di Kabupaten Pringsewu.

Acara seminar tersebut menghadirkan narasumber Dr. Yusrilla Yeka Kerlooza, beliau Direktur Inovasi dan Kompetisi Universitas Komputer Indonesia. Beliau mengatakan, Usaha Mikro, Kecil, dan Menengah (UMKM) merupakan kelompok pelaku ekonomi terbesar dalam perekonomian Indonesia dan terbukti menjadi katup pengaman perekonomian nasional dalam masa krisis, serta menjadi dinamisator pertumbuhan ekonomi pasca krisis ekonomi. Selain menjadi sektor usaha yang paling besar kontribusinya terhadap pembangunan nasional, UMKM juga menciptakan peluang kerja yang cukup besar bagi tenaga kerja dalam negeri, sehingga sangat membantu upaya mengurangi pengangguran.

Teknologi informasi merupakan bentuk teknologi yang digunakan untuk menciptakan, menyimpan, mengubah, dan menggunakan informasi dalam segala bentuknya. Melalui pemanfaatan teknologi informasi ini, perusahaan mikro, kecil maupun menengah dapat memasuki pasar global.

Peran UKM yang signifikan dan terbukti sebagai pendorong pertumbuhan ekonomi rakyat tentunya perlu ditingkatkan agar dapat berkembang secara lebih luas dan mempunyai daya saing. Teknologi informasi tentunya memliki peran penting dalam meningkatkan daya saing, mengingat teknologi informasi menawarkan bermacam keuntungan di samping memiliki kerumitan.

Perkembangan teknologi informasi di Indonesia tumbuh mengikuti tingkat literasi masyarakat, dari daerah perkotaan menuju ke desa atau wilayah yang kecil. Teknologi informasi pada sektor bisnis sendiri cukup mendapat respon yang baik dikalangan pelaku usaha.

Pemanfaatan Teknologi Informasi pada UMKM Sebagai Suatu Inovasi, Sebagai suatu inovasi oleh UMKM tentunya teknologi informasi memiliki sejumlah keuntungan diantaranya memberikan peluang memperluas akses pasar, sebagai media pemasaran, dan masih banyak lagi.

Dengan demikian diharapkan UKM dapat mendapatkan berbagai keuntungan dalam mempromosikan usahanya, mengakses informasi faktor-faktor produksi, melakukan transaksi usaha, serta melakukan komunikasi bisnis lainnya secara global, dalam rangka memperluas jaringan usahanya, ucapnya.

Beliau menambahkan, tadi bapak/ibu sudah menyaksikan MoU antara STMIK Pringsewu dan Universitas Komputer Indonesia dalam bidang penelitian dan pengabdian pada Masyarakat, untuk itu kepada pelaku UMKM di Kabupaten Pringsewu kami siap untuk membantunya dalam bidang teknologi informasi, pungkasnya. (*na)

KONDISI JALAN YANG MULUS BERASPAL SANGAT DIBUTUHKAN

PRINGSEWU – Sabtu (23/9), Pekon Sukoyoso merupakan salah satu pekon yang berada di wilayah Kecamatan Sukoharjo Kabupaten Pringsewu. Kondisi jalan pekon yang mulus beraspal sangat dibutuhkan warga karena untuk mempermudah sarana transportasi.

Jalan merupakan salah satu urat nadi perkembangan perekonomian suatu daerah. Apabila jalannya rusak, segala hal yang berhubungan dengan laju pertumbuhan perekonomian suatu daerah tentunya akan menjadi terhambat,” ujar Nur Aminudin

Kami sangat mengharapkan adanya pengaspalan jalan lapangan merdeka Sukoyoso, jalan lapangan merdeka Sukoyoso Pekon Sukoyoso Kecamatan Sukoharjo yang merupakan jalan penghubung antar pekon yang sudah dionderlagh dengan harapan segera diaspal, kami menyadari semuanya itu memang butuh proses, tetapi proses itu sampai kapan akan dilaksanakan sehingga jalan tersebut benar-benar terwujud untuk diaspal.

Kami berharap pada pemerintah baru kali ini untuk dapat mengalokasikan anggaran untuk mengaspal jalan lapangan merdeka Sukoyoso Pekon Sukoyoso Kecamatan Sukoharjo yang merupakan jalan penghubung antar pekon yang sudah dionderlagh tersebut.(*na)

STMIK PRINGSEWU – RESIMEN MAHASISWA GELAR SEMINAR “MENCEGAH RADIKALISME”

STMIK PRINGSEWU – Senin (2/10), maraknya paham radikalisme yang mengancam keutuhan NKRI akhir-akhir ini menggugah resimen mahasiswa batalyon 208 Raider Pringsewu untuk melakukan gerakan perlawanan. Gerakan tersebut dengan melaksanakan seminar “Peran Mahasiswa dalam mencegah Radikalisme di Lingkungan Kampus dan Masyarakat”.

Kegiatan tersebut merupakan program kerja staf komando resimen mahasiswa Raden Intan Batalyon 208 Raider Pringsewu tahun 2017-2018 tentang pelaksanaan seminar serta kesepakatan bersama empat menteri : menteri pertahanan, menteri dalam negeri, menteri riset teknologi dan dikti, menteri pemuda dan olah raga nomor KB/11/XII/2014, 421.73/6660A/SJ, 6/M/MOU/XII/2014, 1175 tahun 2014 tanggal 19 Desember 2014 tentang pembinaan dan pemberdayaan resimen mahasiswa Indonesia dalam bela negara.seminar “Peran Mahasiswa dalam mencegah Radikalisme di Lingkungan Kampus dan Masyarakat” yang berlangsung di Auditorium Lt. II STMIK Pringsewu dihadiri oleh dandim 0424 Tanggamus Letkol Inf. Hista Soleh Harahap sekaligus selaku narasumber, Danramil Pringsewu Kapten Inf Redi Kurniawan, Wakil Ketua I Bidang Akademik Elisabet Yunaeti A, M.T.I, Wakil Ketua III bidang Kemahasiswaa Nur Aminudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, bapak/ibu dosen serta 284 mahasiswa STMIK Pringsewu.

Seminar “Peran Mahasiswa dalam mencegah Radikalisme di Lingkungan Kampus dan Masyarakat” dibuka oleh Wakil Ketua III bidang kemahasiswaan Nur Aminudin, M.T.I, beliau mengatakan mengapresiasi langkah resimen mahasiswa dalam mencegah peredaran paham radikalisme, penyebaran paham radikalisme tidak terlepas dari pengaruh dan dampak isu global yang terjadi, Kegiatan ini menunjukkan komitmen resimen mahasiswa dalam mencegah paham radikalisme terutama di lingkungan kampus dan masyarakat dalam menjaga keutuhan NKRI, ucapnya dalam sambutan.

Dandim 0424 Letkol Inf. Hista Soleh Harahap selaku narasumber mengatakan, gerakan radikalisme yang dapat meruntuhkan rasa kebangsaan dan persatuan semakin mengkhawatirkan, maka perlu ada pemahaman pancasila, Pancasila merupakan lambang serta dasar Negara Kesatuan Republik Indonesia yang harus dipahami, dihayati, dimengerti serta diimplementasikan dalam kehidupan sehari-hari, hal tersebut supaya nilai-nilai luhur Pancasila tidak luntur mengingat upaya yang dilakukan oleh kelompok radikalisme. Maraknya gerakan radikal yang terjadi dengan sasaran generasi muda, Kodim 0424 Tanggamus melakukan langka antisipasi dengan memberikan materi seminar “Peran Mahasiswa dalam mencegah Radikalisme di Lingkungan Kampus dan Masyarakat” dengan materi dialog interaktif mencegah gerakan radikalisme dengan mendalami ideologi yang sesungguhnya. Beliau mengimbau kepada mahasiswa agar dapat selalu berpedoman pada Pancasila dan selalu bertindak proaktif dalam pencegahan Paham Radikalisme,” ucapnya. (*na)

PENGUMUMAN PENDAFTARAN CALON ANGGOTA PPK DAN PPS

Dalam rangka pelaksanaan Pemilihan Gubernur dan Wakil Gubernur Provinsi Lampung Tahun 2018, Komisi Pemilihan Umum Kabupaten Pringsewu membuka pendaftaran anggota Panitia Pemilihan Kecamatan (PPK) dan Panitia Pemungutan Suara (PPS).

Silahkan unduh :
1. Pengumuman
2. Surat Pendaftaran dll

SUMBER : KPU PRINGSEWU

18 PARTAI POLITIK DI KABUPATEN PRINGSEWU YANG MENYERAHKAN SALINAN BUKTI KEANGGOTAAN PARTAI POLITIK CALON PESERTA PEMILU TAHUN 2019

Foto KPU Pringsewu

PRINGSEWU – 18 Partai Politik di Kabupaten Pringsewu yang menyerahkan salinan bukti keanggotaan Partai Politik Calon Peserta Pemilu sampai dengan berakhirnya batas waktu yang ditentukan oleh KPU Selasa (17/10) pukul 24.00 WIB.

Ke 18 Partai Politik tersebut Perindo, PDIP, Nasdem, PSI, PKS, Gerindra, PPP, Golkar, PAN, Demokrat, Garuda, Hanura, Republik, PBB, PKPI, PIKA, Berkarya, PKB.

Foto KPU Pringsewu

Ketua KPU Pringsewu Andoyo.M.T.I mengatakan, Pendaftaran partai politik dan penyerahan syarat pendaftaran dimulai dari 3 sampai dengan 16 Oktokber, dan perbaikan penyerahan salinan salinan bukti keanggotaan partai politik calon peserta pemilu tahun 2019 sesuai Surat Ketua Partai KPU RI No. 585/PL.01. 1-SD/03/KPU/X/2017 tanggal 16 Oktokber 2017 Perihal Pendaftaran akhir Partai Politik Peserta Pemilu tahun 2019, yang dilaksanakan tanggal 17 Oktokber 2017 hingga pukuk 24.00 Wib.

Dari batas waktu yang diberikan ke 18 parpol yang menyerahkan dan perbaikan berkas ke KPU Pringsewu tidak ada yang melampaui batas waktu yang sudah ditentukan.

Tahapan selanjutnya menurut Andoyo adalah penelitian administrasi oleh KPU Kabupaten dari 17 Oktokber hingga 15 November, untuk penyampaian hasil penelitian 16 – 17 November, sedangkan perbaikan Administrasi oleh Parpol 18 Novembet hingga 1 Desember 2017. Sementara untuk verifikasi faktual di tingkat desa atau kelurahan dari 12 hingga 25 Desember 2017, ujar Andoyo.

Sumber : KPU PRINGSEWU