Penggajian

ini Prosesnya

ini prosesnya

Public Class Form1

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

        Nik.Items.Add("PM010")

        Nik.Items.Add("PS111")

        Nik.Items.Add("KU101")

        Nik.Items.Add("GD100")

        Jabatan.Items.Add("KEPALA DIVISI")

        Jabatan.Items.Add("STAFF")

        Jabatan.Items.Add("WAKIL KEPALA")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        Jumlah_ank.Items.Add("0")

        Jumlah_ank.Items.Add("2")

        Jumlah_ank.Items.Add("1")

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

        Select Case Nik.Text

            Case "PM010"

                Nama.Text = "Sofiana Barus"

            Case "KU101"

                Nama.Text = "Linda Wati"

            Case "PS111"

                Nama.Text = "Deswin Tiyani"

            Case Else

                Nama.Text = " Susila"

        End Select

        Dim K As String

        K = Microsoft.VisualBasic.Left(Nik.Text, 2)

        If K = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf K = ("PS") Then

            Bagian.Text = "Personalia"

        ElseIf K = "KU" Then

            Bagian.Text = "Keuangan"

        Else

            Bagian.Text = "Gudang"

        End If

    End Sub

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

        Select Case Jabatan.Text

            Case "Kepala Devisit"

                Gaji_pokok.Text = "5000000"

            Case "Staf"

                Gaji_pokok.Text = "2000000"

            Case Else

                Gaji_pokok.Text = "3500000"

        End Select

        Pajak.Text = Gaji_pokok.Text * 0.1

    End Sub

    Private Sub Jumlah_ank_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_ank.KeyPress

        If e.KeyChar = Chr(13) Then

            Select Case Jumlah_ank.Text

                Case "0"

                    tnjgan_ank.Text = 0

                Case "1"

                    tnjgan_ank.Text = Gaji_pokok.Text * 0.05

                Case "2"

                    tnjgan_ank.Text = Gaji_pokok.Text * 0.1

                Case Else

                    tnjgan_ank.Text = Gaji_pokok.Text * 0.5

            End Select

        End If

        Total_gji.Text = (Gaji_pokok.Text) + Val(Tunjangan_kluarga.Text) + Val(Tunjangan_kluarga.Text) - Pajak.Text

    End Sub

    Private Sub Jumlah_ank_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah_ank.SelectedIndexChanged

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Dim tanya As String

        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)

        If tanya = vbCancel Then

            Me.Close()

        ElseIf tanya = vbNo Then

            Me.Focus()

        ElseIf tanya = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Nik.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        tnjgan_ank.Text = ""

        Tunjangan_kluarga.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        Gaji_pokok.Text = ""

        Total_gji.Text = ""

        Jumlah_ank.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"

                Tunjangan_kluarga.Text = Gaji_pokok.Text * 0.15

            Case "Tidak Menikah"

                Jumlah_ank.Text = ""

                Tunjangan_kluarga.Text = 0

        End Select

    End Sub

End Class

quis online

proses nya


prosesnya

Public Class Form1

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

        Nma_brng.Items.Add("TV32")

        Nma_brng.Items.Add("TV15")

        Nma_brng.Items.Add("TV12")

    End Sub

    Private Sub Nma_brng_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nma_brng.SelectedIndexChanged

        Select Case Nma_brng.Text

            Case "TV32"

                Harga.Text = "3800000"""

            Case "TV15"

                Harga.Text = "3500000"

            Case Else

                Harga.Text = "2500000"

        End Select

    End Sub

    Private Sub Jum_jul_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jum_jul.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Total_harga.Text = Val(Harga.Text * Jum_jul.Text)

            If Jum_jul.Text > 25000000 Then

                Discont.Text = Val(Total_harga.Text * 0.1)

            Else

                Discont.Text = 0

            End If

            Totl_Pmbyr.Text = Val(Total_harga.Text - Discont.Text)

        End If

    End Sub

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

        Total_harga.Text = Val(Harga.Text * Jum_jul.Text)

        If Jum_jul.Text > 25000000 Then

            Discont.Text = Val(Total_harga.Text * 0.1)

        Else

            Discont.Text = 0

        End If

        Totl_Pmbyr.Text = Val(Total_harga.Text - Discont.Text)

    End Sub

End

ListView

 

Listing Program listview

 

Public Class Form1

    Sub BuatTabel()

        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        Storage.View = View.Details

        Storage.GridLines = True

        Storage.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Kd_Barang.Text

        Lst.SubItems.Add(Nm_Barang.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Merk.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Total.Text)

        Storage.Items.Add(Lst)

    End Sub

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

        Kd_Barang.Items.Add("TS001")

        Kd_Barang.Items.Add("TS002")

        Kd_Barang.Items.Add("VG001")

        Kd_Barang.Items.Add("VG002")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)

        If x = "TS" Then

            Merk.Text = "Toshiba"

        ElseIf x = "VG" Then

            Merk.Text = "V-Gen"

        End If

        x = Microsoft.VisualBasic.Right(Kd_Barang.Text, 3)

        If x = "001" Then

            Nm_Barang.Text = "Flashdisk 4GB"

        ElseIf x = "002" Then

            Nm_Barang.Text = "Flashdisk 2GB"

        End If

        Select Case Kd_Barang.Text

            Case "TS001"

                Harga.Text = "105000"

            Case "TS002"

                Harga.Text = "75000"

            Case "VG001"

                Harga.Text = "90000"

            Case "VG002"

                Harga.Text = "60000"

        End Select

    End Sub

    Private Sub Btn_Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Tambah.Click

        IsiTabel()

        Kd_Barang.Text = ""

        Nm_Barang.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress

        Total.Text = Harga.Text * Val(Jumlah.Text)

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        Storage.Items.Clear()

    End Sub

    Private Sub Btn_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Back.Click

        Kd_Barang.Text = ""

        Nm_Barang.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub