Penentuan Harga Permintaan dan Penawaran Permintaan serta keseimbangan

Permintaan adalah keinginan konsumen membeli suatu barang pada berbagai tingkat harga selama periode waktu tertentu. Singkatnya permintaan adalah banyaknya jumlah barang yang diminta pada suatu pasar tertentu dengan tingkat harga tertentu pada tingkat pendapatan tertentu dan dalam periode tertentu.
Faktor-faktor yang mempengaruhi permintaan:

1. Harga barang itu sendiri
Jika harga suatu barang semakin murah, maka permintaan terhadap barang itu bertambah.

2. Harga barang lain yang terkait
Berpengaruh apabila terdapat 2 barang yang saling terkait yang keterkaitannya dapat bersifat subtitusi (pengganti) dan bersifat komplemen (penggenap).

3. Tingkat pendapatan perkapita
Dapat mencerminkan daya beli. Makin tinggi tingkat pendapatan, daya beli makin kuat, sehingga permintaan terhadap suatu barang meningkat.

4.Selera atau kebiasaan
Tinggi rendahnya suatu permintaan ditentukan oleh selera atau kebiasaan dari pola hidup suatu masyarakat.

5.Jumlah penduduk
Semakin banyak jumlah penduduk yang mempunyai selera atau kebiasaan akan kebutuhan barang tertentu, maka semakin besar permintaan terhadap barang tersebut.

6.Perkiraan harga di masa mendatang
Bila kita memperkirakan bahwa harga suatu barang akan naik, adalah lebih baik membeli barang tersebut sekarang, sehingga mendorong orang untuk membeli lebih banyak saat ini guna menghemat belanja di masa depan.

7.Distribusi pendapatan
Tingkat pendapatan perkapita bisa memberikan kesimpulan yang salah bila distribusi pendapatan buruk. Jika distribusi pendapatan buruk, berarti daya beli secara umum melemah, sehingga permintaan terhadap suatu barang menurun.

8.Usaha-usaha produsen meningkatkan penjualan.
Bujukan para penjual untuk membeli barang besar sekali peranannya dalam mempengaruhi masyarakat. Usaha-usaha promosi kepada pembeli sering mendorong orang untuk membeli banyak daripada biasanya.

Hukum Permintaan
Hukum permintaan pada hakikatnya merupakan suatu hipotesis yang menyatakan :
“Hubungan antara barang yang diminta dengan harga barang tersebut dimana hubungan berbanding terbalik yaitu ketika harga meningkat atau naik maka jumlah barang yang diminta akan menurun dan sebaliknya apabila harga turun jumlah barang meningkat.”

Kurva Permintaan
Kurva Permintaan dapat didefinisikan sebagai :
“Suatu kurva yang menggambarkan sifat hubungan antara harga suatu barang tertentu dengan jumlah barang tersebut yang diminta para pembeli.” Kurva permintaan berbagai jenis barang pada umumnya menurun dari kiri ke kanan bawah. Kurva yang demikian disebabkan oleh sifat hubungan antara harga dan jumlah yang diminta yang mempunyai sifat hubungan terbalik.


Teori Permintaan, Dapat dinyatakan :
“Perbandingan lurus antara permintaan terhadap harganya yaitu apabila permintaan naik, maka harga relatif akan naik, sebaliknya bila permintaan turun, maka harga relatif akan turun.”

Faktor-faktor yang dapat menggeser kurva permintaan
- Faktor harga
Perubahan sepanjang kurva permintaan berlaku apabila harga barang yang diminta menjadi makin tinggi atau makin menurun.



- Faktor bukan harga
Kurva permintaan kan bergerak keka Perubahan sepanjang kurva permintaan berlaku apabila harga barang yang diminta menjadi makin tinggi atau makin menurun.nan atau kekiri apabila terdapat perubahan-perubahan terhadap permintaan yang ditimbulkan oleh factor-faktor bukan harga, sekiranya harga barang lain, pendapatan para pembeli dan berbagai faktor bukan harga lainnya mengalami perubahan, maka perubahan itu akan menyebabkan kurva permintaan akan pindah ke kanan atau ke kiri.



Teori Penawaran
Penawaran adalah jumlah barang yang produsen ingin tawarkan atau jual pada bebrbagai tingkat harga selama satu periode waktu tertentu. Faktor-faktor yang mempengaruhi penawaran:

1. Harga barang itu sendiri
Jika harga suatu barang naik, maka produsen cenderung akan menambah jumlah barang yang dihasilkan. Hal ini kembali lagi pada hokum penawaran.

2. Harga barang lain yang terkait
Apabila harga barang subtitusi naik, maka penawaran suatu barang akan bertambah, dan sebaliknya. Sedangkan untuk barang complement, dapat dinyatakan bahwa apabila harga barang komplemen naik, maka penawaran suatu barang berkurang, atau sebaliknya.

3. Harga faktor produksi
Kenaikan harga faktor produksi akan menyebabkan perusahaan memproduksi outputnya lebih sedikit dengan jumlah anggaran yang tetap yang nantinya akan mengurangi laba perusahaan sehingga produsen akan pindah ke industry lain dan akan mengakibatkan berkurangnya penwaran barang.

4. Biaya produksi
Kenaikan harga input juga mempengaruhi biaya produksi. Bila biaya produksi meningkat, maka produsen akan menbgurangi hasil produksinya, berarti penawaran barang berkurang.

5. Teknologi produksi
Kemajuan teknologi menyebabkan penurunan biaya produksi, dan menciptakan barang-barang baru sehingga menyebabkan kenaikan dalam penawaran barang.

6. Jumlah pedagang/penjual
Apabila jumlah penjual suatu produk tertentu semakin banyak, maka penawaran barang tersebut akan bertambah.

7. Tujuan perusahaan
Tujuan perusahaan adalah memaksimumkan laba buka hasil produksinya. Akibatnya tiap produsen tidak berusaha untuk memanfaatkan kapasitas produksinya secara malksimum, tetapi akan menggunakannya pada tingkat produksi yang akan memberikan keuntungan maksimum.

8. Kebijakan pemerintah
Kebijakan pemerintah untuk mengurangi komoditas impor menyebabkan supply dan keperluan akan kebutuhan tersebut dipenuhi sendiri sehingga dapat meningktakan penawaran.

Hukum Penawaran
“Semakin tinggi harga suatu barang, semakin banyak jumlah barang tersebut akan ditawarkan oleh para penjual. Sebaliknya, makin rendah harga suatu barang, semakin sedikit jumlah barang tersebut yang ditawarkan.”

Kurva Penawaran
Kurva penawaran dapat didefinisikan sebagai :
“Yaitu suatu kurva yang menunjukkan hubungan diantara harga suatu barang tertentu dengan jumlah barang tersebut yang ditawarkan”.
- Kalau penawaran bertambah diakibatkan oleh faktor-faktor di luar harga, maka supply bergeser ke kiri atas.
- Kalau berkurang kurva supply bergeser ke kiri atas.
- Terbentuknya harga pasar ditentukan oleh mekanisme pasar.


 

Teori Penawaran
Yaitu teori yang menerangkan sifat penjual dalam menawarkan barang yang akan dijual.
Faktor-faktor yang dapat menggeser kurva penawaran
- Kalau penawaran bertambah diakibatkan oleh faktor-faktor di luar harga, maka supply bergeser ke kiri atas.
- Kalau berkurang kurva supply bergeser ke kiri atas
- Terbentuknya harga pasar ditentukan oleh mekanisme pasar


Keseimbangan permintaan dan penawaran
Dalam ilmu ekonomi, harga keseimbangan atau harga ekuilibrium adalah harga yang terbentuk pada titik pertemuan kurva permintaan dan kurva penawaran. Terbentuknya harga dan kuantitas keseimbangan di pasar merupakan hasil kesepakatan antara pembeli (konsumen) dan penjual (produsen) di mana kuantitas yang diminta dan yang ditawarkan sama besarnya. Jika keseimbangan ini telah tercapai, biasanya titik keseimbangan ini akan bertahan lama dan menjadi patokan pihak pembeli dan pihak penjual dalam menentukan harga.

Dengan kata lain Harga keseimbangan adalah harga dimana baik konsumen maupun produsen sama-sama tidak ingin menambah atau mengurangi jumlah yang dikonsumsi atau dijual. Permintaan sama dengan penawaran. Jika harga dibawah harga keseimbangan, terjadi kelebihan permintaan. Sebab permintaan akan meningkat, dan penawaran menjadi berkurang. Sebaliknya jika harga melebihi harga keseimbangan, terjadi kelebihan penawaran. Jumlah penawaran meningkat, jumlah permintaan menurun.

Perubahan Keseimbangan Pasar
Perubahan keseimbangan pasar terjadi bila ada perubahaan di sisi permintaan dan atau penawaran. Jika faktor yang menyebabkan perubahan adalah harga, keseimbangan akan kembali ke titik awal. Tetapi jika yang berubah adalah faktor-faktor ceteris paribus seperti teknologi untuk sisi penawaran, atau pendapatan untuk sisi permintaan, keseimbangan tidak kembali ke titik awal.


