Contoh Desain Penggajian karyawan

Public Class Form1

    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")

        Jabatan.Items.Add("Mandor")

        Jabatan.Items.Add("Kepala Bagian")

        Jabatan.Items.Add("Staff")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        For i = 1 To 4

            Jumlahanak.Items.Add(i)

        Next i

        For i = 1 To 10

            Jamlembur.Items.Add(i)

        Next i

        BuatTabel()

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.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

        Select Case Status.Text

            Case "Menikah" : tunjistri.Text = 0.09 * Gaji.Text

            Case "Tidak Menikah" : tunjistri.Text = 0

        End Select

    End Sub

    Private Sub Jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlahanak.SelectedIndexChanged

        If Jumlahanak.Text >= 2 And Status.Text = "Menikah" Then

            tunjanak.Text = 0.07 * Gaji.Text

        ElseIf Jumlahanak.Text = 1 And Status.Text = "Tidak Menikah" Then

            Jumlahanak.Text = 0.03 * Gaji.Text

        Else

            tunjanak.Text = 0

        End If

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        If Jabatan.Text = "Mandor" Then

            honorlembur.Text = Jamlembur.Text * 7500

        ElseIf Jabatan.Text = "Kepala Bagian" Then

            honorlembur.Text = Jamlembur.Text * 310000

        ElseIf Jabatan.Text = "Staff" Then

            honorlembur.Text = Jamlembur.Text * 5000

        Else

            honorlembur.Text = 0

        End If

        totalgaji.Text = Val(Jamlembur.Text) + Val(Gaji.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) - Val(pajak.Text)

    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 = "Yuni"

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

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

        End Select

    End Sub

    Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click

        nama.Text = ""

        NIK.Text = ""

        Jabatan.Text = ""

        gaji.Text = ""

        Status.Text = ""

        tunjistri.Text = ""

        Jumlahanak.Text = ""

        tunjanak.Text = ""

        Jamlembur.Text = ""

        honorlembur.Text = ""

        pajak.Text = ""

        totalgaji.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 Lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lv.SelectedIndexChanged

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Status", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Honor Lembur", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Total Gaji", 80, 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(jabatan.Text)

        Lst.SubItems.Add(gaji.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(tunjistri.Text)

        Lst.SubItems.Add(Jumlahanak.Text)

        Lst.SubItems.Add(tunjanak.Text)

        Lst.SubItems.Add(honorlembur.Text)

        Lst.SubItems.Add(honorlembur.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(totalgaji.Text)

        lv.Items.Add(Lst)

    End Sub

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

        IsiTabel()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunjistri.Text = ""

        Jumlahanak.Text = ""

        tunjanak.Text = ""

        Jamlembur.Text = ""

        honorlembur.Text = ""

        pajak.Text = ""

        totalgaji.Text = ""

    End Sub

End Class

TUGAS BAHASA PEMROGRAMAN

10 ATLET TERKAYA DI DUNIA TAHUN 2013

Anda tentu akrab dengan sosok superstarsepakbola David Beckham, striker Real Madrid Cristiano Ronaldo atau pemain terbaik dunia tiga kali berturut-turut Lionel Messi. Kepiawaian ketiganya di lapangan hijau memukau para pecinta sepakbola.

Lantas bagaimana dengan tiga atlet berikut ini? LeBron James, Phil Mickelson maupun Alex Rodrigues? Ketiga nama sebelumnya mungkin lebih tidak asing terdengar di Indonesia, ketimbang tiga atlet tersebut. Tapi jangan salah, ternyata kekayaan ketiga atlet ini melampaui Beckham, Ronaldo dan Messi.

Hal ini diketahui dari daftar atlet terkaya dunia tahun 2012 yang dirilis majalah Forbes. Daftar ini melengkapi daftar orang terkaya dunia yang juga dirilis Forbes, belum lama ini. Siapa-siapa saja 10 atlet yang dimaksud? Yuk, intip ulasannya:

1. Tiger Woods
Pegolf asal Amerika ini mengantongi kekayaan sebanyak US$ 75 juta. Meski sempat digoyang skandal seks dengan banyak wanita, namun dia masih mendapatkan kepercayaan dari sponsor seperti Nike dan Electronic Arts.

2. Kobe Bryant
Atlet basket ini mengantongi kekayaan sebesar US$ 53 juta. Gaji per tahunnya di LA Lakers mencapai US$ 24,8 juta, ditambah lagi kucuran uang dari beberapa sponsor.

3. LeBron James
Atlet basket ini memiliki penghasilan sebesar US$ 48 juta. Salah satu pemilik saham klub sepak bola Liverpool ini memperoleh penghasilan dari penjualan jersey dan sepatu bermerk namanya.

4. Phil Mickelson
Atlet golf ini memiliki kekayaan US$ 47 juta. Sumber pendapatannya berasal dari penampilannya, meski saat ini dia turun ke posisi dua pegolf terbaik dunia.

5. Roger Federer
Bintang lapangan tenis ini mengantongi kekayaan US$ 47 juta. Disebutkan, pendapatan terbesar Federer berasal dari kontrak-kontraknya dengan berbagai brand kelas dunia seperti Nike, Wilson, Gillette’s, Credit Suisse serta Rolex.

6. David Beckham
Dia menjadi pesepakbola terkaya dunia dengan total kekayaan US$ 40 juta. Beckham memperoleh pemasukan dari beberapa sponsor, antara lain Adidas, Samsung juga gaji dari klubnya.

7. Cristiano Ronaldo
Di urutan kedua atlet sepak bola, CR7 mengantongi kekayaan US$ 38 juta. Pemegang status pemain bola termahal dunia ini memperoleh pemasukan lain dari kontraknya dengan Nike, Clear Shampoo, Castrol dan Banco Espirito.

8. Alex Rodriguez
Pemain baseball di Amerika ini memiliki kekayaan US$ 35 juta. Ia memperoleh pemasukan dari penampilannya bersama Texas Rangers.

9. Lionel Messi
Pesepakbola terbaik dunia ini memilki kekayaan US$ 32 juta. Satu-satunya wakil dari Amerika Latin untuk 10 besar atlet dengan penghasilan tertinggi di dunia. Untuk urusan pendapatan dari kontrak sponsor, Messi memperoleh US$ 16 juta dari beberapa brand seperti Dolce & Gabbana, Pepsi, Adidas, Konami, Audemars Piguet, Chery dan Air Europa.

10. Rafael Nadal
Petenis Spanyol ini memiliki kekayaan US$ 31 juta. Pendapatannya diperoleh dari kejuaraan dalam berbagai kompetisi tenis. Ia pun memiliki kontrak bersama Nike, KIA Motor, serta Giorgio Armani.

10 Stadion Terbesar Di Dunia

Sebuah pertandingan sepak bola bukan hanya tentang 22 pemain di lapangan. Penonton memainkan bagian besar dalam kesempatan tersebut. Desain stadion dan suasana itu menghasilkan dapat memiliki efek menakutkan pada pemain dan pejabat yang bahkan dapat mempengaruhi hasilnya. Sebagai stadion baru mulai mendominasi pemandangan olahraga di seluruh dunia, daftar ini membayar penghormatan kepada tempat-tempat besar yang telah berdiri ujian waktu.
1. Maracana, Rio De Janeiro
Rumah untuk tim nasional Brasil dan klub Rio Vasco De Gama , kembali sisi pertama pada tahun 1920 untuk menandatangani pemain Afrika. Maracana ini dibangun untuk Final Piala Dunia 1950 dan pada satu saat kerumunan 200.000 tidak diketahui. Kapasitas saat ini telah dikurangi menjadi 96.000, tetapi stadion masih memiliki aura yang besar.
2. Nou Camp, Barcelona

Rumah untuk FC Barcalona, ​​Camp Nou memiliki kapasitas hanya di bawah 100.000 dan telah menyelenggarakan permainan besar, termasuk final Eropa dan pertandingan Piala Dunia. Itu selesai pada tahun 1957 dan dengan berbagai perangkat tambahan struktur berjenjang kini mencapai hingga ketinggian 48 meter di satu sisi tanah.
3. Santiago Bernabau, Madrid
Dibangun pada tahun 1947, stadion Santiago Bernabau adalah rumah dari Real Madrid, salah satu klub paling terkenal di dunia. Ini juga merupakan tuan rumah untuk Piala Dunia 1982 Final dan berbagai final klub Eropa selama bertahun-tahun.
4. Estadio Azteca, Mexico City

Para Azteca telah menjadi tuan rumah untuk dua putaran final Piala Dunia, salah satunya adalah Brazil v Italia pertandingan besar pada tahun 1970. Tim nasional Meksiko bermain di sini seperti halnya sisi Club America. Ini diresmikan pada tahun 1966 dan memiliki kapasitas 105.000. Sebuah tempat yang mengesankan, itu dikenal sebagai “Il Coloso de Santa Ursula” (Colossus Saint Ursula).
5. San Siro, Milan
Stadion Giuseppe Meazza, umumnya dikenal sebagai San Siro, adalah rumah Inter Milan dan AC Milan, dua dari sisi historis paling sukses klub Eropa. Stadion ini memiliki kapasitas 80.http://facelose.wordpress.com/wp-admin/post-new.php?post_type=post000 penggemar, dan merupakan salah satu stadion terbesar di Italia. Sebuah fitur umum pada pertandingan yang flare, spanduk dan nyanyian dari Ultras.
6. Westfalenstadion, Dortmund

Rumah Borussia Dortmund, Westfalenstadion secara resmi dikenal sebagai Signal Iduna Park, nama dari sponsor itu. Ini adalah salah satu tempat penyelenggaraan terbesar Jerman olahraga dan memiliki basis dukungan fanatik, teratur menjual lebih dari 50.000 tiket musim. Hal ini terkenal unik itu “Südtribüne” (Berdiri Selatan), di mana 24.000 penggemar mengisi teras berdiri terbesar di Eropa.
7. La Bombonera, Buenos Aires Buenes
Berbasis di lingkungan Boca di Buenos Aires, La Bombonera adalah rumah bagi Boca Juniors, tim yang membawa kita Diego Maradona. Tidak stadion tercantik di dunia tetapi perbankan curam dan kedekatan dengan lapangan menciptakan suasana yang sangat khusus. Derby lokal melawan River Plate bukan untuk hati samar.
8. Stadion Wembley, London

Ketenaran dari Wembley menyebar di luar dunia sepakbola. Awalnya dibangun pada tahun 1920-an, Stadion Wembley kembali dibuka untuk bisnis lagi pada tahun 2007 dengan biaya sebesar £ 800 juta. Ini telah menyelenggarakan Olimpiade, Piala Dunia terakhir dan final banyak klub Eropa. Sekarang memiliki kapasitas semua seater dari 90.000 dan fitur tidak hanya sepakbola, tapi olahraga lain dan acara olahraga non.
9. Stadion Azadi, Teheran

Stadion Azadi adalah rumah bagi tim nasional Iran dan memiliki kapasitas 100.000. Ini adalah tempat yang menakutkan untuk pengunjung tim dan merupakan rumah bagi dua klub sepak bola Teheran utama, Perespolis FC dan Esteghlal FC. Suasana di permainan antara kedua belah pihak pada saingan apapun Azadi (dikenal sebagai Sorkhabi) yang ditawarkan oleh kota besar derbies seluruh dunia.
10. La Casa Blanca, Quito
Estadio de Liga Deportiva Universitaria, biasa disebut La Casa Blanca adalah tanah LDU Quito . Ini adalah entri nakal dalam daftar sepuluh besar karena baru selesai pada tahun 1997. Dengan kapasitas 55.400, hanya stadion terbesar kedua di Ekuador tapi masuk sepuluh besar versi saya karena pada 2800 meter, ketinggian menganugerahkan keuntungan yang signifikan bagi tim nasional Ekuador dalam kompetisi internasional.