Laman

Senin, 29 Oktober 2012

· KELEBIHAN DAN KEKURANGAN HARD DISK, FLASH DISK,DISKET

Disini akan saya tulis sedikit mengenai kelebihan dan kekurangan beberapa storage atau media penyimpanan dalam komputer, dalam hal ini harddisk, flashdisk, dan disket.
· KELEBIHAN DAN KEKURANGAN HARD DISK:

KELEBIHAN:
- Kapasitas besar
- Pembacaan data lebih cepat.
- Relative tahan lama
- Storage yang cukup aman

KEKURANGAN:
- Harga relative mahal
- Rawan terjadi bad sector
- Bentuk fisik yang relative besar dan berat
- Motor listrik yang memiliki batas usia tertentu, rata-rata 700.000 jam penggunaan.
- Mudah rusak jika terkena benturan fisik.

· KELEBIHAN DAN KEKURANGAN FLASH DISK:

KELEBIHAN :
- Bentuk yang kecil hingga mudah dibawa.
- Harga relative murah.

KEKURANGAN:
- Karena bentuk yang kecil, hingga rawan hilang.
- Removable storage, hingga data rawan rusak.

· KELEBIHAN DAN KEKURANGAN DISKET:

KELEBIHAN:
- Dikenal umum sebagai media penyimpanan pada zamannya
- Dikenal sebagai media portable yang cukup murah pada zamannya.
- Adanya fitur write protection.

KEKURANGAN:
- Kapasitas kecil
- Tranfer data lambat
- Mudah rusak
- Tidak didukung oleh computer modern

kelebihan dan kekurangan Flashdisk


USB FLASH DRIVE

  1. PENDAHULUAN
Dalam penggunaan PC (Personal Computer) sudah barang tentu kita melakukan proses penyimpan data. Media penyimpanan data sendiri sangatlah banyak, contohnya hardisk, memory, CD(CDR/CDRW) dan disket(floppy disk). Dan yang paling umum kita gunakan adalah disket karena selain bentuknya relatif kecil harganya juga terjangkau dan praktis untuk menyimpan data-data yang berukuran kecil. Tentu kita akan menemui hambatan saat harus menyimpan data yang berukuran cukup besar atau data yang berupa foto atau film, karena kapasitasnya yang hanya 1,44 MB. Karena itu orang mulai berpaling pada portable hard drive yang masih kurang praktis karena ukurannya yang besar. Lalu CD rewritable menjadi popular karena harganya terjangkau, tapi masih memiliki beberapa kelemahan karena kita harus memiliki CDR/RW dan softwarenya.
Sejalan dengan itus kedudukan floppy disk terancam tergeser karena kehadiran USB Flash Drive. Beberapa vendor besar seperti Dell Computer Corporation mulai memasarkan komputer terbaru mereka tanpa floppy disk, floppy disk hanya dijadikan sebagai pilihan saja. Bahkan beberapa Intel chipset tidak mendukung lagi floppy disk.
USB Flash Drive sama seperti floppy disk digunakan untuk menyimpan data tetapi USB flash drive memiliki banyak kelebihan dibanding dengan floppy disk. Antara lain : memiliki kapasitas yang lebih besar (32 MB – 1 GB), kecepatan yang lebih tinggi, dan sangat praktis karena berukuran kecil sehingga bisa dibawa kemana-mana.
Bertolak dari hal tersebut penulis berharap dengan pembahasan cara kerja dan jenis-jenis Flash Disk mampu memberi pengetahuan kepada yang membacanya mengingat hal ini masih baru dan belum banyak informasi yang bisa didapatkan. Dan dengan keterbatasan ini penulis sadar akan segala kekurangan dalam makalah ini maka kritik dan saran yang membangun sangat penulis harapkan.

  1. CARA KERJA USB FLASH DISK
Cara penggunaan USB Flash Drive sangat mudah karena menggunakan USB sebagai interfacenya. Hanya cukup menancapkan ke port USB pada PC dan akan langsung dikenali sebagai removable drive tanpa perlu proses rebooting (bersifat “plug and play1”) karena hampir semua sistem operasi terbaru2 dapat menginisialisasi driver. Hanya memang untuk Windows 98 masih perlu untuk menginstal driver yang biasanya sudah tersedia dalam paket USB Flash Drive. Berbeda dengan floppy disk maupun CDR/RW, USB Flash Drive memiliki keunggulan yaitu tidak perlu menggunakan alat tambahan untuk memakainya. Jadi tidak perlu mengeluarkan uang lagi untuk membeli alat tambahan seperti floppy disk drive atau CD-ROM/RW. USB Flash Drive juga tidak memerlukan tenaga baterai dan sangat ringan.
Data yang tersimpan dalam USB Flash Drive dapat bertahan hingga 10 tahun. Usia pakainya juga cukup lama karena kebanyakan pabriknya mengungkapkan : usia pakainya sekitar satu juta kali penghapusan. Sama artinya dengan penghapusan file-file dan menggantikannya dengan yang baru sampai sejuta kali.
Kecepatan transfer datanya tergantung dari interface USB yang digunakan. Jika menggunakan USB 1.1 mungkin masih memadai untuk USB Flash Drive yang berkapasitas kecil sampai sedang (di bawah 128 MB). Bandwidth-nya berkisar 12 Megabit/detik atau 1,5 MB/detik. Tapi jika kita menggunkan USB 2.0(USB High Speed) cocok untuk USB Flash Drive yang kapasitasnya diatas 256 MB. Karena kecepatan transfer data bisa mencapai 480 Megabit/detik (60 MB/detik). Walau begitu USB Flash Drive yang tercepat sampai saat ini hanya 8 MB/detik untuk pembacaan dan 7 MB/detik untuk penulisan, karena keterbatasan memori dan teknologi USB Flash Drive tersebut. Kinerja USB Flash Drive sendiri bisa didongkrak dengan transfer data pararel dengan lebih dari satu chip memori. Kompensasinya ukuran fisiknya akan menjadi lebih besar akibat penggunaan banyak chip memori.
Keunggulan lain dari USB Flash Disk adalah dapat berfungsi sebagai floppy disk (untuk menyimpan data-data dengan kapasitas kecil) dan sebagai HDD (untuk menyimpang data berkapasitas besar). Alat ini sudah dipartisi sedemikian rupa untuk meningkatkan keamanannya agar tidak mengganggu satu sama lain bila terjadi kerusakan pada salah satu partisi baik partisi floppy maupun partisi HDD.

  1. TIPE DAN JENIS-JENIS USB FLASH DISK
USB Flash Disk tersedia dalam berbagai warna dan kapasitas yang dapat dipilih sesuai dengan kebutuhan. Kapasitas yang tersedia antara 32 MB – 2 GB, namun yang banyak digunakan dan tersedia di Indonesia saat ini masih berkisar antara 64 MB – 256 MB. Karena memang untuk Flash Disk yang berkapasitas lebih dari 256 MB masih relatif mahal dan langka.
Sama dengan floppy disk, USB Flash Drive dilengkapi dengan tombol write protect sehingga memungkinkan anda untuk melindungi data anda dari penghapusan secara tidak sengaja. Feature lain yang ditampilkan oleh USB Flash Disk ialah sistem sekuriti data antara lain dengan password, enkripsi hingga autorisasi sidik jari.
BERBAGAI JENIS USB FLASH DISK :
  1. EASYDISK ALUMINIUM 256 MB USB DRIVE
Pembuat : EasyDisk
Kapasitas : 256 MB
Tipe : USB 2
Model lain : tersedia warna lain
Kelebihan : write-protection switch
Kekurangan : mahal


B. AIPTEK: Pen Drive (USB Flash Hard Drive)
Yang dibutuhkan sistem:
- USB Interface
- Windows 98 / 98SE dengan menggunakan driver
(driver disk tersedia dlm paket)
- Windows Me/2000/XP , Linux2.40 and Mac OS9 dan sejenisnya
FITUR :
  • Hot Plug & Play
  • Tidak perlu driver untuk WINDOWS ME dan sejenisnya
  • Kecil , bisa ditaruh di saku.
  • Tidak memakai baterai
  • Kapasitas tersedia antara 16 MB – 128 MB
  • Portable
    Spesifikasi :
  • Dimensi (L/W/H): 77 x 25 x 9 mm
  • Berat: 20g
  • Kecepatan Akses : Read 750 kb/s (Maximum)
