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

Tren Mode Gelap, Microsoft Malah Siapkan Tema Cerah Windows 10

KOMPAS.com - Jika Google akhir-akhir ini tengah gencar merilis tema gelap untuk aplikasinya, berbeda halnya dengan Microsoft. Raksasa teknologi ini justru menyiapkan sebuah tema cerah dengan warna terang yang dominan untuk sistem operasi Windows 10. Tema cerah atau "light theme" diumumkan Microsoft lewat blog resminya. Tema ini dijanjikan akan hadir pada pembaruan besar Windows 10 berikutnya yakni sekitar bulan April 2019 mendatang. Kendati demikian tema cerah ini sudah dapat dinikmati pengguna lewat Windows Insider. "Sejak kami perkenalkan fitur untuk memilih warna terang dan gelap di Windows 10, kami telah mendengar banyak masukan yang meminta agar dua opsi ini dipisahkan," tulis Microsoft di blog resminya. "Saat Anda memperbarui Windows 10 ke build ini, sistem tidak akan berubah secara otomatis ke tema cerah. Ini karena kami ingin Anda sendiri yang menentukan. Kami meninggalkan pilihan di tangan Anda," imbuh Microsoft. Sesuai dengan namanya, ketika li...
Posting Komentar
Baca selengkapnya

Izin Frekuensi 4G Bolt Terancam Dicabut, Ini Alasannya

JAKARTA, KOMPAS.com - Kondisi operator penyedia layanan internet berbasis 4G LTE, Bolt, tengah berada di ujung tanduk. Izin penggunaan frekuensi di spektrum 2,3 GHz yang digunakan Bolt untuk menggelar 4G LTE besutannya terancam dicabut oleh pemerintah. Hal ini dikemukakan secara langsung oleh Menteri Komunikasi dan Informatika (Kominfo), Rudiantara. Menurut Rudiantara, Kominfo telah melakukan evaluasi terkait kinerja dan kewajiban operator broadband di Indonesia secara berkala. Dari hasil evaluasi inilah pemerintah menyatakan akan bertindak tegas pada PT First Media Tbk. dan PT Internux selaku penyelenggara layanan internet Broadband Wireless Access (BWA) bermerek Bolt. Apa alasannya? Dari evaluasi tersebut diketahui kedua pihak memiliki utang Biaya Hak Penggunaan (BHP) frekuensi pada pemerintah yang harus segera dilunasi sebelum tenggal tanggal 17 November 2018. Baca juga: Menkominfo Tegaskan Bakal Cabut Izin Bolt dan Firstmedia 17 November Tunggakan tersebut mencapai angka keseluru...
Posting Komentar
Baca selengkapnya

China Sudah Sudah Bersiap Gelar Internet 6G

KOMPAS.com - Standardisasi jaringan internet generasi kelima ( 5G) telah rampung pada pertengahan 2018 ini. Implementasinya sendiri diramalkan baru mulai masif tahun depan. Beberapa vendor dan operator telekomunikasi masih dalam proses mematangkan diri mengadopsi teknologi 5G. Namun, China agaknya sudah tak sabar beranjak ke 6G. Saat ini, tim khusus yang menggodok 5G di bawah Kementerian Industri dan Teknologi Informasi China dalam tahap persiapan untuk menghadapi era 6G. Hal ini dikemukakan sang kepala tim, Su Xin. "Penelitian dan pengembangan awal jaringan 6G dimulai 2020," kata dia. Jika semua proses lancar, jaringan 6G ditargetkan mulai komersil pada 2030 mendatang. Menurut Su Xin, kecepatan jaringan internet 6G bisa 10 kali lebih andal ketimbang 5G. Padahal, jaringan 5G saja sudah membawa peradaban baru bagi masyarakat modern dengan memunculkan tren "Internet of Things". Kecepatan rata-ratanya 300 Mbps, tergantung lokasi. Dengan begitu, data 1GB bisa diunduh ...
Posting Komentar
Baca selengkapnya