Pemrograman 6

Nama TextBox 1 : nip
Nama TextBox 2 : nama
Nama TextBox 3 : gapok
Nama TextBox 4 : NJ
Nama TextBox 5 : TJ
Nama TextBox 6 : TI
Nama TextBox 7 : JA
Nama TextBox 8 : TA
Nama TextBox 9 : gaber
Nama ComboBox 1 : gol
Nama ComboBox 2 : KJ
Nama CheckBox 1 : pria
Nama CheckBox 1 : wanita
Nama RadioButton 1 : belum
Nama RadioButton 2 : nikah
Nama RadioButton 3 : duda
Nama RadioButton 4 : janda

Syntack
Public Class Kasus_6

    Private Sub gol_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gol.Click
        If gol.Text = "III/A" Then
            gapok.Text = 800000
        ElseIf gol.Text = "III/B" Then
            gapok.Text = 900000
        ElseIf gol.Text = "IV/A" Then
            gapok.Text = 1000000
        ElseIf gol.Text = "IV/B" Then
            gapok.Text = 1500000
        Else
            gapok.Text = 0
        End If
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        If gol.Text = "III/A" Then
            gapok.Text = 800000
        ElseIf gol.Text = "III/B" Then
            gapok.Text = 900000
        ElseIf gol.Text = "IV/A" Then
            gapok.Text = 1000000
        ElseIf gol.Text = "IV/B" Then
            gapok.Text = 1500000
        Else
            gapok.Text = 0
        End If
    End Sub

    Private Sub KJ_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KJ.Click
        If KJ.Text = "Kadin" Then
            NJ.Text = "Kepala Dinas"
            TJ.Text = 1000000
        ElseIf KJ.Text = "Wakadin" Then
            NJ.Text = "Wakil Kepala Dinas"
            TJ.Text = 800000
        ElseIf KJ.Text = "Kabid" Then
            NJ.Text = "Kepala Bidang"
            TJ.Text = 750000
        ElseIf KJ.Text = "Kasubag" Then
            NJ.Text = "Kepala Sub Bagian"
            TJ.Text = 600000
        Else
            NJ.Text = "-"
            TJ.Text = 0
        End If
    End Sub

    Private Sub KJ_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KJ.SelectedIndexChanged
        If KJ.Text = "Kadin" Then
            NJ.Text = "Kepala Dinas"
            TJ.Text = 1000000
        ElseIf KJ.Text = "Wakadin" Then
            NJ.Text = "Wakil Kepala Dinas"
            TJ.Text = 800000
        ElseIf KJ.Text = "Kabid" Then
            NJ.Text = "Kepala Bidang"
            TJ.Text = 750000
        ElseIf KJ.Text = "Kasubag" Then
            NJ.Text = "Kepala Sub Bagian"
            TJ.Text = 600000
        Else
            NJ.Text = "-"
            TJ.Text = 0
        End If
    End Sub

    Private Sub pria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pria.CheckedChanged
        If pria.Checked = True And nikah.Checked = True Then
            TI.Text = Val(gapok.Text) * 0.25
            JA.Enabled = True
            TA.Enabled = False
            TI.Enabled = False
        ElseIf pria.Checked = True And duda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        Else
            TA.Text = 0
            JA.Text = 0
            TA.Enabled = False
            JA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        End If
        If pria.Checked = True Then
            wanita.Checked = False
        End If
        duda.Enabled = True
        janda.Enabled = False
        JA.Focus()
    End Sub

    Private Sub wanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wanita.CheckedChanged
        If wanita.Checked = True And janda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf wanita.Checked = True And nikah.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        Else
            TA.Text = 0
            JA.Text = 0
            TA.Enabled = False
            JA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        End If
        If wanita.Checked = True Then
            pria.Checked = False
        End If
        duda.Enabled = False
        janda.Enabled = True
        JA.Focus()
    End Sub

    Private Sub TA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TA.TextChanged
       
        gaber.Text = Val(gapok.Text) + Val(TJ.Text) + Val(TI.Text) + Val(TA.Text)
    End Sub

    Private Sub gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gapok.TextChanged
        gaber.Text = Val(gapok.Text) + Val(TJ.Text) + Val(TI.Text) + Val(TA.Text)
    End Sub

    Private Sub TI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TI.TextChanged
        gaber.Text = Val(gapok.Text) + Val(TJ.Text) + Val(TI.Text) + Val(TA.Text)
    End Sub

    Private Sub TJ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TJ.TextChanged
        gaber.Text = Val(gapok.Text) + Val(TJ.Text) + Val(TI.Text) + Val(TA.Text)
    End Sub

    Private Sub belum_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles belum.CheckedChanged
        If wanita.Checked = True And janda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf wanita.Checked = True And nikah.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf pria.Checked = True And nikah.Checked = True Then
            TI.Text = Val(gapok.Text) * 0.25
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf pria.Checked = True And duda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        Else
            TA.Text = 0
            JA.Text = 0
            TA.Enabled = False
            JA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        End If
        JA.Focus()
    End Sub

    Private Sub nikah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nikah.CheckedChanged
        If pria.Checked = True And nikah.Checked = True Then
            TI.Text = Val(gapok.Text) * 0.25
            JA.Enabled = True
            TA.Enabled = False
            TI.Enabled = False
        ElseIf pria.Checked = True And duda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf wanita.Checked = True And janda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf wanita.Checked = True And nikah.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        Else
            TA.Text = 0
            JA.Text = 0
            TA.Enabled = False
            JA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        End If
        JA.Focus()
    End Sub

    Private Sub duda_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles duda.CheckedChanged
        If pria.Checked = True And nikah.Checked = True Then
            TI.Text = Val(gapok.Text) * 0.25
            JA.Enabled = True
            TA.Enabled = False
            TI.Enabled = False
        ElseIf pria.Checked = True And duda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        Else
            TA.Text = 0
            JA.Text = 0
            TA.Enabled = False
            JA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        End If
        duda.Enabled = True
        janda.Enabled = False
        JA.Focus()
    End Sub

    Private Sub JA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JA.TextChanged
        On Error Resume Next
        If JA.Text >= 2 Then
            TA.Text = Val(gapok.Text) * 0.3
        ElseIf JA.Text >= 1 Then
            TA.Text = Val(gapok.Text) * 0.15
        Else
            TA.Text = 0
        End If
    End Sub

    Private Sub janda_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles janda.CheckedChanged
        If wanita.Checked = True And janda.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        ElseIf wanita.Checked = True And nikah.Checked = True Then
            JA.Enabled = True
            TA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        Else
            TA.Text = 0
            JA.Text = 0
            TA.Enabled = False
            JA.Enabled = False
            TI.Text = 0
            TI.Enabled = False
        End If
        JA.Focus()
    End Sub