Write 450 kb/s (maximum)
- Storage Nand-gate flash memory

C. MCPRO USB 2.0 128 MB
Pembuat : MCPRO
Harga : sekitar Rp. 405 ribu
Kapasitas : 128 MB
Tipe : USB 1
Model lain : 256 MB
Kelebihan : switch lock dan indikator LED
Kekurangan : -

D. USB FLASH DRIVE
Pembuat : Belkin
Harga : sekitar Rp. 1 juta
Kapasitas : 128 MB
Tipe : USB 1
Model lain : sampai 512 MB
Kelebihan : fitur password
Kekurangan : mahal
E. POCKET FLASH DRIVE
Pembuat : Corega
Harga : sekitar Rp. 600 ribu
Kapasitas : 128 MB
Tipe : USB 1
Model lain : 32 MB dan 64 MB
Kelebihan : write-protection switch
Kekurangan : performanya dibawah rata-rata
F. GIZMO
Pembuat : Crucial Technology
Harga : sekitar Rp. 540 ribu
Kapasitas : 128 MB
Tipe : USB 1
Model lain : sampai 256 MB
Kelebihan : cukup murah
Kekurangan : tanpa bonus fitur
G. DISGO
Pembuat : Disgo
Harga : sekitar Rp. 860 ribu
Kapasitas : 128 MB
Tipe : USB 2 Full Speed
Model lain : sampai 1 GB
Kelebihan : fitur password dan bonus software
Kekurangan : kecepatan kurang maksimal
H. USB CARD
Pembuat : Freecom
Harga : sekitar Rp. 1,2 juta
Kapasitas : 128 MB
Tipe : USB 2
Model lain : sampai 512 MB
Kelebihan : fasilitas proteksi, kompresi dan e-mail
Kekurangan : mahal
I. POWERPLAY PRO
Pembuat : Smartdisk
Harga : sekitar Rp. 850 ribu
Kapasitas : 32 MB
Tipe : USB 1
Model lain : -
Kelebihan : sebagai laser pointer dan remote control
Kekurangan : persedian terbatas
J. MEGA MEMORY WATCH
Pembuat : Memix
Harga : sekitar Rp. 1 juta
Kapasitas : 128 MB
Tipe : USB 1
Model lain : 256 MB / USB 2
Kelebihan : sekaligus sebagai jam tangan
Kekurangan : mutu barangnya kurang bagus
K. MICRO VAULT
Pembuat : Sony
Harga : sekitar Rp. 989 ribu
Kapasitas : 128 MB
Tipe : USB 2
Model lain : sampai 256 MB
Kelebihan : fasilitas pasword, kompresi dan docking station
Kekurangan : kecepatannya berkurang dalam USB 2
L. E.ZI DRIVE
Pembuat : Waltec
Harga : sekitar Rp. 550 ribu
Kapasitas : 128 MB
Tipe : USB 1
Model lain : sampai 1 GB
Kelebihan : fitur password dan harganya murah
Kekurangan : dukumentasi kurang lengkap
  1. KESIMPULAN
USB Drive merupakan alat yang portabel, bersifat plug-and-play, tanpa tenaga baterai dan sangat ringan sehingga dapat dilekatkan pada gantungan kunci. Untuk mengoperasikannya pada komputer, cukup menghubungkannya melalui port USB. Sesaat setelah terhubung, sistem operasi komputer akan mengenalinya sebagai removeable drive secara otomatis tanpa melalui proses rebooting.
Hingga saat ini, alat ini dapat diperoleh dengan kapasitas simpan mulai dari 8MB hingga 2GB dan berbagai sistem sekuriti data antara lain dengan password, enkripsi hingga autorisasi sidik jari. Dengan berbagai bentuk dan harga yang variatif3 juga.
Jika dilihat dari nilai Rupiahnya, mungkin USB Flash Disk terasa besar nilainya, akan tetapi jika kita melihat dari kapasitasnya dan dibandingkan dengan harga dari sejumlah disket (floppy disk) dengan kapasitas sama, USB Flash Disk akan terlihat lebih murah dan efisien. Selain itu kemudahan membawanya dan penggunaannya (plug and play) merupakan nilai tambah dari alat ini.
Keterangan

