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

Jenis jenis virus komputer

1. Spoofing Spoofing adalah teknik untuk mendapatkan akses yang tidak sah ke suatu komputer atau informasi. Dalam teknik Spoofing, untuk memalsukan bahwa mereka adalah host yang terpercaya, penyerang berpura-pura agar pengguna tidak mengetahui teknik ini. 2. DDOS (distributed denial of service) Serangan DDOS merupakan serangan trhadap komputer atau server di dalam sebuah jaringan dengan cara menghabiskan resource yang dimiliki komputer. Sehingga komputer tersebut tidak bisa berjalan dengan baik sehingga secara tidak langsung mencegah pengguna lain memperoleh akses layanan dari komputer yang diserang. 3.DNS Poisoning DNS Poisoning adalah cara untuk menembus pertahanan dengan menyampaikan IP Address mengenai host. DNS Poisoning mempunyai tujuan mengalihkan lalu lintas paket data dari tujuan aslinya. 4. Sniffer Sniffer Paket atau penganalisa paket dapat pula diartikan 'penyadap paket') yang juga dikenal sebagai Network Analyzers atau Ethernet Sniffer...
Posting Komentar
Baca selengkapnya

TUGAS MK BP1 TUGAS 2.5

Private Sub chkbold_Click() 'membuat teks tebal If chkbold.Value = 1 Then     lblteks.FontBold = True Else     lblteks.FontBold = False End If End Sub Private Sub chkitalic_Click() 'membuat teks miring If chkitalic.Value = 1 Then     lblteks.FontItalic = True Else     lblteks.FontItalic = False End If End Sub Private Sub chkstrike_Click() 'membuat teks strikeout If chkstrike.Value = 1 Then     lblteks.FontStrikethru = True Else     lblteks.FontStrikethru = False End If End Sub Private Sub chkunder_Click() 'membuat teks garis bawah If chkunder.Value = 1 Then     lblteks.FontUnderline = True Else     lblteks.FontUnderline = False End If End Sub Private Sub Command1_Click() End End Sub Private Sub Optblue_Click() 'membuat teks berwarna biru lblteks.ForeColor = vbBlue ...
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