Penggajian Karyawan Menggunakan Listview

Tampilan Design










Tampilan Akhir

Syntax programnya :

Public Class Form1

    Sub BuatTabel()

        Lv.Columns.Add("NIK", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Gaji", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Status", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Tunj.Keluarga", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = Nik.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jab.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(stt.Text)

        lst.SubItems.Add(tunj.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        Lv.Items.Add(lst)

    End Sub

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

        Nik.Items.Add("001")

        Nik.Items.Add("002")

        Nik.Items.Add("003")

        jab.Items.Add("Mandor")

        jab.Items.Add("Kepala bagian")

        jab.Items.Add("staf")

        stt.Items.Add("Menikah")

        stt.Items.Add("Belum Menikah")

        BuatTabel()

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

        Select Case Nik.Text

            Case "001" : nama.Text = "oncom"

            Case "002" : nama.Text = "Udin"

            Case "003" : nama.Text = "ujang"

        End Select

    End Sub

    Private Sub jab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged

        Select Case jab.Text

            Case "Mandor" : gaji.Text = 1750000

            Case "Kepala bagian" : gaji.Text = 2500000

            Case "staf" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.15 * gaji.Text

    End Sub

    Private Sub stt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stt.SelectedIndexChanged

        Select Case stt.Text

            Case "Menikah" : tunj.Text = 0.15 * gaji.Text

            Case "Belum Menikah" : tunj.Text = 0

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        total.Text = Val(gaji.Text) + Val(tunj.Text) - Val(pajak.Text)

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        Lv.Items.Clear()

    End Sub

    Private Sub hapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        IsiTabel()

        Nik.Text = ""

        nama.Text = ""

        jab.Text = ""

        stt.Text = ""

        pajak.Text = ""

        tunj.Text = ""

        gaji.Text = ""

        total.Text = ""

    End Sub

    Private Sub Lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lv.SelectedIndexChanged

    End Sub

End Class

Tumbuhan Anti Nyamuk

Selama ini tumbuhan anti nyamuk yang populer baru lavender. Sebenarnya ada lagi tanaman lain yang bisa menangkal kehadiran nyamuk. Apalagi musim penghujan mulai tiba, saatnya kita waspada dari wabah penyakit demam berdarah, cikungunya, dan penyakit lain yang disebabkan nyamuk. Bagi kamu yang belum tahu, ini dia 7 tanaman yang bisa digunakan sebagai pengusir nyamuk.

1. Geranium

Nama lainnya Tapak Dara. Tanaman ini mengandung geraniol dan sitronelol yang dapat mengusir nyamuk. Kedua zat yang dimiliki Geranium dapat dengan mudah terbang memenuhi udara. Tanam saja Geranium ke dalam pot atau langsung di tanah. Tempatkan di tempat yang mudah terkena tiupan angin, saat daun-daun Geranium bergesakan, aroma zat yang ada di tanaman ini akan tercium, membuat nyamuk menjauh dari ruangan.

2. Zodia

Tanaman ini asli dari Indonesia berasal dari Papua, dimana orang-orang Papua akan menggosok-gosokkan daun ini sebelum masuk hutan agar terlindung dari serangga terutama nyanuk. Zodia memiliki dua zat yang dapat membuat nyamuk kabur, yaitu Evodiamine dan Rutaecarpine. Untuk merasakan manfaatnya, Zodia bisa ditanam di ruang yang banyak tertiup angin agar aromanya tercium dan mengusir nyamuk.

3. Serai wangi

Serai akrab dikenal sebagai salah satu bumbu dapur, tapi ia memiliki zat Geraniol dan Sitronelal yang tidak disukai nyamuk. Menanam serai cukup mudah, tinggal tempatkan di pekarangan rumah saja.

4. Akar Wangi

Tanaman ini dapat mengeluarkan aroma menyengat yang tidak disukai nyamuk Aedes Aegypti. Tanam akar wangi di pekarangan rumah untuk merasakan manfaatnya.

5. Lavender

Tanaman ini aslinya dari Swiss, dan telah dimanfaatkan sebagai bahan pembuat lotion anti nyamuk. Bunga Lavender yang berwarna ungu memiliki zat Linalool dan Lynalyl acetate yang tidak disukai nyamuk. Tanam Lavender dalam pot atau tanah, untuk merasakan manfaatnya ambil bunganya dan gosok-gosokkan ke kulit.

6. Rosemary

Bunga Rosemary menghasilkan bau seperti aroma minyak kayu putih. Aroma yang tidak disukai oleh nyamuk karena mengacaukan penciumannya. Tanaman ini dapat ditanam ke dalam pot atau tanah. Di dekat jendela. Untuk pemanfaatannya, ambil daunnya yang berbentuk jarum dan digosokkan ke kulit.

7. Kecombrang

Kecombrang, kantan, atau honje (Etlingera eliator; sinonim Nicolaia elatior, Phaeomeria speciosa) adalah sejenis tumbuhan rempah dan merupakan tumbuhan tahunan berbentuk terna yang bunga, buah, serta bijinya dimanfaatkan sebagai bahan sayuran. Bunga ini juga dapat mengusir nyamuk. Nama lainnya adalah kincung (Medan) serta siantan (Malaya). Orang Thai menyebutnya kaalaa, harga tanaman ini cuma 1500/satuannya.

Dampak Negatif Online Bagi Anak-anak

     Dampak Negatif Online Bagi Anak-anak. penemuan ya  ng sangat mengejutkan di California sebuah penelitian menemukan 62% Anak-anak Punya Pengalaman Online Negatif di lansir dari situs atau web techno.okezone.com. Bagi orang tua agar memperhatikan apa yang dilakukan anak-anak di internet.

Internet saat ini tumbuh dengan pesat dan menjangkau seluruh kalangan masyarakat, tidak terkecuali anak-anak. Norton Online Family Report dari Symantec mengungkapkan beberapa aspek rahasia tentang perilaku anak-anak ketika sedang online.

Dilansir Security, Senin (21/11/2011), StrategyOne melakukan survei antara Februari dan Maret 2011 pada 19,636 pengguna online. Diantara 12.704 orang dewasa, 4.553 anak-anak berusia 8-17 dan 2.379 guru dari siswa berumur 8-17.

Sekira 62 persen anak-anak dari seluruh dunia mengatakan, mereka menghadapi pengalaman negatif saat online. Mereka melaporkan pengalaman negatif yang serius, seperti menerima gambar yang tidak pantas dari orang asing, ditindas atau menjadi korban cybercrime.

Laporan tahun ini juga mengidentifikasikan masalah baru ‘cyberbaiting’, yaitu anak-anak mengejek guru dan mengganggu kelas, kemudian merekamnya dengan ponsel lalu meng-upload konten ke internet.

Selain itu, juga menunjukkan tingginya jumlah anak-anak belanja online menggunakan kartu kredit orangtuanya
Petten, seorang youthologist dan penulis ‘Radical Parenting’ mengatakan, “Anak-anak mengembangkan identitas online mereka pada usia lebih awal daripada sebelumnya dan mereka membutuhkan orangtua, guru dan panutan lainnya untuk membantu mereka mencari tahu ke mana harus pergi, apa yang harus dikatakan, bagaimana untuk bertindak dan mungkin yang paling penting, bagimana  untuk tidak bertindak.”

Artikel tantang MS. Excel

Microsoft Excel atau Microsoft Office Excel adalah sebuah program aplikasi lembar kerja spreadsheet yang dibuat dan didistribusikan oleh Microsoft Corporation untuk sistem operasi Microsoft Windows dan Mac OS. Aplikasi ini memiliki fitur kalkulasi dan pembuatan grafik yang, dengan menggunakan strategi marketing Microsoft yang agresif, menjadikan Microsoft Excel sebagai salah satu program komputer yang populer digunakan di dalam komputer mikro hingga saat ini. Bahkan, saat ini program ini merupakan program spreadsheet paling banyak digunakan oleh banyak pihak, baik di platform PC berbasis Windows maupun platform Macintosh berbasis Mac OS, semenjak versi 5.0 diterbitkan pada tahun 1993. Aplikasi ini merupakan bagian dari Microsoft Office System, dan versi terakhir adalah versi Microsoft Office Excel 2007 yang diintegrasikan di dalam paket Microsoft Office System 2007.

Sejarah
PADA Tahun 1982, Microsoft cara membuat Sebuah program spreadsheet yang disebut Yang DENGAN Multiplan, Dalam, Yang sangat Populer SISTEM JARINGAN-CP / M, trus SISTEM Tidak Dalam, MS-DOS mengingat di Sana Sudah Berdiri saingannya, yakni Lotus 1-2-3. Hal ini cara membuat Microsoft memulai pengembangan program spreadsheet Sebuah Yang baru Yang disebut DENGAN Excel, DENGAN tujuan, seperti dikatakan oleh Doug Yang Klunder, "melakukan segala sesuatu 1-2-3 dilakukan dan melakukannya dengan lebih baik / melakukan apa Yang dilakukan oleh 1-2-3 Lebih murah Baik lagi ".
Versi Pertama Excel dirilis UNTUK Macintosh PADA Tahun 1985 murah versi Windows nya menyusul (dinomori versi 2.0) PADA November 1987. Lotus ternyata terlambat turun ke pasar program spreadsheet untuk windows, murah PADA Tahun tersebut, Lotus 1-2-3 masih berbasis MS-DOS. PADA Tahun 1988, Excel pun menggeser 1-2-3 Mulai pangsa pasar Dalam, program spreadsheet murah menjadikan Microsoft sebagai salah Satu perusahaan pengembang aplikasi perangkat Lunak Komputer Pribadi Yang UNTUK ANDAL. Prestasi ini mengukuhkan Microsoft sebagai kompetitor Yang sangat KUAT BAGI 1-2-3 murah bahkan mereka mengembangkannya Lebih Baik lagi. Microsoft, DENGAN menggunakan keunggulannya, rata-rata merilis versi Excel baru setiap doa Tahun Sekali, murah versi Excel untuk windows terakhir adalah Microsoft Office Excel 2010 (Excel 14), sementara UNTUK Macintosh (Mac OS X), versi terakhirnya adalah Excel untuk Mac.
PADA Awal-Awal peluncurannya, Excel menjadi sasaran tuntutan perusahaan lainnya Handphone Yang Dalam, bidang Industri Finansial Yang Telah Menjual Sebuah perangkat Lunak Yang juga memiliki Nama Excel. Akhirnya, Microsoft pun mengakhiri tuntutan tersebut DENGAN kekalahan murah Microsoft Harus mengubah Nama Excel menjadi "Microsoft Excel" Dalam, Semua rilis pers murah Dokumen Microsoft. Meskipun demikian, Dalam, prakteknya, Hal ini diabaikan murah bahkan Microsoft Excel Dari perusahaan Membeli Yang sebelumnya menuntut mereka, sehingga penggunaan Nama Excel Saja Tidak Akan membawa Masalah lagi. Microsoft juga menggunakan huruf XL SERING sebagai singkatan UNTUK Program tersebut, meskipun Yang Tidak Umum lagi, ikon Yang digunakan oleh Program tersebut masih terdiri Atas doa huruf tersebut (meski diberi beberapa gaya Penulisan). Selain ITU, standar ekstensi Dari Yang Dibuat oleh spreadsheet Microsoft Excel versi hingga 11,0 (Excel 2003) adalah *. xls sedangkan Mulai Microsoft Office Excel 2007 (versi 12,0) ekstensi default-nya adalah *. xlsx Yang mendukung format HTML namun Isi dengan Yang sama memiliki ukuran file yang Lebih Kecil Yang jika dibandingkan versi-versi DENGAN Excel sebelumnya.
Excel menawarkan BANYAK Keunggulan antarmuka jika dibandingkan program spreadsheet DENGAN Yang mendahuluinya, trus esensinya masih sama DENGAN VisiCalc (perangkat Lunak spreadsheet Yang Pertama kali terkenal): Sel disusun Dalam, baris murah Kolom, Serta mengandung Data atau rumus DENGAN berisi Referensi absolut atau relatif terhadap sel Referensi lainnya.
Excel merupakan program spreadsheet Pertama Yang mengizinkan Pengguna UNTUK mendefinisikan bagaimana Tampilan Dari spreadsheet Yang mereka sunting: font, atribut Karakter, murah Tampilan setiap sel. Excel juga menawarkan penghitungan Kembali terhadap sel-sel secara Cerdas, di mana sel Hanya Yang berkaitan DENGAN sel tersebut Saja Yang Akan diperbarui nilanya (di mana program-program spreadsheet lainnya Akan Menghitung ulang keseluruhan data yang Menunggu atau perintah Khusus Dari Pengguna). Selain ITU, Excel juga menawarkan fitur pengolahan Grafik Yang sangat Baik.
Ketika Pertama kali dibundel ke Dalam, Microsoft Office PADA Tahun 1993, Microsoft pun mendesain ulang antarmuka Tampilan Yang digunakan oleh Microsoft Word murah Microsoft PowerPoint UNTUK mencocokkan DENGAN Tampilan Microsoft Excel, Yang ITU PADA Waktu menjadi aplikasi spreadsheet Yang Paling disukai.
Sejak Tahun 1993, Excel Telah memiliki bahasa Pemrograman Visual Basic for Applications (VBA), Yang dapat menambahkan kemampuan Excel UNTUK melakukan automatisasi di Dalam, Excel murah juga menambahkan Fungsi-Fungsi Yang dapat didefinisikan oleh Pengguna (user-defined functions / UDF) UNTUK digunakan di Dalam, worksheet. Dalam, versi Selanjutnya, bahkan Microsoft menambahkan lingkungan pengembangan terintegrasi Sebuah (IDE) UNTUK bahasa VBA Excel UNTUK, sehingga memudahkan programmer UNTUK melakukan Pembuatan Program buatannya. Selain ITU, Excel juga dapat merekam Semua Yang dilakukan oleh Pengguna UNTUK menjadi makro, sehingga Mampu melakukan automatisasi beberapa Tugas. VBA juga mengizinkan Pembuatan bentuk murah Kontrol Yang terdapat di Dalam, lembar kerja dapat berkomunikasi UNTUK DENGAN penggunanya. Bahasa VBA juga mendukung penggunaan DLL ActiveX / COM, meski Tidak dapat membuatnya. Versi VBA Selanjutnya menambahkan Dukungan terhadap kelas modul sehingga mengizinkan penggunaan teknik berorientasi objek Pemrograman VBA Dalam,.
Fungsi automatisasi Yang disediakan oleh VBA menjadikan Excel sebagai Sebuah target virus-virus makro. Ini merupakan masalah serius Yang sangat Dalam, Dunia korporasi hingga para Pembuat antivirus Mulai menambahkan Dukungan UNTUK mendeteksi murah membersihkan virus-virus makro Berkas Dari Excel. Akhirnya, meski terlambat, Microsoft juga mengintegrasikan Fungsi UNTUK mencegah penyalahgunaan makro DENGAN menonaktifkan makro secara keseluruhan, atau menngaktifkan macro ketika mengaktifkan workbook, atau mempercayai macro Yang dienkripsi menggunakan Sertifikat digital DENGAN Yang tepercaya.