program Penggajian karyawan

Contoh program 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("STAF")

        JABATAN.Items.Add("Manager")

        JABATAN.Items.Add("Kabag")

        STATUS.Items.Add("MENIKAH")

        STATUS.Items.Add("BELUM MENIKAH")

        JANAK.Items.Add("1")

        JANAK.Items.Add("2")

        JANAK.Items.Add("3")

    End Sub

    Private Sub NAMA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAMA.TextChanged

    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 = "OBI MAULIGHEN"

        ElseIf NIK.Text = "002" Then

            NAMA.Text = "IRWANSYAH"

        ElseIf NIK.Text = "003" Then

            NAMA.Text = "ARTHA"

        End If

    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged

        If JABATAN.Text = "STAF" Then

            GAJI.Text = 3000000

        ElseIf JABATAN.Text = "Manager" Then

            GAJI.Text = 4000000

        ElseIf JABATAN.Text = "Kabag" Then

            GAJI.Text = 6000000

        End If

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

        NIK.Text = ""

        NAMA.Text = ""

        JABATAN.Text = ""

        GAJI.Text = ""

        STATUS.Text = ""

        JANAK.Text = ""

        TANAK.Text = ""

        TISTRI.Text = ""

        TGAJI.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 PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        TGAJI.Text = Val(GAJI.Text) + Val(TISTRI.Text) + Val(TANAK.Text)

    End Sub

    Private Sub JANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JANAK.SelectedIndexChanged

        If JANAK.Text = "1" Then

            TANAK.Text = Val(0.05) * Val(GAJI.Text) * Val(JANAK.Text)

        ElseIf JANAK.Text = "2" Then

            TANAK.Text = Val(0.05) * Val(GAJI.Text) * Val(JANAK.Text)

        ElseIf JANAK.Text = "3" Then

            TANAK.Text = Val(0.05) * Val(GAJI.Text) * Val(JANAK.Text)

        End If

    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

        If STATUS.Text = "MENIKAH" Then

            TISTRI.Text = GAJI.Text * 0.1

        ElseIf STATUS.Text = "Belum Menika" Then

            TISTRI.Text = 0

            JANAK.Text = 0

        End If

    End Sub

End Class

Read More

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

kasus pembayaran rekening listrik

Public Class Form1

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

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

        LV.Columns.Add("Jenis Pelanggan ", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Beban", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Left)

        LV.Columns.Add("harga KWH", 90, HorizontalAlignment.Left)

        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        kode.Items.Add("1")

        kode.Items.Add("2")

        kode.Items.Add("3")

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Select Case kode.Text

            Case "1"

                JPelanggan.Text = "rumah"

                Beban.Text = 25000

                KWH.Text = 3000

            Case "2"

                JPelanggan.Text = "TOKO"

                Beban.Text = 50000

                KWH.Text = 5000

            Case "3"

                JPelanggan.Text = "PABRIK"

                Beban.Text = 100000

                KWH.Text = 10000

        End Select

    End Sub

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

        Pembayaran.Text = Val(Beban.Text) + Val(KWH.Text) * Val(Pemakaian.Text)

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(JPelanggan.Text)

        lst.SubItems.Add(Beban.Text)

        lst.SubItems.Add(Pemakaian.Text)

        lst.SubItems.Add(KWH.Text)

        lst.SubItems.Add(Pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub HapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusList.Click

        LV.Items.Clear()

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click

        kode.Text = ""

        JPelanggan.Text = ""

        Beban.Text = ""

        Pemakaian.Text = ""

        Pemakaian.Text = ""

        KWH.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

Demikilahlah postingan saya  

Nama : irwansyah putra sinaga

 NPM : 14110869

Selamat Belajar Pemrograman VB NET 

Read More