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 = "Ariansyah"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "Dimas Apriangga"
jurusan = "Sistem Informasi"
Case "17100013"
nama = "Irmanida Siswanti"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjur.Text = ""
txtquis.Text = ""
txttgs.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub


Private Sub cmdproses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtquis.Text)
tugas = Val(txttgs.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.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 cmdkeluar_Click()
Unload Me
End Sub


Private Sub Form_Load()
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100012"
cbonpm.AddItem "17100013"
End Sub

Private Sub txtquis_keypress(keyascii As Integer)
If keyascii = 13 Then
txttgs.SetFocus
End If
End Sub

Private Sub Txttgs_keypress(keyascii As Integer)
If keyascii = 13 Then
txtuts.SetFocus
End If
End Sub

Private Sub txtuts_keypress(keyascii As Integer)
If keyascii = 13 Then
txtuas.SetFocus
End If
End Sub

Private Sub txtuas_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim na As Integer
Dim hm As String
quis = Val(txtquis.Text)
tugas = Val(txttgs.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.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

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 = "Ariansyah"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "Dimas Apriangga"
jurusan = "Sistem Informasi"
Case "17100013"
nama = "Irmanida Siswanti"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjur.Text = ""
txtquis.Text = ""
txttgs.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub


Private Sub cmdproses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtquis.Text)
tugas = Val(txttgs.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.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 cmdkeluar_Click()
Unload Me
End Sub


Private Sub Form_Load()
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100012"
cbonpm.AddItem "17100013"
End Sub



Tugas 2.6

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

Private Sub cmdselesai_Click()
End
End Sub

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

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

Private Sub opnk_Click()
lbl2.ForeColor = vbYellow
End Sub

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

Private Sub chkt_Click()
If chkt.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = 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 chkgb_Click()
If chkgb.Value = 1 Then
lbl2.FontUnderline = True
Else
lbl2.FontUnderline = False
End If
End Sub
 

Tugas 2.5

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

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

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

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

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

Private Sub opnp_Click()
lbltext.ForeColor = vbBlue
End Sub

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

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

Private Sub cmdquit_Click()
Unload Me
End Sub
 

Aplikasi Perhitungan Gaji menggunakan keypress (2.4)

 Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub

Private Sub cmdreset_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtgapok_keypress(keyascii As Integer)
If keyascii = 13 Then
txttun.SetFocus
End If
End Sub

Private Sub txttun_keypress(keyascii As Integer)
If keyascii = 13 Then
txtpot.SetFocus
End If
End Sub

Private Sub txtpot_keypress(keyascii As Integer)
If keyascii = 13 Then
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End If
End Sub
 

Aplikasi Perhitungan gaji tanpa keypress (2.3)

Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub

Private Sub cmdreset_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub
 

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 Sub

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 Sub

Selasa, 14 November 2017

Tugas 6 Kalkulator menggunakan keypress


Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text5.Text) Then
Text17.Text = Val(Text1.Text) + Val(Text5.Text)
End If

If Val(Text2.Text) & Val(Text6.Text) Then
Text18.Text = Val(Text2.Text) / Val(Text6.Text)
End If

If Val(Text3.Text) & Val(Text7.Text) Then
Text19.Text = Val(Text3.Text) - Val(Text7.Text)
End If

If Val(Text4.Text) & Val(Text8.Text) Then
Text20.Text = Val(Text4.Text) * Val(Text8.Text)
End If




End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
End Sub


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

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If

End Sub

Tugas 5 Kalkulator Tanpa Keypress

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text5.Text) Then
Text17.Text = Val(Text1.Text) + Val(Text5.Text)
End If

If Val(Text2.Text) & Val(Text6.Text) Then
Text18.Text = Val(Text2.Text) / Val(Text6.Text)
End If

If Val(Text3.Text) & Val(Text7.Text) Then
Text19.Text = Val(Text3.Text) - Val(Text7.Text)
End If

If Val(Text4.Text) & Val(Text8.Text) Then
Text20.Text = Val(Text4.Text) * Val(Text8.Text)
End If




End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
End Sub
 

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

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 KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

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

SKH-1

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.

SKH-3

Kedatangan mahasiswa STMIK Pringsewu disambut oleh Suci dilanjut Agus Suryana selaku perwakilan dosen pendamping. Agenda hari itu dimulai dengan pemberian materi singkat oleh Suci Kedaulatan Rakyat, mengenai sejarah Kedaulatan Rakyat dan proses penerbitan. Kedaulatan Rakyat merupakan salah satu koran tertua di Indonesia. Harian ini berdiri pada tanggal 27 September 1945, artinya Kedaulatan Rakyat sudah seusia dengan negara ini. Pada masa itu, Kedaulatan Rakyat didirikan oleh H. Samawi dan H. Madikin sebagai alat penyambung lidah. Kedaulatan Rakyat merupakan koran lokal Yogyakarta, dan sampai saat ini tidak dijadikan koran nasional. Sebab isi berita dalam koran ini adalah untuk mengangkat kearifan lokal Daerah Istimewa Yogyakarta.
Suci menyampaikan rasa senang mendapat kunjungan dari mahasiswa STMIK Pringsewu Lampung, karena sering juga mendapat kunjungan sejenis dari berbagai perguruan tinggi dan mengapresiasi mahasiswa untuk mengetahui media pers berupa surat kabar lokal dengan perkembangan historical skh sejak jaman orla sampai mantan menteri penerangan Harmoko orba sampai perkembangan terkini skh yang masuk urutan 7 surat kabar nasinal yang asli lahir dari masyarakat jogja.

SKH-2

Sementara Agus Suryana, M.T.I menyampaikan kunjungan mahasiswa merupakan sharing knowladge sejarah surat kabar tertua berdiri th 45 dan sharing proses manajemen surat serta sejarah perkembangan surat kabar tertua serta kunjungan ke percetakannya serta musium surat kabar dari jaman Soekarno dan Hatta serta kontribusi surat kabar lokal jawa yg menjadi corong suara rakyat jogyakarta yang mengaspirasikan suara dan hati rakyat, mahasiswa dituntut untuk peka terhadap isu-isu yang berkembang dimedia massa baik itu media cetak, elektronik maupun online, karena jika tidak maka akan ketinggalan banyak informasi dan tentunya untuk melatih softskill mahasiswa kami karena dewasa ini mahasiswa tidak hanya diberikan teori saja tetapi teori tersebut harus mampu diterapkan dan diaplikasikan oleh mereka sehingga harapannya nanti ketika mahasiswa lulus mereka sudah tidak canggung untuk terjun dalam dunia kerja.

SKH-4

Setelah diruang pertemuan selesai, untuk mengetahui langkah-langkah percetakan, mahasiswa STMIK Pringsewu diajak memasuki ruang penjilidan. Disana mahasiswa STMIK Pringsewu dipandu oleh Budi pembimbing SKH Kedaulatan Rakyat, di ruang penjilidan mahasiswa STMIK Pringsewu ditunjukkan bagaimana proses penjilidan. Proses penjilidan ada beberapa tahap diantaranya melipat, mengatur, memotong, dan menjahit kertas. Resiko tangan operator terpotong oleh mesin sangatlah kecil karena terdapat sensor. Sedangkan di ruang percetakan Budi menunjukkan mesin Goss Magnum seharga 30 milyar. Mesin ini mempunyai kemampuan daya cetak 60.000 ekslempar per jam. Mesin ini juga dapat dioperasikan lewat komputer.

sumber http://stmikpringsewu.ac.id 

STMIK PRINGSEWU – SEMINAR BEDAH BUKU APSI


