Tugas 3.5






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

Komentar

Posting Komentar

Postingan populer dari blog ini

Looping Dan contoh dalam aplikasi java

                                         LOOPING (PERULANGAN) ~Looping jika jabarkan lagi berasal dari kata Loop, artinya lingkaran. Lingkaran memiliki ciri melingkar yang memiliki arti kembali lagi, mengulang. ~Looping artinya Perulangan, dari arti ini kita dapat mengamil point awal yaitu looping adalah perulangan. Perulangan seperti apa? Jadi,Looping adalah Suatu intruksi untuk membentuk aksi kerja secara berulang pada blok yang sama, dimana didalam blok yang akan diulang ada terdapat statement atau pernyataan. Contoh looping dalam pengaplikasian Java 1.      Buatlah program untuk menerima input bilangan bulat positif n dan menampilkan n bilangan bulat positif pertama yang habis dibagi 3 tetapi tidak habis dibagi 2. Contoh : Input = 5 Output = 3 9 15 21 27 Jawab : import java.util.Scanner; /**  * @author user  */ public class s {  /...
Baca selengkapnya

CONTOH TEKNOLOGI INFORMASI

CONTOH TEKNOLOGI INFORMASI Teknologi informasi tak selalu berupa barang-barang elektronik, bisa juga berupa barang yang tak membutuhkan energi listrik namun tetap bisa menjalankan fungsinya untuk menyampaikan pesan kepada orang lain. Media cetak biasanya hanya menyampaikan pesan berupa tulisan dan gambar. 1.    Media Cetak Contoh teknologi informasi yang pastinya sudah sangat dikenal banyak orang adalah media cetak. Media ini termasuk teknologi informasi karena memiliki fungsi untuk membuat, mengubah, menyimpan, atau menyebarkanpesan kepada banyak orang.   *      Surat kabar. Surat kabar atau koran adalah media cetak yang sampai saat ini masih diminati banyak orang sekalipun informasi bisa didapat dengan mudah lewat media elektronik. Surat kabar berisi beragam pesan atau berita yang bisa dibaca oleh siapa saja, mulai dari politik, ekonomi, hingga berita hiburan. *     Majalah. Majalah adalah salah satu teknologi informasi yang tergolong ke d...
Baca selengkapnya