End Class

LINEAR PROGRAMMING

SEJARAH

            Ide Linear Programming pertama kali dicetuskan oleh seorang ahli matematika asal Rusia bernama L.V. Kantorivich dalam bukunya yang berjudul ”MATHEMATICAL METHODS IN THE ORGANIZATION AND PLANNING OF PRODUCTION”. Dengan buku ini, ia telah merumuskan pertama kalinya persoalan “Linear Programming”. Namun, cara-cara pemecahan persoalan in di Rusia tidak berkembang dengan baik dan ternyata para ahli di negara Barat dan AS yang menggunakan cara ini dimanfaatkan dengan baik.

            Pada tahun 1947, seorang ahli matematika dari AS yang bernama George B. Dantzig menemukan suatu cara untuk memecahkan persoalan-persoalan linear programming. Cara pemecahan ini dinamakan ” Simplex Method”, yang diuraikan dalam bukunya ”LINEAR PROGRAMMING AND EXTENTION”. Selanjutnya teori ini berkembang pesat sekali terutama dibidang kemiliteran yang menyangkut optimisasi dalam strategi perang dan di bidang-bidang lainnya.

LINEAR PROGRAMMING (LP)

            Linear programming adalah teknik matematika yang dirancang untuk membantu manager dalam merencanakan dan membuat keputusan dalam mengalokasikan sumber daya yang terbatas untuk mencapai tujuan perusahaan.

            Linear Programming memiliki empat ciri khusus, yaitu :

