PENGGAJIAN PEGAWAI MENGGUNAKAN LISTVIEW

LISTING PROGRAM:

Public Class form1

    Sub BuatTabel()

        ListView1.Columns.Add("Nik", 50, HorizontalAlignment.Left)

        ListView1.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jabatan", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Gaji", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Status", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Tunjangan istri", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jumlah Anak", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jam Lembur", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Honor lembur", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Pajak", 90, HorizontalAlignment.Left)

        ListView1.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = nik.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(jbtn.Text)

        Lst.SubItems.Add(gaji.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(tnjganistri.Text)

        Lst.SubItems.Add(jmlhanak.Text)

        Lst.SubItems.Add(tnjgnanak.Text)

        Lst.SubItems.Add(jamlmbur.Text)

        Lst.SubItems.Add(holembur.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(total.Text)

        ListView1.Items.Add(Lst)

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged

        Select Case (jbtn.Text)

            Case "mandor" : gaji.Text = 1750000

            Case "kepala bagian" : gaji.Text = 2500000

            Case "staff" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Mid(status.Text, 2)

        Select Case (status.Text)

            Case "Menikah" : tnjganistri.Text = 0.09 * gaji.Text

            Case "tidak menikah" : tnjganistri.Text = 0

                status.Text = Val(tnjganistri.Text) * Val(status.Text)

        End Select

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhanak.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Mid(status.Text, 2)

        If jmlhanak.Text >= 2 And status.Text = "Menikah" Then

            tnjgnanak.Text = 0.07 * gaji.Text

        ElseIf jmlhanak.Text = 1 And status.Text = "menikah" Then

            tnjgnanak.Text = 0.03 * gaji.Text

        End If

        jmlhanak.Text = Val(tnjgnanak.Text) * Val(jmlhanak.Text)

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "001" Then

            nama.Text = "Fanny"

        ElseIf nik.Text = "002" Then

            nama.Text = "Lili"

        ElseIf nik.Text = "003" Then

            nama.Text = "iwan"

        End If

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jbtn.Text = "mandor" Then

            holembur.Text = "7500"

        ElseIf jbtn.Text = "kepala bagian" Then

            holembur.Text = "1000"

        ElseIf jbtn.Text = "staff" Then

            holembur.Text = "5000"

        Else

            holembur.Text = 0

        End If

        total.Text = Val(jamlmbur.Text) + Val(gaji.Text) + Val(tnjganistri.Text) + Val(tnjgnanak.Text) - Val(pajak.Text)

    End Sub

   

  

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        nik.Text = ""

        nama.Text = ""

        jbtn.Text = ""

        gaji.Text = ""

        status.Text = ""

        tnjganistri.Text = ""

        jmlhanak.Text = ""

        tnjgnanak.Text = ""

        jamlmbur.Text = ""

        holembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

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

        BuatTabel()

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jbtn.Items.Add("mandor")

        jbtn.Items.Add("kepala bagian")

        jbtn.Items.Add("staff")

        status.Items.Add("Menikah")

        status.Items.Add("tidak menikah")

        For i = 1 To 4

            jmlhanak.Items.Add(i)

        Next i

        For i = 1 To 10

            jamlmbur.Items.Add(i)

        Next i

        Me.Text = "RAHMA YUNITA"

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

     IsiTabel()

    End Sub

   Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

End Class

HASIL FORM:

SMS Gateway

  SMS GATEWAY

     SMS Gateway adalah suatu platform yang menyediakan mekanisme untuk EUA menghantar dan menerima SMS dari peralatan mobile (HP, PDA phone, dll) melalui SMS Gateway’s shortcode (sbg contoh 9221). Di bawah ini disertakan sedikit ilustrasi mengenai penjelasan di atas.

      SMS Gateway membolehkan UEA untuk berkomunikasi dengan Telco SMSC (telkomsel, indosat, dll) atau SMS platform untuk menghantar dan menerima pesan SMS dengan sangat mudah, Karena SMS Gateway akan melakukan semua proses dan koneksi dengan Telco. SMS Gateway juga menyediakan UEA dengan interface yang mudah dan standar. UEA dapat berupa berbagai aplikasi yang memerlukan penggunaan SMS. Seperti berbagai aplikasi web yang telah banyak menggunakan SMS (free sms, pendaftaran, konfirmasi melalui SMS, aplikasi perkantoran, dsb), CMS, acara pengundian di televisi, dll. UEA melakukan komunikasi dengan SMS Gateway melalui Internet menggunakan standard HTTP GET atau HTTPS (untuk komunikasi yang aman).

      Telco SMSC akan menghantar pesan (SMS) tersebut kepada perusahaan SMS Gateway (sesuai dengan nomor yang telah disewa) dengan menggunakan protokol yang khusus. Dan berdasarkan keyword yang telah dituliskan pada SMS, maka sistem SMS Gateway akan menghantar SMS tersebut ke URL yang telah ditentukan. UEA dapat menghantar SMS reply kepada pelanggan melalui SMS Gateway tersebut. Dan UEA dapat menentukan besarnya biaya (charging) yang akan dikenakan kepada pelanggan. Biasanya telah ditentukan regulasi biayanya (microcharging mechanism), contoh Rp 0 (gratis); Rp 500,- ; Rp 1000,- ; Rp2000,- dst. Suatu perusahaan SMS Gateway biasanya support untuk pesan yang berupa teks, unicode character, dan juga smart messaging (ringtone, picture message, logo operator,dll).

Kebutuhan SMS Gateway 

Kebutuhan Perangkat Keras 

Untuk kebutuhan SMS Gateway tidak terlalu belebihan dan juga fleksibel karena bisa dibuat dengan

1. PC maupun Notebook. Yang mutlak dibutuhkan adalah sebuah komputer,
2. sebuah ponsel / modem
3. kabel data (Kabel berantarmuka serial yang dapat menghubungi ponsel dengan PC) atau dapat munggunakan InfraRed dan piranti lunak sebagai SMS Gateway.

Untuk menggunakan InfraRed anda membutuhkan sebuah ponsel yang juga memiliki fasilitas tsb, tapi tidak dianjurkan untuk kebutuhan SMS gateway karena komunikasi dengan InfraRed tidak terlalu baik (jika tergeser gampang putus).

Kebutuhan Software 

Disini penulis

1. Menggunakan Linux sebagai Operating System, Distro nya adalah Redhat Ver. 7.2.
2. MySQL Ver. 3.23.52 Max sebagai Database Server dan
3. GNOKII sebagai SMS Gateway.

Alternatif lainnya adalah

1. menggunakan Nokbe SMS Gateway (berbasis Java dan bisa jalan di Linux maupun Windows)
2. MySQL sebagai Database Server

Nokbe SMS Gateway sangat menyarankan untuk menggunakan modem GSM seperti Wavecom demi kelancaran komunikasi data dan kecepatan pengiriman SMS.12345678.

SMS Gateway Menggunakan GNOKII 

Proyek Gnokii ditujukan untuk pengembangan tools dan driver untuk MobileDevice Nokia yang menggunakan system Linux, FreeBSD dan *Nix Lainnya. Dengan gnokii kita bisa mengirim/menerima SMS, membuat panggilan, atau sekedar mengakses phonebook, dengan kata lain kita bisa menggunakan fasilitas-fasilitas yang dimiliki telepon seluler merek Nokia atau selular yang support AT langsung dari komputer, tapi tidak semua produk Nokia yang di support oleh gnokii.

Cara Membangun Rasa Percaya Diri

9 Cara Membangun Rasa Percaya Diri

Menjadi seorang yang percaya diri itu tidak semudah membalikan telapak tangan. khususnya untuk mereka yang malu dan takut ketika melakukan sesuatu seolah hantu akan menghantui anda maka rasa gugup pun akan membayangi pikiranya. Lihatlah mereka yang berbicara dengan cepat dan jelas, itu di karenakan mereka percaya diri, percaya akan perkataanya yang benar dan selalu siap dan tidak malu mengakui jika dia tidak mengetahui tentang suatu hal.

Berikut ini adalah Cara Membangun Rasa Percaya Diri

1. Kenali Rasa Ketidaknyamanan Anda
Kenali terlebih dahulu sesuatu yang membuat anda tidak percaya diri.
2. Kenali Bakat Anda
Temukan sesuatu hal yang anda ahli dan jago di bidang itu dan fokuslah untuk mengembangkannya.
3. Bersyukurlah Atas Apa Yang Anda Miliki
Bersyukurlah atas apa yang anda miliki . Dengan mengakui dan menghargai apa yang kita miliki, anda dapat melawan perasaan tidak utuh dan tidak puas. Menemukan kedamaian dalam diri akan membangkitkan percaya diri anda.
4. Selalu Berpikiran Postif
Berfikirlah positif.Jangan pernah takut menunjukkan kekuatan dan qualitas anda pada orang lain.
5. Berpakaian rapi
Berpakaian rapi dapat membangun rasa percaya diri.
6. Berjalan Dengan Cepat
Gaya berjalan sangat berbicara banyak tentang kepribadian anda. apakah lambat?seperti kelelahan?menyakitkan? atau enerjik? orang dengan rasa percaya diri bagus akan berjalan lebih cepat.
7. Berikan Pujian Kepada Orang Lain
Hindari bergosip ria yang mana dapat menusuk diri anda sendiri dan berusaha memberikan pujian pada orang-orang disekitar anda. Dalam prosesnya, anda akan menjadi disukai dan dapat membangun rasa percaya diri. Dengan melihat sisi yang terbaik dari orang lain,secara tidak langsung membawa hal yang terbaik pada diri sendiri.
8. Berbicaralah dan Tersenyumlah
ini yang sering di alami oleh setiap orang. Penelitian membuktikan banyak orang takut berbicara atau bertanya pada grup diskusi atau acara umum. Mereka takut akan dinilai orang lain karena berbicara sesuatu yang konyol. Padahal, orang kebanyakan lebih menerima daripada yang kita bayangkan. Kenyataannya kebanyakan orang memiliki ketakutan yang sama persis.
Dengan berusaha berbicara setidaknya sekali di setiap diskusi kelompok, anda akan menjadi pembicara yang bagus, lebih percaya diri tentang pikiran anda, dan akan dikenali sebagai leader oleh rekan-rekan anda. Selain itu,jangan lupa juga untuk selalu tersenyum, coba untuk tersenyum sesering mungkin.
Orang selalu menyenangi wajah yang penuh senyum. Orang akan selalu welcome jika kontak dengan anda. Wajah yang selalu tersenyum akan selalu menerima kehangatan dan rasa sayang. Penerimaan yang baik dari orang lain akan meningkatkan rasa percaya diri kita.
9. Berolahraga
Pikiran yang sehat muncul dari badan/ fisik yang sehat pula. Jika anda dalam kondisi fit, anda akan memiliki energi positif. Jika anda tidak fit, anda akan merasa tidak menarik. Ini akan menyebabkan kemerosotan akhlak. Sedikit disiplin dalam hidup anda dapat membantu banyak dalam pencapaian rasa percaya diri anda yang lebih tinggi.

Bahaya pornografi bagi anak

Semakin berkembangnya informasi membuat kita harus waspada terhadap bahaya pornografi yang bisa meracuni anak-anak kita. Seperti kita ketahui, dengan keberadaan internet, pornografi kini tak hanya dapat diakses dari media print saja, namun juga dari internet. 

Sebuah riset menunjukan bahwa sejak kehadiran internet, usia rata-rata anak mulai mengenal bentuk pornografi adalah 8 tahun. Padahal sebelum keberadaan internet mereka baru mengenal pornografi melalui media print berkisar antara 11 hingga 13 tahun. Jika pornografi dibiarkan meracuni anak-anak kita, maka bahaya yang ditimbulkan pun akan semakin besar. 

Berikut beberapa dampak pornografi yang bisa membahayakan anak-anak :

1.      Anak-anak mulai melakukan aktifitas seksual
Sifat dasar anak-anak adalah meniru. Mereka akan meniru apapun yang dilihat nya. Jika pornografi meracuni mereka, bukan tak mungkin mereka akan melakukan aktifitas seksual yang mereka lihat kepada anak yang lebih muda, bahkan teman sebayanya yang lebih lemah. Jika hal tersebut dibiarkan, anak bisa menjadi pelaku kekerasan seksual anak-anak, dimana hal ini biasanya disebabkan oleh 2 simultan yaitu pengalaman dan exposure.

2.      Tindakan seksual
Dampak pornografi bagi banyak orang yaitu menyebabkan kecanduan dan sifat progresif. Pengenalan pornografi pada usia dini berdampak pada semakin besarnya kecenderungan seseorang untuk melakukan tindakan seksual yang tidak semestinya, misalnya pemerkosaan. Sebuah penelitian menunjukan bahwa 1 dari 3 pelaku pelecehan seksual dan pemerkosa anak disebabkan oleh seringnya mereka melihat pornografi, baik melalui film, internet, majalah, video, dan sebagainya. Semakin sering seseorang melihat pornografi, semakin rendah kepuasan yang mereka dapatkan terhadap bentuk pornografi ringan, akibatnya mereka akan mencari lagi kepuasan yang lebih besar, dan bisa saja kepuasan tersebut berbentuk kekerasan seksual.

3.      Kecenderungan melakukan pelecehan seksual                                                 

    Mengenal pornografi lerlalu dini juga dapat juga dapat membuat seseorang melakukan kejahatan seksual seperti pelecehan seksual. 77% pelaku pelecehan terhadap anak laki-laki, dan 87% pelaku pelecehan tehadap anak perempuan. Kebiasaan melihat pornografi yang mendorong mereka melakukan tindakan criminal.

4.      Menangkap pesan yang salah

Pornografi bisa menimbulkan pesan yang salah bagi generasi muda terhadap hubungan antar mereka kelak. Mereka akan beranggapan bahwa kasih sayang antara ia dan pasangannya diukur oleh kepuasan seksual yang bisa mereka raih. Hal ini disebabkan sifat pornografi itu sendiri yang memaparkan seksualitas tanpa pertanggungjawaban.

5. Maningkatnya jumalah kehamilan usia dini
Tindakan seksual yang disaksikan anak, serta dorongan seksual yang secara alamiah dimiliki anak, akan membuatnya penasaran untuk kemudian melakukan sendiri tindakan seksual tersebut. Jika hal ini terjadi, kehamilan diluar nikah pada usia dini sangat mungkin terjadi.
Sebuah penelitian penyebutkan bahwa anak laki-laki yang ter-ekspos oleh pornografi sebelum usia 14 tahun akan lebih aktif bahkan kecanduan seks saat dewasa nanti. Penelitian lain juga menyebutkan bahwa diantara 932 pecandu seks yang di teliti, sebanyak 90% laki-laki dan 77% perempuan mengakui bahwa pornografi berperan besar pada kecanduan mereka.