Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Desainlah Form Berikut ini :

Ketiklah Koding Dibawan ini :

Public Class online_quis

    Private Sub online_quis_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Pegawai", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Golongan", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Pokok", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Bersih", 150, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

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

        cmbGolongan.Items.Add("1")
        cmbGolongan.Items.Add("2")
        cmbGolongan.Items.Add("3")
    End Sub

    Private Sub cmbNIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNIK.SelectedIndexChanged
        If cmbNIK.Text = "1" Then
            txtnama.Text = "Hendro"
        ElseIf cmbNIK.Text = "2" Then
            txtnama.Text = "Dian"
        ElseIf cmbNIK.Text = "3" Then
            txtnama.Text = "Jhoni"
        End If
    End Sub

    Private Sub cmbJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGolongan.SelectedIndexChanged
        If cmbGolongan.Text = "1" Then
            txtGajiPokok.Text = 1500000
        ElseIf cmbGolongan.Text = "2" Then
            txtGajiPokok.Text = 2500000
        ElseIf cmbGolongan.Text = "3" Then
            txtGajiPokok.Text = 3500000
        End If
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        txtPajak.Text = 0.05 * Val(txtGajiPokok.Text)
        txtGajiBersih.Text = Val(txtGajiPokok.Text) - Val(txtPajak.Text)
    End Sub

    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisi.Click
        Dim lst As New ListViewItem
        lst.Text = cmbNIK.Text
        lst.SubItems.Add(txtnama.Text)
        lst.SubItems.Add(cmbGolongan.Text)
        lst.SubItems.Add(txtGajiPokok.Text)
        lst.SubItems.Add(txtPajak.Text)
        lst.SubItems.Add(txtGajiBersih.Text)
        lv.Items.Add(lst)

        Call btnBatal_Click(sender, e)
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        cmbNIK.Text = ""
        txtnama.Text = ""
        cmbGolongan.Text = ""
        txtGajiPokok.Text = ""
        txtPajak.Text = ""
        txtGajiBersih.Text = ""
    End Sub
    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        End
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        lv.Items.Clear()
    End Sub
End Class

Hasil Setelah di proses

 

Hasil setelah di isi ke Listview

Demikianlah postingan saya ini semoga bermanfaat...  

Selamat belajar ea????

mesran.net

Nama     : Edisokhi Waruwu

NPM     : 14110114

Kelas    : TI-M1409