1.      Penyelesaian masalah mengarah pada pencapaian tujuan maksimisasi atau minimisasi.

2.      Kendala yang ada membatasi tingkat pencapaian tujuan

3.      Ada beberapa alternatif penyelesaian

4.      Hubungan matematis bersifat linier

Untuk membentuk suatu model linear programming perlu diterapkan asumsi-asumsi dasar, yaitu :

1.      Linearity

Fungsi obyektif dan kendala haruslah merupakan fungsi linier dan variabel keputusan. Hal ini akan mengakibatkan fungsi bersifat proporsional dan additif, misalnya untuk memproduksi 1 kursi dibutuhkan waktu 5 jam, maka untuk memproduksi 2 kursi dibutuhkan waktu 10 jam.

2.      Divisibility

Nilai variabel keputusan dapat berupa bilangan pecahan. Apabila diinginkan solusi berupa bilangan bulat (integer), aka harus digunakan metoda untuk integer programming.

3.      Non negativity variable

Nilai variabel keputusan haruslah tidak negatif ( ³ 0)

4.      Certainty

Semua konstanta (parameter) diasumsikan mempunyai nilai yang pasti. Bila nilai-nilai parameternya probabilistik, maka harus digunakan formulasi pemrograman masalah stokastik.

            Pada umumnya persoalan-persoalan yang dipecahkan dalam linear programming, yaitu :

a.       Allocation Problem

Ini merupakan pemecahan dalam alokasi bahan-bahan / barang dalam produksi

b.      Blending Problem

Ini merupakan cara pemecahan persoalan dari berbagai bahan campuran yang masing-masing unit dipecahkan dan digabung (blending) untuk menghasilkan output.

c.       Persoalan Transportasi

Ini merupakan pemecahan persoalan yang menyangkut adanya unit/barang/pasokan dan lain-lain pada beberapa tempat yang akan dipindahkan ke beberapa tempat lainnya. 

d.      Persoalan Personil

Ini merupakan penempatan personil sesuai dengan jabatan/tempatnya (assigment problem).

Akun atau Perkiraan