a. Jika harga berubah, terjadi kelebihan penawaran yang menyebabkan harga turun kembali ke Po. Titik keseimbangan tetap Eo.
b. Kurva penawaran bergeser ke kanan karena perubahan teknologi. Titik keseimbangan bergeser dari Eo ke E1.
c. Kurva permintaan bergeser ke kanan karena perubahan pendapatan. Titik keseimbangan bergeser dari Eo ke E1.

LA linux c minggu kedua

LAPORAN AKHIR

                NAMA                                   : JUSTIANUS PANJAITAN

                NPM                                                       : 18111336

                KELAS                                  : 2KA13

                TANGGAL PRAKTIKUM : 04 April  2013

                MATERI                                               : KONDISI PADA LC

                PARAF ASISTEN                                :

                ASISTEN BARIS                                : SABRINA

                KETUA ASISTEN                               : DARWIN

               

               

                                                                                                                                                               

                                                       LABORATORIUM SISTEM INFORMASI

                                                                UNIVERSITAS GUNADARMA

                                                                             ATA 2011/2012

LOGIKA:

Include stdio.h     :  berkas yang berisi definisi-definisi untuk masuk/keluarnya data

Return 0                : Return value pada fungsi main berguna untuk memberitahukan sistem operasi bahwa                                                    program tersebut sukses dilaksanakan atau tidak

If-else                     :  digunakan untuk melakukan operasi percabangan  bersyarat.

{                              : tanda dimulainya sebuah fungsi. 

}                              : tanda penutup fungsi program

Scanf                     :  berguna untuk membaca masukkan data.

Switch-case           : Untuk melakukan pengambilan keputusan dimana alternative atau pilihannya ada banyak kemungkinan

Break                     : Perintah pengontrol alur program, berfungsi utnuk keluar dari satu blok kondisi ataupun iterasi.

Default                  : label yang digunakan atau dieksekusi apabila label case tidak ada yang memenuhi.

Int                           : tipe data yang digunakan untuk variabel yang ditentukan adalah integer.

Main ()                   : fungsi main () yang menjadi inti dari program dan merupakan awal dan akhir dari eksekusi                           program.

Printf                      : baris yang memerintahkan komputer untuk mengeluarkan tulisan di dalam “” ke layar

%d (pada printf) : berfungsi untuk menampilkan data dengan tipe integer.

kondisi pada LC

                                                            LAPORAN AKHIR

            NAMA                                    : JUSTIANUS PANJAITAN

            NPM                                       : 18111336

            KELAS                                   : 2KA13

            TANGGAL PRAKTIKUM    : 28 MARET 2013

            MATERI                                 : KONDISI PADA LC

            PARAF ASISTEN                  :

            ASISTEN BARIS                   :

            KETUA ASISTEN                 :

           

           

                                                                                                                                                               

                                                LABORATORIUM SISTEM INFORMASI

                                      UNIVERSITAS GUNADARMA

                                                ATA 2011/2012

LOGIKA:

Stdio.h             : merupakan singkatan dari standar input output.

Printf               : berfungsi untuk menampilkan hasil dengan pengkodean

String kontrol   : berupa keterangan beserta penentuan format

Int                    : tipe data

Main()              : inti dati program/awal dan akhir dari eksekusi program

Scanf(%s)        : kode format atau sebagai tulisan yang diketikan

Return 0           : untuk memberitahukan sistem operasi bahasa program  itu sukses dilaksanakan atau                         atau tidak.

soal latihan matsi 2

Multiband enterprises adalah suatu perusahaan yang memproduksi dua macam produk, yaitu radio portabel (PR) dan radio citizen band (CB). Manajer pemasaran menyatakan bahwa perusahaan selalu dapat menjual semua produk dihasilkan. Selanjutnya sang manajer pemasaran ini bertanya ke manajer operasi tentang besarnya kapasitas produksi/bulan. Manajer operasi menyatakan bahwa kapasitas output tergantung produk mana yang diproduksi. Selanjutnya manajer operasi menyatakan bahwa ada 3 jenis pekerjaan dilakukan dalam pembuatan produk radio tersebut, yaitu subbassembly, assembly dan inspeksi. Kedua produk tersebut membutuhkan waktu pengerjaan yang berbeda untuk setiap jenis pekerjaan tadi. Jadi kapasitas produksinya tergantung pada produk mana yang akan diproduksi.
Waktu yang tersedia untuk pekerjaan subassembly setiap bulannya adalah 326 jam, untuk assembly adalah 354 jam dan inspeksi adalah 62 jam. Sedangkan setiap unit radio CB membutuhkan 0,4 jam untuk pekerjaan subassembly, 0,5 jam untuk assemblya dan 0,05 jam untuk inspeksi. Radio portable untuk setiap unitnya membutuhkan waktu 0,5 jam untuk pekerjaan subassembly, 0,3 jam untuk assembly dan 0,1 jam inspeksi. Wakil direktur menyatakan bahwa untuk setiap CB yang terjual diperoleh keuntungan sebesar $50 dan untuk setiap PR didapat $40. Jadi beberapa kapasitas output dari multiband setiap bulannya (beberapa CB dan PR yang harus diproduksi) agar keuntungan yang diperoleh sebesar mungkin?

