TUGAS 1.5 (KALKULATOR Dengan Enter dapat Menampilkan Hasil)

Private Sub CMDBERSIH_Click()
TXTN1.SetFocus
TXTN1 = ""
TXTN2 = ""
TXTN3 = ""
TXTN4 = ""
TXTN5 = ""
TXTN6 = ""
TXTN7 = ""
TXTN8 = ""
HASIL1 = ""
HASIL2 = ""
HASIL3 = ""
HASIL4 = ""
End Sub

Private Sub CMDHITUNG_Click()
HASIL1 = Val(TXTN1) + Val(TXTN2)
HASIL2 = Val(TXTN3) * Val(TXTN4)
HASIL3 = Val(TXTN5) - Val(TXTN6)
HASIL4 = Val(TXTN7) / Val(TXTN8)
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
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
HASIL1 = Val(TXTN1) + Val(TXTN2)
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
HASIL2 = Val(TXTN3) * Val(TXTN4)
End If
End Sub

Private Sub TXTN5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTN6.SetFocus
End If
End Sub

Private Sub TXTN6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
HASIL3 = Val(TXTN5) - Val(TXTN6)
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
HASIL4 = Val(TXTN7) / Val(TXTN8)
End If
End Sub

TUGAS 1.4 (KALKULATOR)

Private Sub CMDBERSIH_Click()
TXTN1.SetFocus
TXTN1 = ""
TXTN2 = ""
TXTN3 = ""
TXTN4 = ""
TXTN5 = ""
TXTN6 = ""
TXTN7 = ""
TXTN8 = ""
HASIL1 = ""
HASIL2 = ""
HASIL3 = ""
HASIL4 = ""
End Sub

Private Sub CMDHITUNG_Click()
HASIL1 = Val(TXTN1) + Val(TXTN2)
HASIL2 = Val(TXTN3) * Val(TXTN4)
HASIL3 = Val(TXTN5) - Val(TXTN6)
HASIL4 = Val(TXTN7) / Val(TXTN8)
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub
Private Sub TXTN1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTN2.SetFocus
End If
End Sub
Private Sub TXTN3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTN4.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

TUGAS 1.3 (Perkalian Dua Bilangan Dan Enter untuk menampilkan Hasil)

Private Sub CMDBERSIH_Click()
TXTN1.SetFocus
TXTN1 = ""
TXTN2 = ""
TXTN3 = ""
End Sub

Private Sub CMDHITUNG_Click()
TXTN3 = Val(TXTN1) * Val(TXTN2)
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
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 = Val(TXTN1) * (TXTN2)
End If
End Sub

TUGAS 1.2 (Perkalian Dua Bilangan)

Private Sub CMDBERSIH_Click()
TXTN1.SetFocus
TXTN1 = ""
TXTN2 = ""
TXTN3 = ""
End Sub

Private Sub CMDHITUNG_Click()
TXTN3 = Val(TXTN1) * Val(TXTN2)
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub TXTN1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTN2.SetFocus
End If
End Sub

TUGAS 1.1 (MEMBUAT DATA MAHASISWA)

Private Sub Command1_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

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

Private Sub Command3_Click()
Unload Me
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.SetFocus
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub

SEMINAR PENERAPAN ILMU PENGETAHUAN DAN TEKNOLOGI DALAM BIDANG PENDIDIKAN DAN PENELITIAN

STMIK PRINGSEWU – Rabu (14/3), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan SEMINAR “Seminar Penerapan Ilmu Pengetahuan dan Teknologi dalam Bidang Pendidikan dan Penelitian” yang dihadiri bapak/ibu dosen STMIK Pringsewu dan mahasiswa/i STMIK Pringsewu. Sebagai narasumber STMIK Pringsewu mendatangkan Dr. Ribhan, S.E., M.Si. Seminar tersebut merupakan rangkaian kegiatan yang diselenggarakan STMIK Pringsewu dalam rangka HUT Kabupaten Pringsewu ke-9.

Seminar Penerapan Ilmu Pengetahuan dan Teknologi dalam Bidang Pendidikan dan Penelitian tersebut dibuka oleh Elisabet Yunaeti A, M.T.I Wakil Ketua I mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M didampingi Bapak/Ibu Dosen dan jajaran Badan Eksekutif Mahasiswa STMIK Pringsewu.

Elisabet Yunaeti A, M.T.I Wakil Ketua I mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M dalam pembukaan seminar tersebut mengatakan, seminar ini dimaksudkan untuk berbagi hasil serta berdiskusi tentang penelitian. Dengan kemajuan teknologi yang mengglobal telah terpengaruh dalam segala aspek kehidupan baik di bidang ekonomi, politik, kebudayaan, seni dan bahkan di dunia pendidikan. Kemajuan teknologi adalah sesuatu yang tidak bisa kita hindari dalam kehidupan ini, karena kemajuan teknologi akan berjalan sesuai dengan kemajuan ilmu pengetahuan. Setiap inovasi diciptakan untuk memberikan manfaat positif bagi kehidupan manusia. Memberikan banyak kemudahan, serta sebagai cara baru dalam melakukan aktifitas manusia. Khusus dalam bidang teknologi informasi sudah menikmati banyak manfaat yang dibawa oleh inovasi-inovasi yang telah dihasilkan.

