tugas 3.7

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = ""
txtnik = ""
txtgol = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgaji = ""
txttunjangan = ""
txttotal = ""

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnik = ""
txtgol = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgaji = ""
txttunjangan = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttahun = Left(txtnik, 4)
S = Mid(txtnik, 5, 1)
If S = "A" Then
txtgol = "A"
txtjabatan = "Manager"
txtgaji = "4000000"
txttunjangan = "1025000"
ElseIf S = "B" Then
txtgol = "B"
txtjabatan = "Ka. seksi"
txtgaji = "3500000"
txttunjangaan = "975000"
ElseIf S = "C" Then
txtgol = "C"
txtgaji = "staff"
txttunjangan = "925000"
End If
S = Mid(txtnik, 7, 1)
If S = "s" Then
txtkode = "S"
txtstatus = "Single"
ElseIf S = "M" Then
txtkode = "M"
txtstatus = "Menikah"
ElseIf S = "D" Then
txtkode = "D"
txtstatus = "Duda"
ElseIf S = "J" Then
txtkode = "J"
txtstatus = "Janda"
End If
S = Right(txtnik, 3)
If S = "KEU" Then
txtbagian = "Accounting"
ElseIf S = "ADM" Then
txtbagian = "Administrasi"
ElseIf S = "SDM" Then
txtbagian = "General Affair"
ElseIf S = "EDP" Then
txtbagian = "IT Unit"
ElseIf S = "SPM" Then
txtbagian = "security"
End If
txttotal = Val(txtgaji) + Val(txttunjangan)

End Sub

Private Sub Form_Load()

End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

Awas!! WhatsApp Palsu Banyak Beredar di PlayStore

Gambar
WhatsApp menjadi salah satu aplikasi kirim pesan instan favorit di dunia. Banyaknya pengguna WhatsApp ini tak hanya membuat platform ini menjadi platform terbaik untuk aplikasi kirim pesan instan. Namun rupanya ada sejumlah pihak yang tidak bertanggung jawab dengan memalsukannya di PlayStore. Bahkan, bukan main-main tampilannya di PlayStore sangat mirip dengan versi aslinya. Tak heran hal tersebut membuat jutaan pengguna tertipu karena memang sangat sulit membedakannya. Meskipun jika kita lebih jeli, kita bisa dengan mudah membedakan yang asli dan palsu. Pasalnya, seperti diketahui pada WhatsApp asli di bagian bawah nama pengembang ada tanda centang yang menandakan bahwa aplikasi tersebut telah diverifikasi. Hal tersebut tidak terjadi pada WhatsApp palsu. Berbeda dengan versi aslinya, WhatsApp palsu ini justru tidak menyediakan fitur chat sama sekali. Di mana, aplikasi tiruan WhatsApp tersebut memang dibuat murni hanya untuk keuntungan si pembuat dengan hanya menampilk
Baca selengkapnya

PELANTIKAN BUPATI DAN WAKIL BUPATI PRINGSEWU 2017

Gambar
PRINGSEWU – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan. sumber : http://stmikpringsewu.ac.id/pelantikan-bupati-dan-wakil-bupati-pringsewu-2017/
Baca selengkapnya

SERAH TERIMA MAHASISWA KKN STMIK & STIT PRINGSEWU

Gambar
STMIK PRINGSEWU – Sehubungan dengan pelaksanaan kegiatan Kuliah Kerja nyata (KKN) STMIK & STIT Pringsewu yang menempati lokasi di 40 pekon di wilayah Kabupaten Pringsewu, Pada hari senin 25 Juli 2016 telah diadakan serah terima mahasiswa Kuliah Kerja Nyata (KKN) STMIK & STIT Pringsewu Tahun Akademik 2015/2016 yang dilaksanakan di Pendopo Pringsewu. Acara tersebut dihadiri oleh Bupati Pringsewu H. Sujadi beserta jajaran SKPD di Kabupaten Pringsewu, Ketua DPRD Pringsewu (Ilyasa), unsur-unsur Muspida, camat, dan kepala pekon, Ketua Yayasan Dr. H. Fauzi, S.E., M.Kom., Akt., CA., adapun perwakilan dari STMIK & STIT Pringsewu yang juga hadir dalam kesempatan tersebut antara lain Ketua STMIK Pringsewu Hj. Rita Irviani, M.M. Ketua STIT Pringsewu Sri Hartati, M.T.I., Ketua Palaksana KKN, Seluruh DPL KKN T.A 2015/2016; serta 423 mahasiswa/i peserta KKN STMIK & STIT Pringsewu. Dalam sambutannya, Ketua pelaksana Kuliah Kerja Nyata (Sudewi, M.M) mengatakan,
Baca selengkapnya