Foto_Bd_Buku APSI_STMIK
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 pikiran kita terhadap sesuatu. Dengan menulis kita bisa berekspresi dengan bebas terkait keilmuan yang berkembang. Sehingga bisa dikatakan sebuah karya tulisan sebagai perwakilan ekspresi dari pemikiran sang penulis untuk ditransfer kepada semua pembaca dimanapun berada.
Hadir dalam acara bedah buku tersebut, Wakil Ketua I (E. Yunaeti A, M.T.I), Wakil Ketua III (Nur Aminudin, M.T.I), Ka. LPPM (M. Muslihudin, M.T.I), Ka. SDM (Dedi Irawan, M.E.Sy), Kaprodi Manajemen Informatika (Oktavianto, M.T.I), tidak ketinggalan Bapak dan Ibu dosen dilingkungan STMIK Pringsewu.
Dalam sambutannya Nur Aminudin, M.T.I (Wakil Ketua III) STMIK Pringsewu mengatakan, Analisis dan perancangan sistem adalah suatu pendekatan yang sistematis untuk mengidentifikasi masalah, peluang dan tujuan, mengidentifikasi arus data dan arus informasi, merancang sistem informasi. Dengan dilaksanakan seminar bedah buku tersebut diharapkan mahasiswa memahami konsep dasar Analisa dan perancangan Sistem Informasi, mahasiswa memahami pentingnya fase Analisa dan desain dalam pembangunan sebuah sistem informasi, mahasiswa memahami peran seorang system analyst, mahasiswa memahami penyebab terbesar gagalnya proyek sistem informasi, yang akan di kupas oleh penulisnya Oktavianto, M.T.I & M. Muslihudin, M.T.I, ucapnya sekaligus membuka acara seminar bedah buku tersebut.

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK.



IMG-20170913-0155
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, kunjungan pabrik serta peluang kerja bagi lulusan atau alumni dari STMIK Pringsewu.

IMG-20170913-WA0163Agus Sunarto selaku Manajer HRD (Human Resource Developmen) menjelaskan tentang PT. Primarindo Asia Infrastructure Tbk, beliau mengatakan bahwa PT. Primarindo Asia Infrastructure Tbk. didirikan pada tahun 1988 dengan nama PT Bintang Kharisma, dengan status Penanaman Modal Dalam Negeri (PMDN). Pada tahun 1994, Perseroan mencatatkan dan menjual sahamnya di Bursa Efek Jakarta, dan menjadi PT Bintang Kharisma Tbk. Pada tahun 1997, Perseroan mengganti nama dari PT Bintang Kharisma Tbk menjadi PT Primarindo Asia Infrastructure Tbk.

Pada awal pendirian, Perseroan memproduksi sepatu sport seluruhnya dengan tujuan ekspor. Namun, pada tahun 2002, Reebok yang merupakan buyer utama Perseroan melakukan relokasi usaha yang berakibat terhentinya order. Seiring dengan terhentinya order ekspor tersebut, Perseroan mulai merintis penjualan sepatu di pasar dalam negeri dengan merk sendiri yaitu “Tomkins”. Sampai saat ini, penjualan sepatu Tomkins telah tersebar ke seluruh Indonesia.
Selain memproduksi dan memasarkan sepatu TOMKINS, Perseroan juga menerima order produksi sepatu merk lain untuk keperluan ekspor, seperti Lonsdale, Dunlop, Firetrap, dan lain-lain.
Beliau mengatakan, produk yang dijual Perseroan di pasar lokal adalah sepatu dengan merk “Tomkins”, yang merupakan sepatu jenis casual dengan penekanan pada jenis sepatu sekolah. Sebagai contoh sepatu Tomkins yang dijual seperti sepatu anak, sepatu remaja, sepatu wanita, sepatu pria.
Kelebihan sepatu Tomkins paling banyak pilihan, mengikuti trend paling mutakhir, menggunakan referensi model populer dan brand ternama di dunia, produk baru dengan minimal 50 modelper-tahun, urut design dan development yang terus menerus mengembangkan design/model baru, menjadi pelopor model di Indonesia, selalu menjaga kualitas dan harga terjangkau, ucap Agus Sunarto sebagai Manajer HRD (Human Resource Development).
Sumber http://stmikpringsewu.ac.id


 

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