Ilmu pengetahuan dan teknologi berkembang terus, bahkan dewasa ini berlangsung dengan pesat. Perkembangan itu bukan hanya dalam hitungan tahun, bulan, atau hari, melainkan jam, bahkan menit atau detik, terutama berkaitan dengan teknologi informasi dan komunikasi yang ditunjang dengan teknologi elektronika. Pengaruhnya meluas ke berbagai bidang kehidupan, termasuk bidang pendidikan, ucapnya.(*na)

SEMINAR ENTREPRENEURSHIP

STMIK PRINGSEWU – Hari ini Kamis (15/3), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan SEMINAR ENTREPRENEURSHIP “Menumbuhkan Jiwa Wirausaha Mahasiswa Menjadi Kreatif, Inovatif dan Mandiri” yang dihadiri bapak/ibu dosen STMIK Pringsewu dan 195 mahasiswa/i STMIK Pringsewu dengan pemateri : Miswan Gumanti, MBA, M.M dan Yoeyong Rahsel, M.M. Seminar tersebut merupakan rangkaian kegiatan yang diselenggarakan STMIK Pringsewu dalam rangka HUT Kabupaten Pringsewu ke-9.

Seminar “Entrepreneurship” tersebut dibuka oleh Nur Aminudin Wakil Ketua III mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M didampingi Elisabeth Yunaeti A, M.T.I Wakil Ketua I, Kasmi, M.M Wakil Ketua II, Bapak/Ibu Dosen dan jajaran Badan Eksekutif Mahasiswa STMIK Pringsewu.

Nur Aminudin Wakil Ketua III mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M dalam pembukaan seminar tersebut mengatakan, pendidikan kewirausahaan ini sangat penting dan menarik untuk di diskusikan. Seminar ini bertujuan untuk memberikan bekal kepada mahasiswa itu untuk lebih menyelami dunia kewirausahaan serta membawa pencerahan bagi mahasiswa untuk membuka usaha, sehingga dapat mengurangi jumlah pengangguran.

Mahasiswa sebagai agen perubahan, tentunya mahasiswa erat kaitannya dengan teknologi dan inovasi. Gabungan kegiatan kewirausahaan dan inovasi akan menghasilkan entrepreneurship. Kebanyakan mahasiswa dalam memulai sebuah bisnis terbentur dengan modal. Modal yang tidak cukup bukanlah menjadi alasan untuk tidak memulai suatu bisnis. “Its not about money but its about network and experience,”, ucap Nur Aminudin.

Selanjutnya Miswan Gumanti pemateri pertaman menyampaikan dihadapan peserta, mahasiswa harus menumbuhkan motivasi dalam rangka mempersiapkan diri untuk menjadi entrepreneurship, memotivasi diri merupakan kunci dalam mencapai sukses dan mimpi (cita-cita). Kewirausahaan (Entrepreneurship) atau Wirausaha adalah proses mengidentifikasi, mengembangkan, dan membawa visi ke dalam kehidupan.Visi tersebut bisa berupa ide inovatif, peluang, ataupun cara yang lebih baik dalam menjalankan sesuatu. Hasil akhir dari proses tersebut adalah penciptaan usaha baru yang dibentuk pada kondisi risiko atau ketidakpastian.

Seseorang yang berniat untuk melakukan usaha mempersiapkan segala sesuatu yang diperlukan, diawali dengan melihat peluang usaha baru yang mungkin apakah membuka usaha baru, melakukan akuisisi, atau melakukan ‘franchising’. Tahap ini juga memilih jenis usaha yang akan dilakukan apakah di bidang pertanian, industri, atau jasa, ucapnya.

Sementara Yoeyong Rahsel, M.M. mengatakan, menjadi wirausaha menjadi alternatif memberikan penghasilan lebih besar, yang penting adalah memiliki motivasi yang besar menjadi seorang entrepreneur dengan menyakini sepenuhnya bahwa kita bisa mewujudkan mimpi menjadi pengusaha sukses. selanjutnya dalam memulai mempersiapkan diri menjadi entrepreneur adalah dengan mulai memiliki perspektif yang baru bahwa kita bisa dan mampu memiliki karyawan dan menjadi bos, caranya adalah memiliki perspektif sebagai entrepreneur yaitu keluar dari zona nyaman, memiliki jiwa kemandirian, membangun kerjasama dalam memunculkan dan mencari ide bisnis serta peluang-peluang yang bisa diciptakan dalam menghasilkan produk bisnis dan dari kesemuanya itu lakukan segala sesuatunya (bisnis) dari yg kecil dgn kerja keras dan doa, maka lambat laun bisnis yang kecil itu akan menjadi besar sesuai dengan kerja keras kita