TUGAS 2 PROGRAM 8 BP1

Private Sub Form_Load() Cbonpm.AddItem "17100075" Cbonpm.AddItem "17200089" Cbonpm.AddItem "16200092" Cbonpm.AddItem "17200256" Cbonpm.AddItem "16100232" End Sub Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm  Case "17100075"  nama = "DWI AGUNG CAHYADI"  jurusan = "Sistem Informasi"  Case "17200089"  nama = "IMAMUDDIN"  jurusan = "Manajemen Informatika"  Case...

Read More

TUGAS 2 PROGRAM 7 BP1

  Private Sub Form_Load() Cbonpm.AddItem "17100075" Cbonpm.AddItem "17200089" Cbonpm.AddItem "16200092" Cbonpm.AddItem "17200256" Cbonpm.AddItem "16100232" End Sub Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm  Case "17100075"  nama = "DWI AGUNG CAHYADI"  jurusan = "Sistem Informasi"  Case "17200089"  nama = "IMAMUDDIN"  jurusan = "Manajemen Informatika"  Case "16200092"  nama...

Read More

TUGAS 2 PROGRAM 6 BP1

Private Sub Cmdoke_Click() lbltext1.Caption = txtnnm.Text End Sub Private Sub Cmdexit_Click() End End Sub Private Sub Optbiru_Click() lbltext1.ForeColor = vbBlue End Sub Private Sub Optred_Click() lbltext1.ForeColor = vbRed End Sub Private Sub Chkbold_Click() lbltext1.FontBold = Chkbold.Value End Sub Private Sub Chkitalic_Click() lbltext1.FontItalic = Chkitalic.Value End S...

Read More

TUGAS 2 PROGRAM 5 BP1

Private Sub Cmdext_Click() End End Sub Private Sub Optred_Click() Lbltxt.ForeColor = vbRed End Sub Private Sub Optbiru_Click() Lbltxt.ForeColor = vbBlue End Sub Private Sub Opthijau_Click() Lbltxt.ForeColor = vbGreen End Sub Private Sub Optkuning_Click() Lbltxt.ForeColor = vbYellow End Sub Private Sub chkbold_Click() If Chkbold.Value = 1 Then Lbltxt.FontBold = True Else Lbltxt.FontBold = False End If End Sub Private...

Read More

TUGAS 2 PROGRAM 4 BP1

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan) txtpajak = Val(txtgajik) * 0.05 txtgajid = Val(txtgajik) - Val(txtpajak) End Sub Private Sub cmdulang_Click() txtgajip = "" txttn = "" txtpotongan = "" txtgajik = "" txtpajak = "" txtgajid = "" txtgajip.SetFocus End Sub Private Sub txtgajip_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttn.SetFocus End...

Read More

TUGAS 2 PROGRAM 3 BP1

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan) txtpajak = Val(txtgajik) * 0.05 txtgajid = Val(txtgajik) - Val(txtpajak) End Sub Private Sub cmdulang_Click() txtgajip = "" txttn = "" txtpotongan = "" txtgajik = "" txtpajak = "" txtgajid = "" txtgajip.SetFocus End S...

Read More

TUGAS 2 PROGRAM 2 BP1

Private Sub txtharga_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txthak.SetFocus txtdiskon = Val(txtharga) * 0.15 Txthak = Val(txtharga) - Val(txtdiskon) End If End Sub Private Sub cmdQuit_Click() End End Sub Private Sub cmdUlangi_Click() txtharga = "" txtdiskon = "" Txthak = "" txtharga.SetFocus End S...

Read More

TUGAS 2 PROGRAM 1 BP1

Private Sub cmdHitung_Click() txtdiskon = Val(txtharga) * 0.15 Txthak = Val(txtharga) - Val(txtdiskon) End Sub Private Sub cmdQuit_Click() End End Sub Private Sub cmdUlangi_Click() txtharga = "" txtdiskon = "" Txthak = "" txtharga.SetFocus End ...

Read More

PROGRAM 6 KALKULATOR MENGGUNAKAN ENTER

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...

Read More

PROGRAM 5 KALKULATOR MENGGUNAKAN MANUAL

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...

Read More

PROGRAM 4 PENJUMLAHAN MENGGUNAKAN ENTER

Private Sub Cmdhitung_Click() txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3) End Sub Private Sub Cmdbatal_Click() Txtn1 = "" txtn2 = "" txtn3 = "" txtjmlh = "" Txtn1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtn1 = "" txtn2 = "" txtn3 = "" txtjmlh = "" Txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End...

Read More

PROGRAM 3 PENJUMLAHAN MENGGUNAKAN MANUAL

Private Sub Cmdhitung_Click() txtjumlah = Val(txtn1) + Val(txtn2) + Val(txtn3) End Sub Private Sub Cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn1.SetFocus End S...

Read More

PROGRAM 2 DATA MAHASISWA STMIK PRINGSEWU MENGGUNAKAN ENTER

Private Sub Cmdbatal_Click() Txtnpm = "" txtnama = "" txtalamat = "" Txtnpm.SetFocus End Sub Private Sub Cmdlagi_Click() Txtnpm = "" txtnama = "" txtalamat = "" txtnama.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me 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...

Read More

PROGRAM 1 DATA MAHASISWA STMIK PRINGSEWU MENGGUNAKAN MANUAL

Private Sub Cmdbatal_Click() Txtnpm = "" txtnama = "" txtalamat = "" Txtnpm.SetFocus End Sub Private Sub Cmdlagi_Click() Txtnpm = "" txtnama = "" txtalamat = "" txtnama.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me  End S...

Read More

SanDisk Luncurkan microSD Berkapasitas 400GB

SanDisk telah meluncurkan kartu microSD baru yang berkapasitas tertinggi yang pernah diluncurkan, SanDisk Ultra microSDXC UHS-I 400GB,  pada hari Kamis pagi 31 Agustus 2017 di konferensi IFA 2017 Berlin. Kartu ini menawarkan penyimpanan 144GB lebih banyak daripada kartu microSD lainnya yang ada di pasaran. Kartu baru ini juga mendukung kecepatan baca 100MB, kinerja aplikasi A1, dan UHS Speed Class 1 untuk performa terbaik yang tersedia. "Kami...

Read More

Google Kenalkan Android Wear 2.0, Langsung Dipakai LG Watch

Jakarta - Pada 9 Februari mendatang, Google akan meluncurkan sistem operasi baru untuk perangkat yang bisa dikenakan ditubuh atau perangkat wearable. Sistem operasi Android Wear 2.0 ini akan diperkenalkan sekaligus tersedia untuk 18 perangkat wearable dari berbagai merek. Bersamaan dengan peluncuran sistem operasi, Google dikabarkan akan meluncurkan pula LG Watch Sport dan LG Watch Style. Kedua jam tangan pintar baru yang akan berjalan dengan...

Read More

GoPro Akan Pangkas 270 Karyawan, Fokus pada Produk Inti

San Francisco - GoPro melakukan pra-pengumuman pendapatan kuartal pertamanya hari ini. Perusahaan menyatakan berencana memangkas lebih dari 270 pekerja. Angka itu menambah daftar karyawan yang dipecat sebelumnya, yakni 100 orang atau 7 persen dari total tenaga kerja di perusahaan, yang diumumkan pada Januari 2016, serta 200 orang pada November 2016 atau 15 persen dari total pegawai. Pengurangan itu muncul saat GoPro berupaya mengendalikan...

Read More

Apple Jual 46,6 Juta iPhone pada Kuartal IV 2017

Apple merilis laporan finansial kuartal IV (Q4) 2017 yang berakhir pada 30 September 2017. Salah satu yang menarik dalam laporan tersebut adalah angka penjualan iPhone, mengingat perusahaan baru saja memulai penjualan smartphone terbarunya pada 22 September. Dikutip dari USA Today, Jumat (3/11/2017), Apple telah menjual 46,6 juta unit iPhone selama tiga bulan terakhir, sejalan dengan prediksi 46 juta unit dan naik dari 45,5 juta unit setahun yang lalu. Penjualan iPhone 8 diperkirakan kurang 10 persen dari total penjualan. "Kami yakin, kurang...

Read More

HomeTeknoGadget Logitech Luncurkan Duo Headset Gaming Teranyar di Pasaran

Logitech G, brand gaming Logitech, baru-baru ini mengumumkan kehadiran Logitech G433 7.1 Gaming Headset dan Logitech G233 Prodigy Gaming Headset di pasaran. Hadir sebagai solusi gamer yang menginginkan headset terbaik untuk bermain gim, kedua seri ini sudah dibekali dengan driver Pro-G yang mampu memberikan kualitas audio terbaik dibalut desain bodi headset yang ringan dan nyaman dipakai kapan pun dan di mana pun. "Jika kamu seperti...

Read More

Paten Oppo Ungkap Konsep Baru Smartphone Layar Lipat

Oppo tampaknya juga berminat untuk memeriahkan pasar smartphone layar lipat. Baru baru ini, tersebar bocoran bahwa vendor smartphone China itu mengajukan paten ponsel selfie berteknologi layar lipat.Paten ini memberikan gambaran baru akan sebuah smartphone layar lipat. Alih-alih semua bagian, smartphone konsep Oppo ini hanya bisa dilipat di bagian atasnya saja. Dikutip KompasTekno dari Phone Arena, Selasa (7/11/2017), smartphone Oppo terbaru...

Read More

Segera Meluncur, Xiaomi Mi 6C Pakai Prosesor Buatan Sendiri?

Xiaomi agaknya bakal segera melanjutkan upaya menanam System-on-Chip (SoC) buatan sendiri di ponsel-ponsel pintarnya. Setelah muncul perdana di Mi 5C (Surge S1) pada awal 2017, generasi kedua dari SoC Xiaomi, Surge S2, diduga akan segera hadir di produk berikutnya yang bernama Mi 6C. Rumor terbaru yang beredar dari China menyebutkan bhawa Mi 6C akan segera resmi hadir pada bulan Desember mendatang. Sebagai penerus Mi 5C, Xiaomi Mi 6C diduga akan...

Read More

Canggih, Dokter Berhasil Temukan Kankernya Sendiri Pakai iPhone

Seorang dokter berhasil mendiagnosis dirinya dengan kanker stadium empat hanya menggunakan ponsel pintar. Musim panas yang lalu, ahli bedah vaskular Dr. John Martin merasakan iritasi di tenggorokannya. Ia pun memutuskan menyelidiki hal tersebut dengan menggunakan Butterfly iQ. Ini merupakan perangkat ultrasound berukuran saku yang dibuat oleh Butterfly Network Setelah memperoleh bukti, Martin berkonsultasi dengan sesama speliasis untuk mengonfirmasi...

Read More

DSLR Mungil Canon EOS 200D Masuk Indonesia

Setelah EOS 6D Mark II yang resmi diluncurkan beberapa waktu lalu, PT Datascrip selaku distributor produk-produk Canon di Indonesia kembali memboyong kamera DSLR baru dari pabrikan tersebut.Kali ini kamera yang dipasarkan adalah EOS 200D, DSLR berbentuk mungil yang dirancang agar ringkas dan mudah digunakan oleh fotografer pemula. Dimensi fisik EOS 200D hanya 122,4 mm x 92,6 mm x 69,8 mm, dengan bobot 406 gram. Meski kecil, layaknya DSLR, EOS...

Read More

Samsung Rilis 2 Sensor Kamera Tipis, Untuk Galaxy S9?

Selain memproduksi gadget, Samsung juga merancang aneka macam komponen smartphone seperti chip memori dan sensor kamera. Pabrikan Negeri Ginseng tersebut pekan ini memperkenalkan sepasang sensor kamera baru yang masing-masing memiliki resolusi 12 megapiksel dan 24 megapiksel. Kedua sensor ditujukan untuk smartphone dan berbentuk tipis, agar modul kamera ponsel bisa rata dengan bodi dan tidak menonjol. Boleh jadi salah satu atau keduanya bakal...

Read More

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Yogyakarta – Senin (11/9), mahasiswa STMIK Pringsewu mengadakan kunjungan media ke harian Kedaulatan Rakyat. Kunjungan kali ini bertujuan untuk mendapat pengetahuan dari redaksi Kedaulatan Rakyat serta mengetahui proses penerbitan koran di tempat ini dengan jumlah peserta 250 orang meliputi mahasiswa dan dosen pendamping. Kedatangan mahasiswa STMIK Pringsewu disambut oleh Suci dilanjut Agus Suryana selaku perwakilan dosen pendamping. Agenda...

Read More

YUDISIUM PERIODE I TAHUN 2017

STMIK PRINGSEWU – Yudisium adalah proses akademik yang menyangkut penerapan nilai dan kelulusan mahasiswa dari seluruh proses akademik. Yudisium juga berarti pengumuman nilai kepada mahasiswa sebagai proses penilaian akhir dari seluruh mata kuliah yang telah di ambil mahasiswa dan penetapan nilai dalam transkrip akademik, serta memutuskan lulus atau tidaknya mahasiswa dalam menempuh studi selama jangka waktu tertentu, yang ditetapkan oleh ...

Read More

MAHASISWA STMIK PRINGSEWU BERTOLAK KE JOGJA – BANDUNG

STMIK PRINGSEWU – Sebanyak 250 mahasiswa STMIK Pringsewu melaksanakan kunjungan industry ke Jogja – Bandung yang akan dilaksanakan selama enam hari dari Minggu hingga Jum’at (10 – 15/9). Pelepasan tersebut oleh Wakil Ketua III (Bidang Kemahasiswaan) Nur Aminudin, M.T.I mewakili Ketua Yayasan Startech Pringsewu Lampung DR. H. Fauzi, S.E., M.Kom., AKt., CA. Sebelum acara pelepasan dimulai, diawali terlebih dahulu dengan membaca do’a yang...

Read More

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK

BANDUNG – Rabu (13/9) sebanyak 250 mahasiswa STMIK Pringsewu melakukan kunjungan ke PT. Primarindo Asia Infrasrtucture Tbk. Jl. Raya Ranca Bolang No. 98 Gedebage – Bandung yang disambut oleh Agus Sunarto sebagai Manajer HRD (Human Resource Development). Kegiatan kunjungan industri bertujuan untuk lebih mengenalkan mahasiswa terhadap dunia kerja yang berhubungan dengan bidang perkuliahannya. Kegiatan tersebut meliputi pemaparan company profile,...

Read More

MAHASISWA MENGIKUTI DISEMINASI HASIL KAJIAN AL-QUR’AN

PRINGSEWU – Pemerintah Kabupaten Pringsewu bekerja sama dengan Lajnah Pentashihan Mushaf Al-Qur’an (LPMQ) Badan Litbang dan Diklat Kementerian Agama RI, menggelar Diseminasi Hasil Kajian Al-Qur’an dan Dinamika Sosial (Menakar Peran Kementerian Agama​ Republik Indonesia) di Aula Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Kegiatan yang berlangsung Senin (23/10), pagi hingga siang ini dihadiri oleh Wakil Bupati...

Read More

REVOLUSI MENTAL DAN WAWASAN KEBANGSAAN

PRINGSEWU – Rabu (25/10), forum keserasian sosial Pekon Mulyorejo Kecamatan Banyumas mengadakan kegiatan dialog tematik dengan tema “Wawasan Kebangsaan” yang berlangsung di Balai Pekon Mulyorejo Kecamatan Banyumas. Ponidi, M.Pd selaku narasumber dari STMIK Pringsewu mengatakan, wawasan kebangsaan dapat juga diartikan sebagai cara memandang / sudut pandang yang mengandung kemampuan seseorang atau kelompok orang untuk memahami keberadaan jati...

Read More

STMIK PRINGSEWU GELARA UPACARA HARI SUMPAH PEMUDA KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA

STMIK PRINGSEWU — Setiap kali memperingati hari Sumpah Pemuda, semua stake holder berbondong-bondong menggelar berbagai acara, salah satunya yang dilakukan civitas akademik STMIK Pringsewu dengan menggelar Upacara Hari Sumpah Pemuda ke 89 di halaman kampus setempat, Sabtu (28/10. Nur Aminudin selaku Inspektur Upacara mengatakan, dihari Sumpah Pemuda yang ke-89 pada tahun 2017 ini, Resimen Mahasiswa dan rekan-rekan dari BEM, Mahasiswa,...

Read More