Selasa, 21 November 2017

Huruf Mutu Mahasiswa Stmik Pringsewu (2.8)

  Private Sub cbonpm_click() Dim nama, jurusan, hm As String Select Case cbonpm.Text 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" Case "17100010" nama = "Novia Anggraini" jurusan = "Sistem Informasi" Case "17100011" nama...

Hurug Mutu Mahasiswa Stmik Pringsewu Tanpa Keypress (2.7)

  Private Sub cbonpm_click() Dim nama, jurusan, hm As String Select Case cbonpm.Text 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" Case "17100010" nama = "Novia Anggraini" jurusan = "Sistem Informasi" Case "17100011" nama...

Tugas 2.6

  Private Sub cmdok_Click()lbl2.Caption = txtsesuatu.TextEnd SubPrivate Sub cmdselesai_Click()EndEnd SubPrivate Sub opnb_Click()lbl2.ForeColor = vbBlueEnd SubPrivate Sub opnm_Click()lbl2.ForeColor = vbRedEnd SubPrivate Sub opnk_Click()lbl2.ForeColor = vbYellowEnd SubPrivate Sub opnh_Click()lbl2.ForeColor = vbGreenEnd SubPrivate Sub chkt_Click()If chkt.Value = 1 Thenlbl2.FontBold = TrueElselbl2.FontBold = FalseEnd IfEnd SubPrivate Sub chkm_Click()If...

Tugas 2.5

  Private Sub chku_Click()If chku.Value = 1 Thenlbltext.FontUnderline = TrueElselbltext.FontUnderline = FalseEnd IfEnd SubPrivate Sub chkb_Click()If chkb.Value = 1 Thenlbltext.FontBold = TrueElselbltext.FontBold = FalseEnd IfEnd SubPrivate Sub chks_Click()If chks.Value = 1 Thenlbltext.FontStrikethru = TrueElselbltext.FontStrikethru = FalseEnd IfEnd SubPrivate Sub chki_Click()If chki.Value = 1 Thenlbltext.FontItalic = TrueElselbltext.FontItalic...

Aplikasi Perhitungan Gaji menggunakan keypress (2.4)

   Private Sub cmdproses_Click()txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)txtpaj = Val(txtkot) * 0.1txtgadi = Val(txtkot) - Val(txtpaj)End SubPrivate Sub cmdreset_Click()txtgapok = ""txttun = ""txtpot = ""txtkot = ""txtpaj = ""txtgadi = ""txtgapok.SetFocusEnd SubPrivate Sub cmdkeluar_Click()Unload MeEnd SubPrivate Sub txtgapok_keypress(keyascii As Integer)If keyascii = 13 Thentxttun.SetFocusEnd IfEnd SubPrivate Sub txttun_keypress(keyascii...

Aplikasi Perhitungan gaji tanpa keypress (2.3)

  Private Sub cmdproses_Click()txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)txtpaj = Val(txtkot) * 0.1txtgadi = Val(txtkot) - Val(txtpaj)End SubPrivate Sub cmdreset_Click()txtgapok = ""txttun = ""txtpot = ""txtkot = ""txtpaj = ""txtgadi = ""txtgapok.SetFocusEnd SubPrivate Sub cmdkeluar_Click()Unload MeEnd Sub&nbs...

Perhitungan harga setelah diskon 10 meggunakan keypress (2.2)

Private Sub cmdhitung_Click() txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - (txtdis) End Sub Private Sub cmdbatal_Click() txtha = "" txtdis = "" txtak = "" txtha.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - (txtdis) End If End ...

Perhitungan harga setelah diskon 10% tanpa keypress (Tugas 2.1)

Private Sub cmdhitung_Click() txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - (txtdis) End Sub Private Sub cmdbatal_Click() txtha = "" txtdis = "" txtak = "" txtha.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Label1_Click() End ...

Selasa, 14 November 2017

Tugas 6 Kalkulator menggunakan keypress

Private Sub Command1_Click()If Val(Text1.Text) & Val(Text5.Text) ThenText17.Text = Val(Text1.Text) + Val(Text5.Text)End IfIf Val(Text2.Text) & Val(Text6.Text) ThenText18.Text = Val(Text2.Text) / Val(Text6.Text)End IfIf Val(Text3.Text) & Val(Text7.Text) ThenText19.Text = Val(Text3.Text) - Val(Text7.Text)End IfIf Val(Text4.Text) & Val(Text8.Text) ThenText20.Text = Val(Text4.Text) * Val(Text8.Text)End IfEnd SubPrivate Sub Command3_Click()Text1.Text...

