BERIKUT INI MERUPAKAN CONTOH PROGRAM PEMBAYARAN GAJI LENGKAP DENGAN LISTVIEW

DAN BERIKUT INI MERUPAKAN SOURCE DARI PROGRAM DI ATAS:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("No", 30, HorizontalAlignment.Left)
        lv.Columns.Add("NIK", 40, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Pegawai", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Gol", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

        No.Items.Add("1")
        No.Items.Add("2")
        No.Items.Add("3")

        Nik.Items.Add("1")
        Nik.Items.Add("2")
        Nik.Items.Add("3")

        golongan.Items.Add("1")
        golongan.Items.Add("2")
        golongan.Items.Add("3")
    End Sub
 
    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Select Case Nik.Text
            Case "1"
                namaP.Text = "Hendro"
            Case "2"
                namaP.Text = "Dian"
            Case "3"
                namaP.Text = "Jhoni"
            Case Else
                namaP.Text = ""
        End Select
    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged
        Select Case golongan.Text
            Case "1"
                gajiP.Text = "1500000"
            Case "2"
                gajiP.Text = "2500000"
            Case "3"
                gajiP.Text = "3500000"
            Case Else
                gajiP.Text = ""
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        pajak.Text = 0.05 * gajiP.Text
        gajiB.Text = Val(gajiP.Text) - Val(pajak.Text)
        Dim lst As New ListViewItem
        lst.Text = No.Text
        lst.SubItems.Add(Nik.Text)
        lst.SubItems.Add(namaP.Text)
        lst.SubItems.Add(golongan.Text)
        lst.SubItems.Add(gajiP.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(gajiB.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        lv.Items.Clear()
        No.Text = ""
        Nik.Text = ""
        namaP.Text = ""
        golongan.Text = ""
        gajiP.Text = ""
        pajak.Text = ""
        gajiB.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        MsgBox("ANDA YAKIN MAU KELUAR??")
        Me.Close()
    End Sub
End Class

DAN BERIKUT ADALAH HASIL DARI PROGRAM YANG TELAH DIBUAT:

SEKIAN DULU PROGRAM YANG DAPAT SAYA BERIKAN LEBIH DAN KURANG SAYA MINTA MAAF

SILAHKAN DI COPAS UNTUK PARA SAHABAT ANAK LAUT

SALAM ANAK LAUT

SALAM ADMIN 2

Tweet

Artikel keren lainnya:

Selamat sore sahabat setia anak laut, menjelang terbenamnya matahari tidak ada salahnya ada meluangkan waktu untuk secangkir kopi atau ngemil ditemani Blogger sederhana ANAK LAUT he he he :D. 

Ok kita langsung pada Ilmu selanjutnya yang admin ingin share.

Konfigurasi Kartu Jaringan atau dengan kata lain pengaturan Kartu jaringan yang ingin dihubungkan pada kartu (PC) jaringan lain atau peranti jaringan lain dapat anda lakukan dengan mudah. Dengan mengikuti step demi step yang akan admin jabarkan dibawah ini, namun sebelum kita turun ke TKP ada kalanya beberapa hal ini anda perhatikan terlebih dahulu karena hal ini dapat mempengaruhi langkah kerja yang akan kita laksanakan.

Ini dia para sahabat ANAK LAUT :

1. Jika anda menggunakan PC maka pastikanlah Kartu Jaringan (LAN Card) ada pada CPU (Central Processing Unit), Namun jika anda menggunakan Laptop maka hal itu tidak perlu anda lakukan pengecekkan.
2. Jika langkah pertama telah anda lakukan, langkah selanjutnya anda pastikan Driver dari Kartu Jaringan yang anda cek tadi sudah terinstal pada PC anda. Tanpa menginstal driver, Kartu Jaringan tidak akan bekerja dengan baik. Untuk melakukan pengecekkan tersebut berikut langkah langkahnya :

• Klik Start → Control Panel → lalu pilih Device Manager.
• Lihatlah window Device manager yang tampil jika ada tanda peringatan berwarna kuning maka lakukanlah penginstalan drive terhadap device yang bermasalah tersebut.
  

Jika hal diatas telah sahabat lakukan dengan benar dan juga tidak mengalami masalah, berarti sahabat siap untuk melakukan Konfigurasi Kartu Jaringan.

1. Klik Start → Control Panel 
2. Klik → Network and Sharing Center
3. Klik → Change adapter settings (untuk mengubah setting adapter)
4. Lalu double klik pada Local Area Connection 
5. Kemudian pilihlah Internet Protokol Version 4 (TCP/Ipv4) dengan mengklik 2 kali 
   ( protokol yang memungkinkan komputer anda untuk bicara dengan komputer lain di jaringan, anda perlu untuk menentukan IP Adrress, Subnet mask, Gateway)
6. Jika langkah 5 telah anda lakukan akan tampil Internet Protokol Version 4 (TCP/Ipv4) Properties. Maka anda masukkan angka pada 

• IP Address : 192.168.1.1 (sebagai server jika jaringan cilent-server atau komputer pertama jika jarigan pear to pear)
• Subnet mask : 255.255.255.0 (untuk tahap ini pada saat pengisian angka terakhir pada IP Address cukup menekan tab pada keyboard agar menghemat waktu anda)
• Default Gateway : xxx.xxx.xxx.xxx (isi jika dengan IP server atau pada komputer yang terkoneksi pada jarigan internet, hal ini berlaku pada komputer kedua namun tidak berlaku jika pada komputer pertama)
  

     7. Kemudian Klik OK, jika tidak ada masalah maka konfigurasi anda selesai dan berhasil.

Jika tahap diatas telah anda lakukan dengan benar, maka anda bisa melakukan komunikasi terhadap komputer lain yang terhubung pada komputer anda. Ok sahabat setia ANAK LAUT sampai disini dulu penjelasan untuk materi ini, jika ada yang kurang dimengerti atau kurang tepat silahkan beri komentar dibawah ini.

     Salam admin

Salam ANAK LAUT

Tweet

Artikel keren lainnya: