Langsung ke konten utama

TUGAS MK BP1 TUGAS 3.5

Private Sub cmdBatal_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

Private Sub cmdProses_Click()
Dim kode As String

txtTahun = Left(txtNik.Text, 4)
txtKode = Mid(txtNik, 7, 1)

kode = Mid(txtNik.Text, 5, 1)
If kode = "A" Then
txtGol = "A"
txtJabatan = "Manager"
txtGapok = "4000000"
txtTunjangan.Text = "1025000"
ElseIf kode = "B" Then
txtGol = "B"
txtJabatan = "Ka. Seksi"
txtGapok = "3500000"
txtTunjangan = "975000"
ElseIf kode = "C" Then
txtGol = "C"
txtJabatan = "Staff"
txtGapok = "Ka. Seksi"
txtTunjangan = "925000"
End If
kode = Right(txtNik, 3)
If kode = "KEU" Then
txtBagian = "Accounting"
ElseIf kode = "ADM" Then
txtBagian = "Administrasi"
ElseIf kode = "SDM" Then
txtBagian = "General Affair"
ElseIf kode = "EDP" Then
txtBagian = "IT Unit"
ElseIf kode = "SPM" Then
txtBagian = "Security"
End If

kode = Mid(txtNik, 7, 1)
If kode = "S" Then
txtStatus = "Single"
ElseIf kode = "M" Then
txtStatus = "Menikah"
ElseIf kode = "J" Then
txtStatus = "Janda"
ElseIf kode = "D" Then
txtStatus = "Duda"
End If
txtTotalg = Val(txtGapok) + Val(txtTunjangan)

If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If

End Sub

Private Sub Form_Load()
txtGol.Enabled = False
txtKode.Enabled = False
txtStatus.Enabled = False
txtTahun.Enabled = False
txtJabatan.Enabled = False
txtBagian.Enabled = False
txtGapok.Enabled = False
txtTunjangan.Enabled = False
txtTerbilang.Enabled = False
End Sub
Private Sub txtTotalg_Change()
On Error Resume Next
If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If
End Sub

'membuat fungsi angka terbilang
Public Function AngkaTerbilang(ByVal nilai As Currency) As String
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
    Case 0 To 11
        AngkaTerbilang = "" + satuan(Fix(nilai))
    Case 12 To 19
        AngkaTerbilang = AngkaTerbilang(nilai Mod 10) + "Belas"
    Case 20 To 99
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 10)) + "Puluh" + AngkaTerbilang(nilai Mod 10)
    Case 100 To 199
        AngkaTerbilang = "Seratus" + AngkaTerbilang(nilai - 100)
    Case 200 To 999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 100)) + "Ratus" + AngkaTerbilang(nilai Mod 100)
    Case 1000 To 1999
        AngkaTerbilang = "Seribu" + AngkaTerbilang(nilai - 1000)
    Case 2000 To 999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000)) + "Ribu" + AngkaTerbilang(nilai Mod 1000)
    Case 1000000 To 999999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000)) + "Juta" + AngkaTerbilang(nilai Mod 1000000)
    Case Else
    AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000000)) + "Milyar" + AngkaTerbilang(nilai Mod 1000000000)
End Select
End Function




Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

PERINGATI HARI KARTINI SELURUH PETUGAS UPACARA STMIK PRINGSEWU ADALAH PEREMPUAN

STMIK PRINGSEWU  – Sebagai wujud rasa penghormatan kepada perjuangan pahlawan kita, Ibu Kartini, Sabtu, 21 April 2018 – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan Upacara Bendera Peringatan Hari Kartini ke-139 dihalaman Kampus STMIK Pringsewu. Upacara Hari Kartini di halaman kampus ini dihadiri bapak/ibu dosen dan mahasiswa. Menariknya, dalam upacara ini, seluruh petugasnya adalah perempuan. Bertindak sebagai inspektur upacara Wakil Ketua I Elisabet Yunaeti A, M.T.I. Dalam amanatnya, Elisabet meminta agar momen hari Kartini jadi tonggak kebangkitan para perempuan, perempuan bisa meraih prestasi seperti kaum laki-laki. Jadi, mari kita jadikan momen ini untuk bangkit sekaligus instrospeksi diri, ucapnya. Setelah upacara selesai, akan dilaksanakan lomba membuat nasi goreng antar mahasiswa bertempat di halaman kampus.( *na ) Filed in:   BEM ,  Info Kampus ,  Umum
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU GELAR SARASEHAN KEBANGSAAN

STMIK PRINGSEWU  – Sabtu (28/4), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan sarasehan kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” bertempat di Aula Lt. II Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Sarasehan Kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” menghadirkan narasumber Kombes Pol Yosi Hariyoso (Kepala Biro Operasi Polda Lampung), Ken Setiawan (Mantan Komandan Negara Islam Indonesia) dihadiri Kepala Kesbangpol Pringsewu Sukarman, Wakil Ketua I Bidang Akademik Elisabet Y. A, M.T.I, Wakil Ketua III Bidang Kemahasiswaan Nur Aminudin, M.T.I, Ka. LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I serta bapak ibu dosen STMIK Pringsewu. Sarasehan Kebangsaan dibuka Wakil Ketua III Bidang Kemahasiswaan STMIK Pringse...
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU Raih Sinta Awards 2018

STMIK PRINGSEWU  berhasil meraih Science and Technology Index (Sinta) Awards Tahun 2018 sebagai institusi dengan produktivitas publikasi dari Kementerian, Riset, Teknologi, dan Pendidikan Tinggi (Kemenristek Dikti). Penghargaan diterima oleh Ketua LLPM STMIK Pringsewu M. Muslihudin, M.T.I di Auditorium Gedung D Kemenristek Dikti RI, Jakarta, Rabu (4/7). “Sinta Awards 2018 ini dipersembahkan untuk segenap sivitas akademika STMIK Pringsewu yang sangat gigih meningkatkan publikasi ilmiah hasil penelitian dan pengadian masyarakat,” ujarnya. Menurutnya, Sinta Awards sebagai ajang yang positif untuk motivasi peningkatan publikasi ilmiah dan merupakan prestasi gemilang sivitas akademisi STMIK Pringsewu dalam produktivitas publikasi ilmiah. STMIK Pringsewu memiliki Produktifitas Publikasi yang membanggakan yaitu berdasarkan penilaian dalam jangka waktu 3 Tahun terahir 2016-2018 STMIK Pringsewu Masuk 100 Top Affilation yaitu dengan Peringkat 77 dan dengan Score Nilai 92. “Kami b...
Posting Komentar
Baca selengkapnya