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

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

-
Gambar
Di sebagian besar negara di dunia ini, memiliki sebuah mobil pribadi merupakan hal yang wajar atau bahkan bisa menjadi kebutuhan karena transportasi umum yang kurang memadai. Sementara izin untuk memiliki mobil umum di sebuah negara merupakan cerita lain, karena memang ada negara yang melarang warga sipil memiliki sebuah mobil, dan kali ini tampaknya Singapura akan menjadi salah satunya. Di negara kecil, dimana lahan yang semakin sempit, memiliki mobil pribadi di Singapura adalah hal yang rumit, dan kali ini tampaknya akan menjadi lebih rumit lagi karena Pemerintah negeri Singa itu akan menerapkan peraturan baru untuk menekan angka pertumbuhan kendaraan kecil. Seperti yang dilaporkan Bloomberg, Otoritas Transportasi Darat Singapura (LTA)  telah mengumumkan bahwa mereka akan berhenti menambahkan mobil di jalanan Singapura, dimana rencana tersebut akan mulai berlaku bulan Februari 2018. Rencana pemerintah adalah untuk mengurangi tingkat pertumbuhan tahunan mobil da...
Baca selengkapnya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

-
Gambar
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. 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 dal...
Baca selengkapnya

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone

-
Gambar
Pada bulan September lalu, Xiaomi telah mengumumkan bahwa mereka telah berhasil mengiriman 10 juta smartphone, yang menjadi prestasi membanggakan bagi perusahaan. Namun tak hanya cukup di situ saja, karena perusahaan mengulangi prestasi tersebut selama bulan Oktober lalu, dengan berhasil mengiriman 10 juta smartphone.  Kabar baik tersebut disampaikan oleh CEO Xiaomi, Lei Jun melalui akun Weibo resmi miliknya saat mengingatkan orang tentang penjualan Mi 5X yang akan datang (dikenal di tempat lain sebagai Mi A1 ) pada tanggal 1 November. Sementara perusahaan sendiri baru-baru ini telah menetapkan tujuan ambisius mereka untuk mengiriman 90 juta smartphone selama tahun 2017 ini. Jika pencapaian itu berhasil, maka perusahaan akan meningkatkan pertumbuhan 50% dari tahun lalu (58 juta). Pencapaian ini juga merupakan pertumbuhan yang sangat besar jika dibandingkan dengan tahun 2015, dimana pada tahun tersebut perusahaan berhasil mengirim 70 juta smartphone. Peningkatakan ini ju...
Baca selengkapnya