Tugas 5 Kalkulator Tanpa Keypress

  Private Sub Command1_Click()If Val(Text1.Text) & Val(Text5.Text) ThenText17.Text = Val(Text1.Text) + Val(Text5.Text)End IfIf Val(Text2.Text) & Val(Text6.Text) ThenText18.Text = Val(Text2.Text) / Val(Text6.Text)End IfIf Val(Text3.Text) & Val(Text7.Text) ThenText19.Text = Val(Text3.Text) - Val(Text7.Text)End IfIf Val(Text4.Text) & Val(Text8.Text) ThenText20.Text = Val(Text4.Text) * Val(Text8.Text)End IfEnd SubPrivate Sub Command3_Click()Text1.Text...

Tugas 4 penjumlahan Menggunakan Keypress

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 Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Text2.SetFocus End If End Sub Private...

Tugas 3 Penjumlahan Tanpa Keypress

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

Tugas 2 Data Mahasiswa menggunakan Keypress

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

Tugas 1 Data Mahasiswa Tanpa Keypress

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

Selasa, 07 November 2017

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

STMIK PRINGSEWU – SEMINAR BEDAH BUKU APSI

STMIK PRINGSEWU – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan acara Seminar dan Bedah Buku “Analisis Perancangan Sistem Informasi”, bertempat di Auditorium lantai II STMIK Pringsewu. Jum’at (30/9) Bedah buku tentu sangat berkaitan dengan dunia tulis menulis. Menulis merupakan sebuah kegiatan intelektualitas yang sangat bermanfaat bagi penulis atau pembaca. Dengan menulis kita bisa menuangkan isi...

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

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

STMIK PRINGSEWU – Sabtu (7/10), mahasiswa jurusan sistem informasi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan kegiatan table manner di hotel bukit randu lampung. Pengetahuan table manner bagi mahasiswa sangat penting untuk menambah pengetahuan dan pengalaman, hal ini juga merupakan proses pengembangan diri mahasiswa yang diintegrasikan dalam Mata Kuliah Character Building. Program...

PERAJIN TUNGKU SUKOYOSO, SUKOHARJO – PRINGSEWU

STMIK PRINGSEWU – Sabtu (26/8), TIM KKN STMIK Pringsewu di Pekon Sukoyoso saat menyambangi kediaman bapak Suyanto pria kelahiran Sukoyoso 25 Desember 1974, kami berkesempatan untuk melihat proses pembuatan tungku untuk memasak yang sudah ditekuni oleh bapak Suyanto suami dari ibu Erniawati di RT. 004 RW. 002 pekon Sukoyoso. Suyanto berharap masih banyak warga yang menggunakan tungku tanah buatannya sebab meski zaman sudah modern namun...

TEMU PAMIT MAHASISWA KKN STMIK PRINGSEWU

STMIK PRINGSEWU – Minggu (3/9) bertempat di balai pekon Sukoyoso Jam 20.30 WIB s/d selesai dilaksanakan temu pamit mahasiswa KKN STMIK Pringsewu yang sudah melaksanakan KKN di Pekon Sukoyoso selama 40 hari. Setiap Pertemuan pasti ada Perpisahan begitulah filosofi sejak dahulu, namun tanpa adanya pertemuan maka tidak akan kisah/cerita yang dapat menjadi kenangan. Sususan acara temu pamit di mulai dengan pembukaan, menyanyikan lagu Indonesia...

STMIK PRINGSEWU GELAR PEMOTONGAN HEWAN QURBAN

اللهُ أَكْبَرُ اللهُ أَكْبَرُ لاَ إِلَهَ إِلاَّ اللهُ وَاللهُ أَكْبَرُ اللهُ أَكْبَرُ وَللهِ الحَمْدُ Allahu akbar, Allahu akbar, laa ilaaha illallah wallahu akbar. Allahu akbar walillahil hamd. (artinya: Allah Maha Besar, Allah Maha Besar, tidak ada sesembahan yang berhak disembah selain Allah dan Allah Maha Besar. Allah Maha Besar, segala puji bagi-Nya). فَصَلِّ لِرَبِّكَ وَانْحَرْ “Dirikanlah shalat dan berqurbanlah (an nahr).” (Qs. Al Kautsar:...