1. Pengertian Akun Kegiatan usaha dalam suatu perusahaan setiap harinya terkadang sangat rumit dan kompleks ,baik yang terkait dengan transaksi maupun aktivitas lainnya, dan tentu jenis dan jumlahnya begitu banyak. Semakin besar suatu perusahaan maka akan semakin banyak pula dan beragam pula transaksi yang terjadi. Untuk itu supaya pencatatan setiap transaksi keuangan dapat dilakukan dengan mudah perlu dibukukan menurut jenis masing-masing. Misalnya setiap perusahaan menerima dan mengeluarkan uang diperlukan satu akun atau perkiraan yang disebut Kas.  Jadi apa yang dimaksud dengan akun atau perkiraan? Akun atau perkiraan (Account) adalah suatu formulir yang digunakan sebagai tempat mencatat transaksi keuangan yang sejenis dan dapat merubah komposisi harta, kewajiban dan modal perusahaan. 2.  Penggolongan Akun Penggolongan akun atau perkiraan dapat dikelompokan dalam dua kelompok yaitu : a.    Akun Riil Akun riil sering dikenal juga akun neraca karena menunjukkan keadaan akun-akun yang ada di neraca, seperti harta, utang dan modal. Sepanjang perusahaan masih melakukan aktivitas usaha akun riil ini bersifat permanen karena berkelanjutan dari satu aperiode akuntansi ke periode berikutnya. b.    Akun nominal Akun nominal sering disebut juga dengan akun sementara karena sifatnya sementara yang artinya akun-akun ini hanya berlaku dalam satu periode akuntansi.  Akun-akun yang digunakan dalam akuntansi digolongkan sebagai berikut : a.    Aktiva atau Harta (Asset) b.    Kewajiban atau Utang (Liabilities) c.    Modal (Capital) d.    Pendapatan (Income atau Revenue) e.    Beban (Expense) a.    Harta (Aktiva) Harta adalah kekayaan yang berupa benda berwujud dan tidak berwujud, mempunyai nilai uang serta mendatangkan manfaat pada masa yang akan datang. Harta dikelompokan harta lancar dan harta tetap. Berikut penggolongan harta : 1)    Harta Lancar (Current Assets) adalah uang kas dan aktiva lain yang diharapkan dapat dicairkan menjadi uang kas atau dapat dijual dalam jangka waktu kurang dari satu tahun. Yang termasuk harta lancar adalah Kas, Surat berharga, wesel tagih, piutang usaha, persediaan barang dagang, beban-beban dibayar dimuka, pendapatan yang masih harus diterima, perlengkapan dan investasi jangka panjang. 2)   Harta Tetap (Fixed Assets) adalah kekayaan yang diperoleh dalam bentuk siap pakai atau dibangun sendiri. Harta tetap atau aktiva tetap terdiri dari harta atau aktiva tetap berwujud (tangible assets) dan harta atau aktiva tetap tidak berwujud (itangible assets). Yang termasuk aktiva tetap berwujud antara lain, peralatan, mesin, kendaraan, bangunan dan tanah. Sedangkan aktiva tidak berwujud misalnya, hak paten, hak cipta, goodwill, cap dan merek dagang, franchise dan lain-lain. b.    Kewajiban atau Utang (Liabilities) Kewajiban atau Utang (liabilities) adalah keharusan membayar kepada pihak lain dalam jangka waktu tertentu. Kewajiban atau utang dapat digolongkan sebagai berikut : 1)  Kewajiban atau Utang Lancar (Current Liabilities) adalah kewajiban yang akan segera dilakukan pembayarannya atau kurang dari satu tahun. Terdiri dari utang wesel, utang usaha, utang gaji, beban-beban yang masih harus dibayar, pendapatan diterima dimuka. 2)    Kewajiban atau Utang Jangka Panjang (Long Terms Liabilities) adalah kewajiban yang akan jatuh tempo dalam waktu yang cukup lama atau lebih dari satu tahun, misal utang obligasi, utang hipotek, utang bank dan utang jangka panjang lainnya. c.    Modal atau Ekuitas (Equity) Modal adalah hak kekayaan pemilik atau kekayaan bersih. Di dalam neraca, modal sangat tergantung pada bentuk perusahaannya, seperti : pada perusahaan perseorangan modalnya berbentuk modal pribadi pada perusahaan persekutuan modal berbentuk modal sekutu atau persero pada perseroan terbatas modal merupakan modal pemegang saham pada koperasi modalnya dikenal dengan modal anggota berupa simpanan pokok dan simpanan wajib.                            d.    Pendapatan (revenue) Pendapatan adalah penambahan atas aktiva dan modal serta penurunan kewajiban suatu perusahaan sebagai akibat dari penjualan barang atau jasa, peminjaman uang serta aktivitas lainnya dalam satu periode. Penggolongan pendapatan dalam perusahaan adalah sebagai berikut: 1)       Pendapatan operasi adalah pendapatan yang diperoleh perusahaan dalam menjalankan kegiatan utama yang menjadi tujuan utama perusahaan. Misalnya, pendapatan jasa, dan penjualan barang dagang.    2)       Pendapatan nonoperasi adalah pendapatan yang diperoleh selain dari kegiatan utama perusahaan, yan sifatnya tidak secara langsung. Misalnya pendapatan bunga, pendapatan deviden, pendapatan komisi, pendapatan sewa dan pendapatan lainnya. e.    Beban (Expense) Beban adalah pengorbanan yang dikeluarkan perusahaan untuk memperoleh manfaat ekonomi di masa depan. Penggolongan beban sebagai berikut : 1)      Beban Usaha (operation expense) yaitu beban yang dikeluarkan untuk kegiatan utama perusahaan. Misalnya beban gaji, beban sewa, beban iklan, beban perlengkapan, beban asuransi 2)      Beban diluar usaha (other expense) yaitu beban yang dikeluarkan namun tidak berkaitan langsung dengan kegiatan utama perusahaan. Contohnya beban bunga.