IMG-20171007-0006
IMG-20171007-0005
IMG-20171007-0004
IMG-20171007-0003
IMG-20171007-0002
IMG-20171007-0001
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 table manner tersebut, agar para mahasiswa dapat mengetahui praktek dan pengalaman tata cara makan yang baik secara langsung, mahasiswa yang telah mengikuti program tersebut, nantinya dapat dipraktekan dengan baik dalam jamuan makan.
Sudewi, M.M selaku dosen mata kuliah Character Building dan selaku dosen pendamping mengatakan, program studi sistem informasi kelas line 6 Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu mengasah skill mahasiswanya melalui tabel manner. Tabel manner itu adalah aturan etika yang dipergunakan pada saat makan, yang mana memberikan petunjuk-petunjuk yang benar dalam penggunaan alat makan. Perbedaan budaya makan dapat membuat aturan tersebut berubah-ubah yang bertujuan menambah wawasan mahasiswa tentang etika budaya bangsa-bangsa lain. Kepada para mahasiswa yang nantinya akan menjadi seorang Public Relations Officer. Pelatihan yang diikuti oleh sekitar 40 orang mahasiswa angkatan 2016–2017.
Lebih lanjut diungkapkan Dosen Pendamping Sudewi, kegiatan table manner juga untuk mengetahui kepribadian seseorang melalui tata cara bersikap dan berperilaku di meja makan. Kami menempah mahasiswa tak hanya secara teori mata kuliah saja, melainkan juga mempraktekkannya. Kami juga menginginkan mahasiswa nantinya menjadi guru yang baik dalam berucap, bersikap dan berperilaku sopan dalam masyarakat,” ungkapnya.
Mempelajari Table Manner sama sekali bukan untuk mengubah kebiasaan kita sehari-hari di rumah, tetapi hanya sebagai dasar yang perlu diketahui agar tingkah gerak dan perilaku kita pada waktu dihadapkan pada kondisi yang formal tidak menjadi kaku, merasa rendah diri dengan keadaan yang serba aneh. Dalam kegiatan Table Manner kita akan menghadapi 3 aspek penting yaitu (1). Table Setting (Persiapan dan Penataan), (2). Food & Beverage Service (Sistem dan Cara Pelayanan), (3). Table Etiquette (Etika Servis dan Pelayanan).

sumber https://stmikpringsewu.ac.id

 

PERAJIN TUNGKU SUKOYOSO, SUKOHARJO – PRINGSEWU

TUNGKU
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.
TUNGKU-1
Suyanto berharap masih banyak warga yang menggunakan tungku tanah buatannya sebab meski zaman sudah modern namun banyak warga pedesaan yang masih menggunakan tungku tanah buatannya. Hal ini pula yang membuat semangat kerja Suyanto warga pekon Sukoyoso Kecamatan Sukoharjo, Pringsewu ini untuk tetap membuat tungku yang berbahan dasar abu bekas bakaran sekam. Abu ini yang ia gunakan sebagai bahan baku pembuatan tungku merupakan sisa pembakaran bata.
Lelaki kelahiran tahun 1974 juga terhitung jeli dalam bertindak. Ia bisa menjadikan proses pembakaran batu bata sebagai sarana penghasil abu sekam. Menurut suami dari Erniawati membuat tungku abu sekam bukanlah hal yang sulit. Hanya saja dibutuhkan kesabaran dan ketelatenan, ucapnya.
Saat proses profil tungku yang dibuat belum memiliki lubang sejhingga proses selanjutnya tersebut diberi lubang, lalu meratakan dasar tungku dan dihaluskan.
Setelah proses tersebut tungku tungku bisa ditumpuk dengan rapi di lokasi yang sudah disiapkan dengan penataan batu bata serta diisi dengan sekam untuk proses pembakaran selama waktu yang sudah ditentukan hingga tungku tersebut matang.

TEMU PAMIT MAHASISWA KKN STMIK PRINGSEWU

fb
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 Raya dan Mars Pringsewu, sambutan DPL KKN STMIK Pringsewu Pekon Sukoyoso sekaligus penarikan mahasiswa KKN, sambutan Kepala Pekon, serah terima secara simbolis Sistem Informasi Pekon (SIP) dari perwakilan mahasiswa kepada Kepala Pekon, penjelasan singkat Sistem Informasi Pekon, dan terakhir penutup.
Nur Aminudin selaku Dosen Pendamping Lapangan dalam sambutannya menyampaikan ungkapan perasaan bangga kepada mahasiswa dan rasa terima kasih kepada Pemerintahan Pekon Sukoyoso dan masyarakat pekon Sukoyoso dengan diberikan kesempatan melaksanakan KKN di Pekon tersebut. Tentu saja banyak pengalaman dan kenangan tersendiri selama 40 hari melaksanakan KKN bagi mahasiswa kami, ucapnya.
Kuliah Kerja Nyata (KKN) mahasiswa STMIK Pringsewu di Pekon Sukoyoso telah berakhir, atas partisipasi dan peran mahasiswa STMIK Pringsewu di tengah-tengah masyarakat Pekon Sukoyoso, Kepala Pekon Sukoyoso Mukhaimin mengucapkan terima kasih kepada mahasiswa Kuliah Kerja Nyata STMIK Pringsewu. Beliau berharap kontribusi mahasiswa selama KKN STMIK Pringsewu dapat memberikan efek positif bagi masyarakat di Pekon Sukoyoso.
Selama 40 hari mahasiswa KKN STMIK Pringsewu di Pekon Sukoyoso mengabdi untuk masyarakat Pekon Sukoyoso, mewakili masyarakat Pekon Sukoyoso saya mengucapkan terima kasih sebesar-besarnya karena telah memberikan kontribusi kepada masyarakat. Saya berharap kehadiran mahasiswa KKN STMIK Pringsewu telah memberikan warna baru bagi masyarakat Pekon Sukoyoso, baik terkait pemberdayaan masyarakat, pemberdayaan potensi yang ada, peningkatan kualitas hidup dengan program kerja mahasiswa KKN STMIK Pringsewu, bahkan sampai Sistem Informasi Pekon Berbasis IT yang dibangun oleh mahasiswa KKN STMIK Pringsewu di Pekon Sukoyoso, ucapnya.

plakat
Kesempatan tersebut diakhiri dengan serah terima plakat dari perwakilan mahasiswa KKN STMIK Pringsewu “Sistem Informasi Pekon” kepada pemerintah Pekon Sukoyoso Kecamatan Sukoharjo Kabupaten Pringsewu Lampung, yang diserah terimakan oleh Imam Samsudin kepada Kepala Pekon Sukoyoso “Mukhaimin”.

SIP
Setelah rangkaian temu pamit KKN STMIK Pringsewu sudah selesai, di isi dengan penampilan group hadroh pekon Sukoyoso, penampilan group hadro tersebut di persembahkan khusus buat mahasiswa KKN STMIK Pringsewu, ucap pimpinan group hadroh pekon Sukoyoso “Muhammad Mukhlas”. (*na)

