Tugas 3 BP8

-

Private Sub Cmdproses_Click()
Dim a As String
a = Mid(Textnik, 1, 4)
If a = "2009" Then
Textthn = "2009"
End If
a = Mid(Textnik, 5, 1)
If a = "A" Then
Textjbt = "Manajer"
Textgol = "A"
Textgapok = "4000000"
Texttun = "1025000"
ElseIf a = "B" Then
Textjbt = "Ka. Seksi"
Textgol = "B"
Textgapok = "3500000"
Texttun = "975000"
ElseIf a = "C" Then
Textjbt = "Staff"
Textgol = "C"
Textgapok = "3000000"
Texttun = "925000"
End If
a = Mid(Textnik, 7, 1)
If a = "S" Then
Textkode = "S"
Textsts = "Single"
ElseIf a = "M" Then
Textkode = "M"
Textsts = "Menikah"
ElseIf a = "J" Then
Texkode = "J"
Textsts = "Janda"
ElseIf a = "D" Then
Textkode = "D"
Textsts = "Duda"
End If
a = Mid(Textnik, 9, 3)
If a = "KEU" Then
Textbag = "Accounting"
ElseIf a = "ADM" Then
Textbag = "Administrasi"
ElseIf a = "SDM" Then
Textbag = "General Affair"
ElseIf a = "EDP" Then
Textbag = "IT Unit"
ElseIf a = "SPM" Then
Textbag = "Security"
End If
Texttotal = Val(Textgapok) + Val(Texttun)
End Sub

Private Sub Cmdbatal_Click()
Textnama = ""
Textnik = ""
Textgol = ""
Textkode = ""
Textsts = ""
Textthn = ""
Textjbt = ""
Textbag = ""
Textgapok = ""
Texttun = ""
Texttotal = ""
Textnama.SetFocus
End Sub

Private Sub Cmdlagi_Click()
Textnama = ""
Textnik = ""
Textgol = ""
Textkode = ""
Textsts = ""
Textthn = ""
Textjbt = ""
Textbag = ""
Textgapok = ""
Texttun = ""
Texttotal = ""
Textnama.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub


Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If

End Sub

Komentar

Posting Komentar

Semoga bermanfaat

Postingan populer dari blog ini

STMIK PRINGSEWU DAN PEMDA PRINGSEWU MEMBERIKAN PEMBEKALAN KEPADA MAHASISWA KKN

-
Gambar
Written by  admin   |   July 19, 2017   |   0 STMIK PRINGSEWU  – Ratusan Mahasiswa STMIK dan STIT Pringsewu peride tahun 2017 mengikuti pembekalan sebelum melaksanakan Kuliah Kerja Nyata (KKN) di Kabupaten Pringsewu. Pemberian materi seputar gambaran Kabupaten Pringsewu disampaikan langsung oleh Kepala Dinas Pemberdayaan Masyarakat Desa (PMD), Malian Ayub, M.M di depan mahasiswa peserta KKN di gedung STMIK Pringsewu. Saya menyambut baik kegiatan pembekalan KKN untuk dapat memahami lebih lanjut terkait dengan Pekon yang ada di Wilayah Kabupaten Pringsewu, Rabu (19/7). Kami harapkan dengan adanya mahasiswa yang melaksanakan KKN di Kabupaten Pringsewu akan memberikan sumbangsih besar terhadap pembangunan di Kabupaten Pringsewu, keberadaan mahasiswa STMIK dan STIT Pringsewu ini nantinya akan membantu proses pelaksanaan kegiatan pembangunan di pem...
Baca selengkapnya

Layar Fleksibel Sudah Dibuat, Kini Lihat Nih Kamera Fleksibel!

-
Gambar
Perkembangan teknologi dunia saat ini memang kian canggih saja. Perangkat elektronik pun dibuat seringkas mungkin. Termasuk di antaranya adalah perangkat elektronik yang didesain fleksibel. Nah, kalau sebelumnya sudah ada layar fleksibel dari LG, kini para peneliti ternyata juga mengembangkan kamera fleksibel lho! Para peneliti dari laboratorium Computer Vision di Columbia University menciptakan sebuah kamera yang didesain fleksibel. Untuk membuat kamera ini, para peneliti pun memanfaatkan silikon. Untuk hasil gambarnya, mereka mengungkapkan kalau hasil jepretan kamera fleksibel tersebut cukup aneh, lebih mirip dengan gambar yang terdistorsi. Meskipun begitu, gambar yang dihasilkan tetap merupakan sebuah gambar beresolusi tinggi. Meskipun begitu, salah seorang anggota peneliti Dr. Shree Nayar mengungkapkan kalau kamera fleksibel yang tengah dikembangkan oleh timnya tersebut bakal bisa berguna untuk masyarakat luas. Salah satunya adalah kemungkinan untuk bisa digunakan pada bagia...
Baca selengkapnya

YUDISIUM PERIODE I TAHUN 2017

-
Gambar
Written by  admin   |   August 21, 2017   |   0 STMIK PRINGSEWU  – Pengertian yudisium yang sering dikenal oleh mahasiswa adalah sebuah proses akademik yang nantinya menyangkut penetapan nilai dan kelulusan mahasiswa yang diambil dari seluruh proses kegiatan akademik. Bagi perguruan tinggi, kegiatan ini terbilang sangat rutin yakni dengan mengumpulkan mahasiswa yang sudah lulus uji skripsi dan dikumpulkan untuk mengadakan pertemuan. Di dalam pertemuan tersebut dilakukan pembacaan nilai akhir atas prestasi mahasiswa, profil dan informasi dari mahasiswa tersebut .  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 jang...
Baca selengkapnya