Cara penyelesaian :
Langkah pertama

Untuk menyelesaikan contoh kasus diatas, hal pertama yang dilakukan adalah membuat model matematikanya.
0,5 x1 + 2 x2
Sumber daya (z) adalah memaksimalkan jumlah produk
Max z = 50 x1 + 40 x2
Kendala =
0,4 x1 + 0,5 x2
≤326
0,5 x1 + 0,3 x2≤ 354
0,05 x1 + 0,1 x2≤ 62
x1, x2 ≥0

Langkah kedua
Pengubahan bentuk baku
Z = 50 x1 + 40 x2 + 0 S1 + 0 S2 + 0 S3
0,4 x1 + 0,5 x2 + S1 = 326
0,5 x1 + 0,3 x2 + S1= 354
0,05 x1 + 0,1 x2 + S1 = 62 

Kolom kerja adalah nilai negative terbesar

Baris pivot adalah perbandingan nilai solusi dengan nilai pada kolom kerja.

Kemudian rubah nilai pada baris pivot dengan cara membaginya dengan 0,5 (nilai pivot/ perpotongan antara x dan S.

Lakukan iterasi sampai baris pertama pada tabel tidak ada nilai negative.

Berikut adalah perhitungannya dengan menggunakan VB.

Kolom kerja adalah nilai negative terbesar

Baris pivot adalah perbandingan nilai solusi dengan nilai pada kolom kerja.

Kemudian rubah nilai pada baris pivot dengan cara membaginya dengan 0,5 (nilai pivot/ perpotongan antara x dan S.

Lakukan iterasi sampai baris pertama pada tabel tidak ada nilai negative.

Berikut adalah perhitungannya dengan menggunakan VB.

 

Berikut source coding lengkapnya :

Private Sub Command1_Click()

'txt_cb.text = NK3

'txt_pr.text = NK2

If s2_cb.Caption = "CB" Then

    txt_cb.Text = NK3.Text

End If

   

            If s1_pr.Caption = "PR" Then

              txt_pr.Text = NK2

            End If

           

                If Label19.Caption = "CB" Then

                    txt_cb.Text = NK4

                End If

           

                        If Label19.Caption = "PR" Then

                            txt_pr.Text = NK4

                        End If

End Sub

'

Private Sub DISS_Click()

'kolom pivot

If Int(X1A) < Int(X2A) Then

kk1 = X1A

KK2 = X1B

KK3 = X1C

KK4 = X1D

Label21.Caption = "CB"

VGANTI_BP = "CB"

    Else

        kk1 = X2A

        KK2 = X2B

        KK3 = X2C

        KK4 = X2D

        Label22.Caption = "PR"

        VGANTI_BP = "PR"

    End If

   

     'mencari baris pivot

    If KK2 = 0 Then

            a = 0

            Else

        a = NK2 / KK2

          If KK3 = 0 Then

              b = 0

            Else

                b = NK3 / KK3

            If KK4 = 0 Then

                c = 0

             Else

                c = NK4 / KK4

           

        End If

    End If

    End If

      

        

        'mencari baris baru

    If a < b And b < c And a < c Then

    x = a

    f = KK2

        P = Z2 / f

        Q = X1B / f

        R = X2B / f

        s = S1B / f

        T = S2B / f

        U = S3B / f

        V = NK2 / f

    Z1.Text = Z1 - (kk1 * P)

    X1A.Text = X1A - (kk1 * Q)

    X2A.Text = X2A - (kk1 * R)

    S1A.Text = S1A - (kk1 * s)

    S2A.Text = S2A - (kk1 * T)

    S3A.Text = S3A - (kk1 * U)

    NK1.Text = NK1 - (kk1 * V)

        Z3.Text = Z1 - (KK3 * P)

        X1C.Text = X1C - (KK3 * Q)

        X2C.Text = X2C - (KK3 * R)

        S1C.Text = S1C - (KK3 * s)

        S2C.Text = S2C - (KK3 * T)

        S3C.Text = S3C - (KK3 * U)

        NK3.Text = NK3 - (KK3 * V)

    Z4.Text = Z4 - (KK4 * P)

    X1D.Text = X1D - (KK4 * Q)

    X2D.Text = X2D - (KK4 * R)

    S1D.Text = S1D - (KK4 * s)

    S2D.Text = S2D - (KK4 * T)

    S3D.Text = S3D - (KK4 * U)

    NK4.Text = NK4 - (KK4 * V)

        Z2.Text = P

        X1B.Text = Q

        X2B.Text = R

        S1B.Text = s

        S2B.Text = T

        S3B.Text = U

        NK2.Text = V

  s1_pr.Caption = VGANTI_BP

                                'menampilkan hasil akhir

                                'If s1_pr.Caption = "PR" Then

                                        'txt_pr.text = NK2

                                'End If

   

    

   

                            'If a < b And b < c And a = c Then'

                            'tak mungkin'

                           

                           

                ElseIf a < b And b > c And a > c Then

                x = c

                f = KK4

                  P = Z4 / f

                    Q = X1D / f

                    R = X2D / f

                    s = S1D / f

                    T = S2D / f

                    U = S3D / f

                    V = NK4 / f

                Z1.Text = Z1 - (kk1 * P)

                X1A.Text = X1A - (kk1 * Q)

                X2A.Text = X2A - (kk1 * R)

                S1A.Text = S1A - (kk1 * s)

                S2A.Text = S2A - (kk1 * T)

                S3A.Text = S3A - (kk1 * U)

                NK1.Text = NK1 - (kk1 * V)

                    Z2.Text = Z2 - (KK2 * P)

                    X1B.Text = X1B - (KK2 * Q)

                    X2B.Text = X2B - (KK2 * R)

                    S1B.Text = S1B - (KK2 * s)

                    S2B.Text = S2B - (KK2 * T)

                    S3B.Text = S3B - (KK2 * U)

                    NK2.Text = NK2 - (KK2 * V)

                Z3.Text = Z1 - (KK3 * P)

                X1C.Text = X1C - (KK3 * Q)

                X2C.Text = X2C - (KK3 * R)

                S1C.Text = S1C - (KK3 * s)

                S2C.Text = S2C - (KK3 * T)

                S3C.Text = S3C - (KK3 * U)

                NK3.Text = NK3 - (KK3 * V)

                    Z4.Text = P

                    X1D.Text = Q

                    X2D.Text = R

                    S1D.Text = s

                    S2D.Text = T

                    S3D.Text = U

                    NK4.Text = V

                Label19.Caption = "CB"

    ElseIf a < b And b > c And a < c Then

    x = a

    f = KK2

      P = Z2 / f

        Q = X1B / f

        R = X2B / f

        s = S1B / f

        T = S2B / f

        U = S3B / f

        V = NK2 / f

    Z1.Text = Z1 - (kk1 * P)

    X1A.Text = X1A - (kk1 * Q)

    X2A.Text = X2A - (kk1 * R)

    S1A.Text = S1A - (kk1 * s)

    S2A.Text = S2A - (kk1 * T)

    S3A.Text = S3A - (kk1 * U)

    NK1.Text = NK1 - (kk1 * V)

        Z3.Text = Z1 - (KK3 * P)

        X1C.Text = X1C - (KK3 * Q)

        X2C.Text = X2C - (KK3 * R)

        S1C.Text = S1C - (KK3 * s)

        S2C.Text = S2C - (KK3 * T)

        S3C.Text = S3C - (KK3 * U)

        NK3.Text = NK3 - (KK3 * V)

    Z4.Text = Z4 - (KK4 * P)

    X1D.Text = X1D - (KK4 * Q)

    X2D.Text = X2D - (KK4 * R)

    S1D.Text = S1D - (KK4 * s)

    S2D.Text = S2D - (KK4 * T)

    S3D.Text = S3D - (KK4 * U)

    NK4.Text = NK4 - (KK4 * V)

         Z2.Text = P

        X1B.Text = Q

        X2B.Text = R

        S1B.Text = s

        S2B.Text = T

        S3B.Text = U

        NK2.Text = V

     s1_pr.Caption = VGANTI_BP

    

                           'menampilkan hasil akhir

                                'f s1_pr.Caption = "PR" Then

                                        'txt_pr.text = NK2

                               ' End If

                               

    

                              'ElseIf a < B And B > c And a = c Then'

                            'tak mungkin'

                              'ElseIf a < b And b = c And a > c Then

                              'tak mungkin'

                    ElseIf a < b And b = c And a < c Then

                    x = a

                    f = KK2

                      P = Z2 / f

                        Q = X1B / f

                        R = X2B / f

                        s = S1B / f

                        T = S2B / f

                        U = S3B / f

                        V = NK2 / f

                    Z1.Text = Z1 - (kk1 * P)

                    X1A.Text = X1A - (kk1 * Q)

                    X2A.Text = X2A - (kk1 * R)

                    S1A.Text = S1A - (kk1 * s)

                    S2A.Text = S2A - (kk1 * T)

                    S3A.Text = S3A - (kk1 * U)

                    NK1.Text = NK1 - (kk1 * V)

                        Z3.Text = Z1 - (KK3 * P)

                        X1C.Text = X1C - (KK3 * Q)

                        X2C.Text = X2C - (KK3 * R)

                        S1C.Text = S1C - (KK3 * s)

                        S2C.Text = S2C - (KK3 * T)

                        S3C.Text = S3C - (KK3 * U)

                        NK3.Text = NK3 - (KK3 * V)

                   

                     Z4.Text = Z4 - (KK4 * P)

                    X1D.Text = X1D - (KK4 * Q)

                    X2D.Text = X2D - (KK4 * R)

                    S1D.Text = S1D - (KK4 * s)

                    S2D.Text = S2D - (KK4 * T)

                    S3D.Text = S3D - (KK4 * U)

                    NK4.Text = NK4 - (KK4 * V)

                        Z2.Text = P

                        X1B.Text = Q

                        X2B.Text = R

                        S1B.Text = s

                        S2B.Text = T

                        S3B.Text = U

                        NK2.Text = V

                     s1_pr.Caption = VGANTI_BP

                                'menampilkan hasil akhir

                                 'If s1_pr.Caption = "PR" Then

                                  '      txt_pr.text = NK2

                                 'End If

                               

                               

                            'ElseIf a < b And b = c And a = c Then

                            'tak mungkin'

    ElseIf a > b And b < c And a > c Then

    x = b

    f = KK3

     P = Z3 / f

        Q = X1C / f

        R = X2C / f

        s = S1C / f

        T = S2C / f

        U = S3C / f

        V = NK3 / f

    Z1.Text = Z1 - (kk1 * P)

    X1A.Text = X1A - (kk1 * Q)

    X2A.Text = X2A - (kk1 * R)

    S1A.Text = S1A - (kk1 * s)

    S2A.Text = S2A - (kk1 * T)

    S3A.Text = S3A - (kk1 * U)

    NK1.Text = NK1 - (kk1 * V)

        Z2.Text = Z2 - (KK2 * P)

        X1B.Text = X1B - (KK2 * Q)

        X2B.Text = X2B - (KK2 * R)

        S1B.Text = S1B - (KK2 * s)

        S2B.Text = S2B - (KK2 * T)

        S3B.Text = S3B - (KK2 * U)

        NK2.Text = NK2 - (KK2 * V)

    Z4.Text = Z4 - (KK4 * P)

    X1D.Text = X1D - (KK4 * Q)

    X2D.Text = X2D - (KK4 * R)

    S1D.Text = S1D - (KK4 * s)

    S2D.Text = S2D - (KK4 * T)

    S3D.Text = S3D - (KK4 * U)

    NK4.Text = NK4 - (KK4 * V)

        Z3.Text = P

        X1C.Text = Q

        X2C.Text = R

        S1C.Text = s

        S2C.Text = T

        S3C.Text = U

        NK3.Text = V

     s2_cb.Caption = VGANTI_BP

                        'manampilkan hasil aKhir

                           'If s2_cb.Caption = "CB" Then

                               ' txt_cb.text = NK3

                           'End If

                          

                          

                    ElseIf a > b And b < c And a < c Then

                    x = b

                    f = KK3

                      P = Z3 / f

                        Q = X1C / f

                        R = X2C / f

                        s = S1C / f

                        T = S2C / f

                        U = S3C / f

                        V = NK3 / f

                    Z1.Text = Z1 - (kk1 * P)

                    X1A.Text = X1A - (kk1 * Q)

                    X2A.Text = X2A - (kk1 * R)

                    S1A.Text = S1A - (kk1 * s)

                    S2A.Text = S2A - (kk1 * T)

                    S3A.Text = S3A - (kk1 * U)

                    NK1.Text = NK1 - (kk1 * V)

                        Z2.Text = Z2 - (KK2 * P)

                        X1B.Text = X1B - (KK2 * Q)

                        X2B.Text = X2B - (KK2 * R)

                        S1B.Text = S1B - (KK2 * s)

                        S2B.Text = S2B - (KK2 * T)

                        S3B.Text = S3B - (KK2 * U)

                        NK2.Text = NK2 - (KK2 * V)

                    Z4.Text = Z4 - (KK4 * P)

                    X1D.Text = X1D - (KK4 * Q)

                    X2D.Text = X2D - (KK4 * R)

                    S1D.Text = S1D - (KK4 * s)

                    S2D.Text = S2D - (KK4 * T)

                    S3D.Text = S3D - (KK4 * U)

                    NK4.Text = NK4 - (KK4 * V)

                        Z3.Text = P

                        X1C.Text = Q

                        X2C.Text = R

                        S1C.Text = s

                        S2C.Text = T

                        S3C.Text = U

                        NK3.Text = V

                 s2_cb.Caption = VGANTI_BP

                 'manampilkan hasil aKhir

                            'If s2_cb.Caption = "CB" Then

                            'txt_cb.text = NK3

                           'End If

    ElseIf a > b And b < c And a = c Then

    x = b

    f = KK3

      P = Z3 / f

        Q = X1C / f

        R = X2C / f

        s = S1C / f

        T = S2C / f

        U = S3C / f

        V = NK3 / f

    Z1.Text = Z1 - (kk1 * P)

    X1A.Text = X1A - (kk1 * Q)

    X2A.Text = X2A - (kk1 * R)

    S1A.Text = S1A - (kk1 * s)

    S2A.Text = S2A - (kk1 * T)

    S3A.Text = S3A - (kk1 * U)

    NK1.Text = NK1 - (kk1 * V)

        Z2.Text = Z2 - (KK2 * P)

        X1B.Text = X1B - (KK2 * Q)

        X2B.Text = X2B - (KK2 * R)

        S1B.Text = S1B - (KK2 * s)

        S2B.Text = S2B - (KK2 * T)

        S3B.Text = S3B - (KK2 * U)

        NK2.Text = NK2 - (KK2 * V)

     Z4.Text = Z4 - (KK4 * P)

    X1D.Text = X1D - (KK4 * Q)

    X2D.Text = X2D - (KK4 * R)

    S1D.Text = S1D - (KK4 * s)

    S2D.Text = S2D - (KK4 * T)

    S3D.Text = S3D - (KK4 * U)

    NK4.Text = NK4 - (KK4 * V)

        Z3.Text = P

        X1C.Text = Q

        X2C.Text = R

        S1C.Text = s

        S2C.Text = T

        S3C.Text = U

        NK3.Text = V

      s2_cb.Caption = VGANTI_BP

                 'manampilkan hasil aKhir

                           'If s2_cb.Caption = "CB" Then

                           'txt_cb.text = NK3

                           'End If

       

                    ElseIf a > b And b > c And a > c Then

                    x = c

                    f = KK4

                      P = Z4 / f

                        Q = X1D / f

                        R = X2D / f

                        s = S1D / f

                        T = S2D / f

                        U = S3D / f

                        V = NK4 / f

                    Z1.Text = Z1 - (kk1 * P)

                    X1A.Text = X1A - (kk1 * Q)

                    X2A.Text = X2A - (kk1 * R)

                    S1A.Text = S1A - (kk1 * s)

                    S2A.Text = S2A - (kk1 * T)

                    S3A.Text = S3A - (kk1 * U)

                    NK1.Text = NK1 - (kk1 * V)

                    Z2.Text = Z2 - (KK2 * P)

                        X1B.Text = X1B - (KK2 * Q)

                        X2B.Text = X2B - (KK2 * R)

                        S1B.Text = S1B - (KK2 * s)

                        S2B.Text = S2B - (KK2 * T)

                        S3B.Text = S3B - (KK2 * U)

                        NK2.Text = NK2 - (KK2 * V)

                    Z3.Text = Z1 - (KK3 * P)

                    X1C.Text = X1C - (KK3 * Q)

                    X2C.Text = X2C - (KK3 * R)

                    S1C.Text = S1C - (KK3 * s)

                    S2C.Text = S2C - (KK3 * T)

                    S3C.Text = S3C - (KK3 * U)

                    NK3.Text = NK3 - (KK3 * V)

                        Z4.Text = P

                        X1D.Text = Q

                        X2D.Text = R

                        S1D.Text = s

                        S2D.Text = T

                        S3D.Text = U

                        NK4.Text = V

             Label19.Caption = VGANTI_BP

           

       

        'ElseIf a > b And b > c And a < c Then

        'tak mungkin'

        '/ElseIf a > b And b > c And a = c Then

        'tak mungkin'

        'ElseIf a > b And b = c And a > c Then

        'tak mungkin'

        'ElseIf a > b And b = c And a < c Then

        'tak mungkin'

        'ElseIf a > b And b = c And a = c Then

        'tak mungkin'

        'ElseIf a = b And b < c And a > c Then

        'tak mungkin'

        'ElseIf a = b And b < c And a < c Then

        'tak mungkin'

        'ElseIf a = b And b < c And a = c Then

        'tak mungkin'

    Else

    If a = b And b > c And a > c Then

    x = c

    f = KK4

        P = Z4 / f

        Q = X1D / f

        R = X2D / f

        s = S1D / f

        T = S2D / f

        U = S3D / f

        V = NK4 / f

    Z1.Text = Z1 - (kk1 * P)

    X1A.Text = X1A - (kk1 * Q)

    X2A.Text = X2A - (kk1 * R)

    S1A.Text = S1A - (kk1 * s)

    S2A.Text = S2A - (kk1 * T)

    S3A.Text = S3A - (kk1 * U)

    NK1.Text = NKZ2.Text = Z2 - (KK2 * P)

        X1B.Text = X1B - (KK2 * Q)

        X2B.Text = X2B - (KK2 * R)

        S1B.Text = S1B - (KK2 * s)

        S2B.Text = S2B - (KK2 * T)

        S3B.Text = S3B - (KK2 * U)

        NK2.Text = NK2 - (KK2 * V)

    Z3.Text = Z1 - (KK3 * P)

    X1C.Text = X1C - (KK3 * Q)

    X2C.Text = X2C - (KK3 * R)

    S1C.Text = S1C - (KK3 * s)

    S2C.Text = S2C - (KK3 * T)

    S3C.Text = S3C - (KK3 * U)

    NK3.Text = NK3 - (KK3 * V)

        Z4.Text = P

        X1D.Text = Q

        X2D.Text = R

        S1D.Text = s

        S2D.Text = T

        S3D.Text = U

        NK4.Text = V

      Label19.Caption = VGANTI_BP

   

           

        'ElseIf a = b And b > c And a < c Then

        'tak mungkin '

        'ElseIf a = b And b > c And a = c Then

        'tak mungkin'

        'ElseIf a = b And b = c And a > c Then

        'tak mungkin'

        'ElseIf a = b And b = c And a < c Then

         'tak mungkin'

        'ElseIf a = b And b = c And a = c Then

         'tak mungkin'

        'end blok yang benar

       

   

          End If

                       

                               

             End If

                     

       

   

                   

  

     

End Sub

Private Sub HSL_Click()

On Error GoTo salah

Z1.Text = 1

Z2.Text = 0

Z3.Text = 0

Z4.Text = 0

X1A.Text = (CB * -1)

X1B.Text = CB1

X1C.Text = CB2

X1D.Text = CB3

    X2A.Text = (PR * -1)

    X2B.Text = PR1

    X2C.Text = PR2

    X2D.Text = PR3

S1A.Text = 0

S1B.Text = 1

S1C.Text = 0

S1D.Text = 0

    S2A.Text = 0

    S2B.Text = 0

    S2C.Text = 1

    S2D.Text = 0

S3A.Text = 0

S3B.Text = 0

S3C.Text = 0

S3D.Text = 1

    NK1.Text = 0

    NK2.Text = TOTAL1

    NK3.Text = TOTAL2

    NK4.Text = TOTAL3

Exit Sub

salah:

MsgBox "ISI DULU YANG KOSONG!!!!", vbInformation

CB.SetFocus

   

End Sub

Private Sub KELUAR_Click()

Unload Me

End Sub

Private Sub ULANG_Click()

CB.Text = ""

PR.Text = ""

CB1.Text = ""

CB2.Text = ""

CB3.Text = ""

PR1.Text = ""

PR2.Text = ""

PR3.Text = ""

TOTAL1.Text = ""

TOTAL2.Text = ""

TOTAL3.Text = ""

Z1.Text = ""

Z2.Text = ""

Z3.Text = ""

Z4.Text = ""

X1A.Text = ""

X1B.Text = ""

X1C.Text = ""

X1D.Text = ""

X2A.Text = ""

X2B.Text = ""

X2C.Text = ""

X2D.Text = ""

S1A.Text = ""

S1B.Text = ""

S1C.Text = ""

S1D.Text = ""

S2A.Text = ""

S2B.Text = ""

S2C.Text = ""

S2D.Text = ""

S3A.Text = ""

S3B.Text = ""

S3C.Text = ""

S3D.Text = ""

NK1.Text = ""

NK2.Text = ""

NK3.Text = ""

NK4.Text = ""

txt_cb.Text = ""

txt_pr.Text = ""

CB.SetFocus

End Sub