Nama: Frida Fatah Abdullah Aziz
NIM: SIR200913
Dosen: Nahar Mardiyantoro, M.Kom

METODE SIMPLEKS


Alhamdullilah saya telah menyelesaikan kuliah Semester 2, dan kali ini saya memposting "Metode Simpleks" yang saya praktekan pada saat ujian utama pada mata kuliah Pemrograman Matematika.

Metode simpleks merupakan prosedur aljabar yang bersifat iteratif, yang bergerak
step by step, dimulai dari suatu titik ekstrim pada daerah fisibel menuju ke titik ekstrim yang
optimum.


source code tabulasi:
---------------------
Private Sub HSL_Click()
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


End Sub
-------------------------


source code iterasi:
-------------------------
Private Sub DISS_Click()
If Int(X1A) < kk1 =" X1A" kk2 =" X1B" kk3 =" X1C" kk4 =" X1D" caption = "CB" vganti_bp = "CB" kk1 =" X2A" kk2 =" X2B" kk3 =" X2C" kk4 =" X2D" caption = "PR" vganti_bp = "PR" kk2 =" 0" a =" 0" a =" NK2" kk3 =" 0" b =" 0" b =" NK3" kk4 =" 0" c =" 0" c =" NK4"> c Then'
'tak mungkin'

If A < x =" A" f =" KK2" p =" Z2" q =" X1B" r =" X2B" s =" S1B" t =" S2B" u =" S3B" v =" NK2" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z1" text =" X1C" text =" X2C" text =" S1C" text =" S2C" text =" S3C" text =" NK3" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP" a =" c"> 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 <> C And A < x =" A" f =" KK2" p =" Z2" q =" X1B" r =" X2B" s =" S1B" t =" S2B" u =" S3B" v =" NK2" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z1" text =" X1C" text =" X2C" text =" S1C" text =" S2C" text =" S3C" text =" NK3" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP"> c And a = c Then'
'tak mungkin'
'ElseIf a < b =" c"> c Then
'tak mungkin'
ElseIf A < b =" C" x =" A" f =" KK2" p =" Z2" q =" X1B" r =" X2B" s =" S1B" t =" S2B" u =" S3B" v =" NK2" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z1" text =" X1C" text =" X2C" text =" S1C" text =" S2C" text =" S3C" text =" NK3" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP" b =" c" a =" c"> B And B <> 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
Label18.Caption = VGANTI_BP
ElseIf A > B And B < x =" B" f =" KK3" p =" Z3" q =" X1C" r =" X2C" s =" S1C" t =" S2C" u =" S3C" v =" NK3" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z2" text =" X1B" text =" X2B" text =" S1B" text =" S2B" text =" S3B" text =" NK2" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP"> B And B < a =" C" x =" B" f =" KK3" p =" Z3" q =" X1C" r =" X2C" s =" S1C" t =" S2C" u =" S3C" v =" NK3" text =" Z1" text =" X1A" text =" X2A" text =" S1A" text =" S2A" text =" S3A" text =" NK1" text =" Z2" text =" X1B" text =" X2B" text =" S1B" text =" S2B" text =" S3B" text =" NK2" text =" Z4" text =" X1D" text =" X2D" text =" S1D" text =" S2D" text =" S3D" text =" NK4" text =" P" text =" Q" text =" R" text =" S" text =" T" text =" U" text =" V" caption =" VGANTI_BP"> 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 <> 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 <> b And b = c And a = c Then
'tak mungkin'
'ElseIf a = b And b <> c Then
'tak mungkin'
'ElseIf a = b And b < a =" b" a =" c" a =" 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 < a =" 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 < a =" b" b =" c" a =" c" caption = "CB" text =" NK2" caption = "CB" text =" NK3" caption = "CB" text =" NK4" caption = "PR" text =" NK2" caption = "PR" text =" NK3" caption = "PR" text =" NK4" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8oEhob32LUggZDymo5oaMnx-kSOeJHBff64zoQw9ZJdkv2gj4uDPkP8R_tbgffRpYwQqWpq2b_BCQl48NYRfqHAwqPpO0TsT7cs9qCl70N2Lh4REBDhFccnwaPHF8gCi5ozAWavi_COyq/s1600/tampilan4.jpg">
maaf jika postingan saya masih acak2an,(masih newbie klo nulis2) hehehe
dan juga source code yg saya cantumkan hanya untuk tabulasi dan iterasinya saja, karena source code untuk keluar dan ulang sudah ada pada postingan sebelumnya.
mungkin jika ada yang ingin mengcopy program ini bisa PM saya di "frida_fatah@yahoo.com" atau "frida.fatah@gmail.com"

best regards

FAD-21
-creative never dies-

semoga bermanfaat