Tugas 3.5 PT. Pulang petang setiap hari

Private Sub cmdbatal_Click()
txtnk.SetFocus
txtgolongan = ""
txtks = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgp = ""
txttunjangan = ""
txttg = ""
txtterbilang = ""
txtnk = ""
txtnik = ""
End Sub


Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnk.SetFocus
txtgolongan = ""
txtks = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgp = ""
txttunjangan = ""
txttg = ""
txtterbilang = ""
txtnk = ""
txtnik = ""

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
txtgolongan = "A"
txtjabatan = "Manager"
txtgp = "4000000"
txttunjangan.Text = "1025000"
ElseIf kode = "B" Then
txtgolongan = "B"
txtjabatan = "Ka. Seksi"
txtgp = "3500000"
txttunjangan = "975000"
ElseIf kode = "C" Then
txtgolongan = "C"
txtjabatan = "Staff"
txtgp = "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

txttg = Val(txtgp) + Val(txttunjangan)

If txttg.Text <> "" Then
    txtterbilang.Text = AngkaTerbilang(txttg.Text) + "Rupiah"
Else
    txtterbilang.Text = ""
End If

End Sub

Private Sub Form_Load()
txtgolongan.Enabled = False
txtkode.Enabled = False
txtstatus.Enabled = False
txttahun.Enabled = False
txtjabatan.Enabled = False
txtbagian.Enabled = False
txtgp.Enabled = False
txttunjangan.Enabled = False
txttg.Enabled = False
txtterbilang.Enabled = False
End Sub

Private Sub txttg_Change()
On Error Resume Next
If txtTotalg.Text <> "" Then
    txtterbilang.Text = AngkaTerbilang(txttg.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