1 Cara penginisialisasi perangkat keras (seperti : USB Flash Disk, kabel data kamera digital, dll) tanpa menginstal driver dan tanpa rebooting.
2 Contohnya : Windows XP, ME, Linux 2.40 and Mac OS 9.
3 Mulai dari 47 – 75 US Dollar untuk kapasitas 128 MB dan 69 – 81 US Dollar untuk kapasitas 256 MB.

Mengembalikan Data Flashdisk yang terhidden.

Alhamdulillah Terima kasih...
ada beberapa tips untuk Mengembalikan data flashdisk yang terhidden (biasanya karena terkena virus tertentu) yang didapat dari beberapa sumber dan telah terbukti !
ini dia tipsnya :

1. Masuk ke menu windows START>>RUN ketik cmd (command promt)
2. lalu ketik attrib(spasi)-s(spasi)-h(spasi)G:*.*(spasi)/s(spasi)/d




Contoh : attrib -s -h -g:*.* /s /d

Keterangan :
silahkan ganti G dengan lokasi flash disk kamu yang terpasang dikompi.
  • ATTRIB (lebih kerennya  “Attribute”, bisa diartikan atribut/sifat dari suatu file).
  • Perintah "–s" berfungsi supaya file kembali dikenal oleh windows
  • Perintah "-h" berfungsi menampilkan kembali file yg tersembunyi/disembunyikan.
  • Perintah “/s /d“ artinya perintah attrib akan dikenakan pada semua file dan folder yang berada di dalam folder.

Minggu, 28 Oktober 2012

SEKILAS PENGENALAN TENTANG SYNTAX JAVA

JAVA

public class test extends MIDlet implements CommandListener
Digunakan untuk memanggil class MIDlet(pada extends MIDlet).Class MIDlet ini sudah ada dalam package microedition.midlet tadi. Fungsi dari CommandListener adalah
action/kejadian untuk mengeksekusi sebuah perintah dari user (semacam tombol untuk menjalankan suatu perintah)



private Display display
merupakan variabel dari class Display

public void startApp
method yang berfungsi untuk menampilkan tampilan awal aplikasi mobile anda

public void commandAction(Command c, Displayable d)
method ini berfungsi untuk mengimplementasikan class CommandListener yang telah di-implements sebelumnya. Berfungsi untuk menempatkan source code supaya tombol dapat menjalankan suatu perintah
Ticker
Ticker adalah teks berjalan pada bagian atas layar aplikasi.
TextBox
TextBox media untuk menerima masukan teks dari keypad menggunakan handheld, misalnya nama, password, alamat, dan lain-lain
Alert
menyediakan informasi kecil, informasi yang ditampilkan sebelum objek Screen yang lain. Digunakan untuk memberikan informasi error ke pengguna.
List
berfungsi memilih elemen dalam list kepada pemakai. Elemen tersebut dapat berupa teks, string, ataupun gambar.
Form
digunakan untuk menampung beberapa GUI semacam daftar pilihan (List), masukan teks (teksbox) dalam satu layer. Komponen GUI yang dapat ditampung oleh Form disebut dengan item yang terdiri dari textfiled, images, data fileds, gauge, dan choise group.
Choicegroup
merupakan group dari selectable choice. Sebuah choice boleh berisi
sebuah text, gambar atau kedua-duanya.
Choice boleh EXCLUSIVE (hanya satu pilihan yang dapat dipilih) atau MULTIPLE (banyak
pilihan yang dapat dipilih pada suatu waktu). Jika ChoiceGroup bertipe POPUP, hanya
satu choice yang ditampilkan. Popup selection akan ditampilkan ketika item ini dipilih.
Dari popup seleksi ini, user diperbolehkan memilih pilihannya. Choice yang ditampilkan
selalu choice yang dipilih.
DateField
digunakan untuk masukan tanggal dan waktu dari user. DateField
dapat diisi dengan date entry(mode DATE), time entry (mode TIME) atau keduanya
(mode DATE_TIME).
Method getDate() mengembalikan nilai suatu item. Dia akan mengembalikan nilai null
jika item tidak diinialisasi terlebih dahulu. Jika mode dari DateField adalah DATE,
komponen time dari pengembalian nilai akan di-set menjadi nol. Jika modenya adalah
TIME, komponen date akan di-set menjadi “July 1, 2012”.
StringItem
merupakan komponen read-only. Dia terdiri dari label dan text.
Secara bebas StringItem menerima tampilan mode parameter. Tampilan dari mode
dapat berupa Item.PLAIN, Item.HYPERLINK atau Item.BUTTON.
Jika tampilan sebuah mode bertipe HYPERLINK atau BUTTON, default Command dan
ItemCommandListener harus di-set didalam Item.
ImageItem
merupakan Image sederhana yang dapat dimasukan kedalam komponen,
seperti Form.
ImageItem menerima item layout sebagai parameter
TextField
merupakan Item dimana user dapat memasukan encode
GetString
mengembalikan isi dari TextField sebagai nilai sebuah String.
Command
diimplementasikan sebagai soft key atau item dalam sebuah menu. Object
Command hanya berisi informasi tentang action yang harus dikerjakan pada saat
Command diaktifkan.
Command.OK, Command.BACK,
Command.CANCEL, Command.EXIT,
Command.HELP, Command.ITEM,
Command.SCREEN, Command.STOP