hADROH

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: 2)
PEMOTONGAN HEWAN QURBAN
STMIK PRINGSEWU– Hari Sabtu besok, (2/9), Dr. H. FAUZI selaku Ketua Yayasan Pendidikan Starteck (STMIK Pringsewu) dan Mahasiswa/i STMIK Pringsewu melakukan pemotongan hewan qurban di halaman Kampus STMIK Pringsewu. Qurban tersebut akan dibagikan kepada masyarakat kurang mampu agar sama-sama dapat merasakan kebahagian pada hari raya idul adha 1438 H.
Dengan kegiatan ini diharapkan seluruh mahasiswa STMIK Pringsewu dapat mengambil hikmah dari proses pemotongan hewan qurban. Bagi mereka yang memahami semangat ajaran islam, utamanya adalah qurban, maka di dalam ibadah ini terdapat nilai-nilai pendidikan yang amat tinggi. Sebenarnya yang dipentingkan dalam ibadah ini memang bukan penyembelihannya, tetapi makna di balik penyembelihan itulah yang lebih diutamakan.
Lewat qurban ini kita di ajarai oleh Alloh SWT agar menghilangkan sifat egoistis, kita harus membuang jauh-jauh sifat ini, Qurban adalah latihan agar umat islam membiasakan diri memperhatikan orang lain, menghilangkan sifat kikir dan pelit, dengan membagi-bagikan sebagian rezeki yang dikaruniakan kepadanya., Karena itu qurban tidak cukup dilakukan sekali seumur hidup. Setiap kali kita menjumpai tanggal 10 Dzulhijjah ditambah 3 hari Tasyri’ sedang kita dikaruniai kelapangan rezeki, maka kita laksanakan perintah qurban ini. Jika tidak, Rosululloh SAW memberikan peringatan keras kepada kita dalam sebuah sabdanya:’ barang siapa yang mempunyai kelapangan untuk berqurban tapi tidak melaksanakannya, maka janganlah dia dekat-dekat tempat kami sholat.
Rosululloh SAW tidak hanya memberi ancaman kepada umatnya yang enggan melaksanakan kurban , tetapi juga memberikan semangat dan rangsangan agar umatnya dengan sukacita melaksanakan perintah ini.. Sabdanya lagi, “Tidak ada amalan anak Adam pada hari Nahar yang disukai Alloh selain daripada menyembelih qurban. Qurban-qurban itu akan datang kepada orang-orang yang melakukannyapada hari kiamat seperti keadaannya semula,yaitu lengkap dengan anggotanya, tulangnya, tanduknya dan bulunya. darah qurban itu terlebih dahulu jatuh ke suatu tempat yang disediakan Tuhan sebelum jatuh ke atas tanah. Oleh Sebab itu, berqurbanlah dengan senang hati” (Hadits riwayat Tirmidzi dan Ibnu Majah dari A’isyah)
Hikmah ibadah qurban tidak akan pernah hilang dimakan waktu. Dengan ibadah qurban tersebut dapat dijalin taqarrub ila Allah yaitu mendekat diri kepada Allah SWT.
Shalat hari raya termasuk khususiat atau keistimewaan bagi umat Islam seperti juga shalat istisqa’ (minta hujan) dan kusuf (gerhana matahari). Di antara dua shalat hari raya itu maka shalat Idul Adha lebih afdal dari shalat Idulfitri karena terdapat nas Al-Quran QS. (Al-Kautsar : 2) – “Oleh itu, kerjakanlah shalat (Idul Adha) karena Tuhanmu semata-mata, dan sembelihlah qurban (sebagai bersyukur).” Ibadah yang dituntut pada Idul Adha bukan sebatas ibadah jasadi yaitu shalat tetapi juga ibadah yang melibatkan pengorbanan harta yaitu melakukan penyembelihan hewan qurban yang sunat muakkad bagi umat Islam dan makruh meninggalkan oleh orang yang mampu.
Rasulullah SAW : “Siapa yang mempunyai kemampuan untuk berqurban tetapi tidak berqurban, maka jangan hadir di tempat shalat kami.” Semoga saja bagi yang melakukan qurban di hari tersebut diampunkan dosanya dan ahli rumahnya pada titik pertama darah sembelihan qurban tertumpah ke tanah. Berqurban adalah bukti taqwa dan tawakkal kepada Allah SWT, yang akan menumbuhkan semangat hidup tidak pernah mengenal putus asa dari lindungan Allah SWT.
Di dalam syariat yang dibawa oleh Rasulullah SAW, perintah dan larangan selalu ada dan terus berjalan kepada setiap hamba selama ruh masih bersama jasadnya. Dan selama itu pula manusia dapat menambah kedekatannya kepada Allah SWT dengan melakukan perintah-perintah syariat yang mulia. Baik yang berupa kewajiban maupun yang sunnah.
Setiap perintah Allah SWT sudah disesuaikan dengan kadar kemampuan dan kesanggupan hambaNya (QS. Al-Baqarah : 286). Begitu pula setiap apa yang diperintahkanNya itu pasti mengandung makna dan hikmah di dalamnya. Seperti ibadah shalat, zakat, puasa, ibadah haji, dan juga ibadah qurban. Kadang kala kita sebagai makhlukNya tidak mengetahui dan menyadari akan hikmah tersebut. Bahkan cenderung menganggapnya sebagai beban yang memberatkan, terlebih pada perintah ibadah yang mengharuskan kita untuk mengeluarkan harta seperti halnya ibadah qurban, padahal begitu besar keutamaan dan hikmah dibalik ibadah qurban.
Alangkah ruginya manusia jika di dunia hanya beribadah yang wajib saja atau dengan kata lain setelah bermuamalah dia kembali modal, tidak mendapat keuntungan sedikitpun. Maka ibadah sunnah ini hendaknya kita kejar, kita amalkan, sebab itulah bukti kesetiaan kita dalam mengikuti dan mencintai Rasulullah SAW, beliau bersabda : “Barang siapa menghidupkan sunnahku, maka dia telah mencintaiku, dan siapa yang mencintaiku, maka kelak akan berkumpul bersamaku di surga“. (HR. As Sijizi dari Anas bin Malik, lihat Al Jami’ush Shoghir)
Bahkan dalam hadits qudsi Allah menyatakan bahwa Dia sangat cinta kepada hamba yang suka menjalankan amal-amal sunnah, sehingga manakala Dia telah mencintai hamba tersebut, Dia akan menjaga matanya, pendengarannya, tangan dan kakinya. Semua anggota tubuhnya akan terjaga dari maksiat dan pelanggaran. Sebagaimana diriwayatkan oleh Imam Al Bukhori dari Abu Hurairah RA.
Dari sekian banyak sunnah yang telah diajarkan oleh Rasulullah SAW adalah melakukan ibadah qurban. Kesunnahan berqurban ini adalah sunnah muakkadah, artinya kesunnahan yang sangat ditekankan dan dianjurkan.
Sebagaimana diriwayatkan oleh imam Muslim dalam Shohihnya dari Anas bin Malik, beliau berkata “Rasulullah saw berudhiyah (berkurban) dengan dua kambing putih dan bertanduk, beliau menyembelih dengan tangan beliau sendiri yang mulia, beliau mengawali (penyembelihan itu) dengan basmalah kemudian bertakbir …”
HIKMAH YANG BISA KITA AMBIL DARI IBADAH QURBAN
Ibadah Kurban memiliki pesan moral yang sangat dalam. Seperti pesan yang terkandung dalam makna bahasanya. Qurb atau qurbân berarti “dekat” dengan imbuhan ân (alif dan nun) yang mengandung arti “kesempurnaan”, sehingga qurbân yang diindonesiakan dengan “kurban” berarti “kedekatan yang sempurna”. Kata Qurbân berulang tiga kali dalam al-Qur’an, yaitu pada QS.Ali Imran/3: 183, al-Ma’idah/5: 27, dan al-Ahqaf/46: 28.
Pertama, sebagai bukti nyata ekspresi syukur, “Supaya mereka menyebut nama Allah atas apa yang Allah karuniakan kepada mereka berupa binatang ternak….” (QS. 22:34);
Kedua, bukti sebagai hamba bertaqwa, “Daging daging qurban dan darahnya itu sekali kali tidak dapat mencapai (keridhaan) Allah, tetapi ketaqwaanmulah yang dapat mencapainya…” (QS. 22:37);
Ketiga, terakuinya sebagai umat Rasulullah SAW, “Barang siapa yang mempunyai keluasan (harta) dan tidak mau berqurban, maka janganlah mendekati tempat shalat kami !” (HR. Ahmad, Ibnu Majah, Al Hakim, Ad Daruquthni dan Al Baihaqi);
Keempat, meraih ampunan dosa, ”Fatimah, berdirilah dan saksikan hewan sembelihanmu itu. Sesungguhnya kamu diampuni pada saat awal tetesan darah itu dari dosa dosa yang kamu lakukan…” (HR. Abu Daud dan At-Tirmizi);
Kelima, pahala yang sangat besar, “Pada setiap lembar bulunya itu kita memperoleh satu kebaikan,” (HR. Ahmad dan Ibnu Majah);
Keenam, mendapat kesaksian yang indah dari hewan Qurban kita kelak, “Sesungguhnya ia (hewan qurban) akan datang pada hari kiamat dengan tanduk, kuku dan bulunya. Dan sesungguhnya darah hewan qurban akan jatuh pada sebuah tempat di dekat Allah sebelum darah mengalir menyentuh tanah. Maka berbahagialah jiwa dengannya”. (HR. At Tirmidzi, Ibnu Majah dan Al Hakim).
Demikian besar keutamaan ibadah kurban, Semoga Allah SWT memberikan keluasan rejeki kepada kita semua untuk memenuhinya dan menerima amal ibadah qurban kita. Amin yra.
Beruntunglah bagi orang bertakwa, Berbahagia orang yang bertawakkal kepada Allah SWT, Hidup didunia diperlukan sikap teguh pantang menyerah, setiap insan Muslim selalu hidup dalam sikap optimis dengan taqwa yang benar kepada Allah SWT dan senantiasa berserah diri kepada Allah SWT. (*na)