Program Penggajian Dasar Menggunakan VB.Net

Dibawah ini adalah contoh pemrograman dasar Vb.net 2008 yang membahas tentang penggajian karyawan menggunakan ListView




Imports System.Drawing
Public Class MENU

    Private Sub LOGINToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOGINToolStripMenuItem.Click
        login.ShowDialog()
    End Sub

    Private Sub LOGOUTToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOGOUToolStripMenuItem.Click
        login.Close()
    End Sub

    Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub BtnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBrowse.Click

        Dim bukaGambar As New Windows.Forms.OpenFileDialog
        bukaGambar.Filter = "File Gambar(*.bmp; *.jpg;*.GIF)|*.BMP;*.JPG;*.GIF|All files(*.*)|*.*"

        If bukaGambar.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.Poto.Image = Image.FromFile(bukaGambar.FileName)
        Else
            MsgBox("Pilih Gambar Dulu", MsgBoxStyle.Exclamation, "Error")
        End If
        TextBox1.Text = bukaGambar.FileName.ToString
    End Sub
End Class
 




Public Class login

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim buka As New PENGGAJIAN_KARYAWAN
        ProgressBar1.Value += 2.5
        If ProgressBar1.Value = 100 Then
            Timer1.Dispose()
            MessageBox.Show("Selamat Datang:" & vbCrLf & txtUserName.Text & "!!!!!")
            Me.Visible = False
            buka.ShowDialog()
            Me.Hide()
           
        End If
    End Sub


    Sub login()
        Dim User, pass As String
        User = "hardi"
        pass = "12345"

        If txtUserName.Text = User And txtPassword.Text = pass Then

            Timer1.Enabled = True


        Else
            txtUserName.Text = ""
            txtPassword.Text = ""
            MessageBox.Show("User salah dan password salah!!!!!")
            txtUserName.Focus()
            txtUserName.Clear()
            txtPassword.Focus()
            txtUserName.Clear()
            PENGGAJIAN_KARYAWAN.Close()


            Timer1.Enabled = False
        End If

    End Sub


    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        Call login()
    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
        Close()
    End Sub
End Class





Public Class PENGGAJIAN_KARYAWAN
    Sub buattabel()
        LV.Columns.Add("JABATAN", 120, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI POKOK", 120, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 120, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJANGAN ISTRI", 120, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 120, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJANGAN ANAK", 120, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("LEMBUR", 80, HorizontalAlignment.Left)
        LV.Columns.Add("UPAH LEMBUR", 120, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = cmbJabatan.Text
        lst.SubItems.Add(txtGajiPokok.Text)
        lst.SubItems.Add(cmbstatus.Text)
        lst.SubItems.Add(txtTunjanganIstri.Text)
        lst.SubItems.Add(txtJumlahAnak.Text)
        lst.SubItems.Add(txttunjangananak.Text)
        lst.SubItems.Add(txtpajak.Text)
        lst.SubItems.Add(txtlembur.Text)
        lst.SubItems.Add(txtUpahLembur.Text)
        lst.SubItems.Add(txttotal.Text)
        LV.Items.Add(lst)

    End Sub
    Sub GAJI()
        If cmbJabatan.Text = "MANDOR" Then
            txtGajiPokok.Text = 1750000
            txtpajak.Text = (txtGajiPokok.Text * 1.5) / 100

        ElseIf cmbJabatan.Text = "KEPALA BAGIAN" Then
            txtGajiPokok.Text = 2500000
            txtpajak.Text = (txtGajiPokok.Text * 1.5) / 100

        ElseIf cmbJabatan.Text = "STAF" Then
            txtGajiPokok.Text = 1250000
            txtpajak.Text = (txtGajiPokok.Text * 1.5) / 100

        End If
    End Sub
    Sub TUNJANGAN_ISTRI()
        If cmbstatus.Text = "MENIKAH" Then
            txtTunjanganIstri.Text = (txtGajiPokok.Text * 9) / 100
        ElseIf cmbstatus.Text = "BELUM MENIKAH" Then
            txtTunjanganIstri.Text = "0"
            txttunjangananak.Text = "0"
            txtJumlahAnak.Text = "0"

        End If
    End Sub
    Sub TUNJANGAN_ANAK()
        If cmbstatus.Text = "MENIKAH" Then
            If txtJumlahAnak.Text = "1" Then
                txttunjangananak.Text = (txtGajiPokok.Text * 3) / 100
            ElseIf txtJumlahAnak.Text >= "2" Then
                txttunjangananak.Text = (txtGajiPokok.Text * 7) / 100
            End If
        ElseIf cmbstatus.Text = "BELUM MENIKAH" Then
            txtJumlahAnak.Text = "0"
            txttunjangananak.Text = "0"
            txtTunjanganIstri.Text = "0"

        End If

    End Sub
    Sub proses()
        If cmbJabatan.Text = "MANDOR" Then
            txtUpahLembur.Text = (txtlembur.Text * 7500)

        ElseIf cmbJabatan.Text = "KEPALA BAGIAN" Then
            txtUpahLembur.Text = (txtlembur.Text * 10000)

        ElseIf cmbJabatan.Text = "STAF" Then
            txtUpahLembur.Text = (txtlembur.Text * 5000)

        End If
    End Sub
    Sub bersih()
        cmbJabatan.Text = ""
        txtGajiPokok.Text = ""
        cmbstatus.Text = ""
        txtTunjanganIstri.Text = ""
        txtJumlahAnak.Text = ""
        txttunjangananak.Text = ""
        txtpajak.Text = ""
        txtlembur.Text = ""
        txtUpahLembur.Text = ""
        txttotal.Text = ""
    End Sub

    Private Sub PENGGAJIAN_KARYAWAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        cmbJabatan.Items.Add("MANDOR")
        cmbJabatan.Items.Add("KEPALA BAGIAN")
        cmbJabatan.Items.Add("STAF")

        cmbstatus.Items.Add("MENIKAH")
        cmbstatus.Items.Add("BELUM MENIKAH")

    End Sub

    Private Sub cmbJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbJabatan.SelectedIndexChanged
        Call GAJI()
    End Sub

    Private Sub cmbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbstatus.SelectedIndexChanged
        Call TUNJANGAN_ISTRI()
    End Sub

    Private Sub txtJumlahAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJumlahAnak.TextChanged
        Call TUNJANGAN_ANAK()
    End Sub

    Private Sub txtlembur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtlembur.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Call proses()
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call isitabel()
        Call bersih()
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        txttotal.Text = (Val(txtGajiPokok.Text) + Val(txtTunjanganIstri.Text) + Val(txttunjangananak.Text) + Val(txtlembur.Text)) - txtpajak.Text
        Call proses()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
    End Sub

    Private Sub btnHapusDipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusDipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class




hasil  :