Program DSS dengan Metode Simpleks

Program DSS dengan Metode Simplex menggunakan Visual Basic 6

Berikut ini adalah langkah-langkah membuat Program DSS dengan Metode Simplex menggunakan Visual Basic 6:
1.Buka program visual basic, langkahnya kilik start-all program-Microsoft Visual Basic 6
2.Buat tampilan form seperti gambar berikut:


3.Kemudian double klik pada tombol tabulasi dan masukan script berikut:
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
4.Klik pada tombol Iterasi dan masukan script berikut:
'INI UNTUK MENCARI KOLOM KERJA'
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
'INI UNTUK MENCARI BARIS PIVOT DENGAN MEMBAGI NK DENGAN KOLOM KERJA'
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

'blok yang kemungkinan dimulai'
'If a < b And b < c And a > c Then'
'tak mungkin'
'INI MENCARI NILAI UNTUK BARIS PIVOT DENGAN ASUMSI NILAI KK2 ADALAH NILAI YANG TERKECIL'
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
Label17.Caption = VGANTI_BP

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

'INI MENCARI NILAI UNTUK BARIS PIVOT DENGAN ASUMSI NILAI KK4 ADALAH NILAI YANG TERKECIL'
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"
'INI UNTUK MENCARI HASIL ITERASI DENGAN ASUMSI NILAI KK2 ADALAH NILAI TERKECIL'
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
Label17.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
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
Label17.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
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 < 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
Label18.Caption = VGANTI_BP

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
Label18.Caption = VGANTI_BP
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

If Label17.Caption = "CB" Then
Text8.Text = NK2
ElseIf Label18.Caption = "CB" Then
Text8.Text = NK3
ElseIf Label19.Caption = "CB" Then
Text8.Text = NK4
ElseIf Label17.Caption = "PR" Then
Text9.Text = NK2
ElseIf Label18.Caption = "PR" Then
Text9.Text = NK3
ElseIf Label19.Caption = "PR" Then
Text9.Text = NK4
End If
End If
End If
End Sub
5.Doubel klik pada tombol ulang dan masukan script berikut:
CB.Text = ""
PR.Text = ""
CB1.Text = ""
CB2.Text = ""
CB3.Text = ""
PR1.Text = ""
PR2.Text = ""
PR3.Text = ""
TOTAL1.Text = ""
TOTAL2.Text = ""
TOTAL3.Text = ""
6.Doubel klik pada tombol keluar dan masukan script berikut:
Unload Me

Program untuk mencari FPB dengan menggunakan Visual Basic 6

Berikut ini adalah cara mencari FPB dengan menggunakan Metode Euclid. Untuk menggunakan Metode Euclid, nilai yang lebih besar di letakan pada inputan yang pertama
1. Buka program visual basic, langkahnya kilik start-all program-Microsoft Visual Basic 6
2. Setelah diklik, Anda akan menemui form seperti gambar berikut ini.

Pilihlah standard exe.

3. Setelah Anda mengklik standard exe, kemudian akan mencul gambar seperti berikut ini


4. Buatlah interface seperti gambar berikut:


5. Kemudan klik pada Command Button “PROSES”, isikan syntak sperti gambar berikut:


6. Pada tombol “ULANG”, masukan script seprti gambar berikut ini:





7. Pada tombol “Keluar” tuliskan script seperti gambar berikut ini:


8. Klik menu Run - Start

Program sederhana untuk menentukan bilangan prima dengan menggunakan Visual Basic

Untuk membuat program sederhana menentukan bilangan prima menggunakan program visual basic, ikuti langkah-lngkah sebagai berikut :

1. Klik star-all program-visual basic 6,0 lalu akan muncul option seperti gambar dibawah kemudian pilihlah standard exe.



2. Buat interface seperti gambar berikut:


Untuk mengubah nama dan propertis pada masing-masing bagian tinggal diklik bagian tersebut. Kemudian ganti pada bagian property box pada bagian sebelah kanan. Untuk mengganti nama, klik pada bagian caption kemudian ganti nama sesuai dengan yang kita inginkan. Untuk menghilangkan tulisan text1, klik text pada bagian property sebelah kanan dan hilangkan tulisan textnya.


3. Setelah selesai membuat interface seperti gambar di atas, kemudian double klik pada pada command button TENTUKAN sehingga akan muncul pada bagian skrip/coding. Kemudian isi skrip seperti berikut:



4. Kemudian double klik pada command button ulang dan isi skrip seperti gambar berikut:



5. Kemudian double klik pada command button selesai dan isi skrip seperti gambar berikut:



6. Setelah selesai kemudian klik run

Program sederhana untuk menghitung luas persegi panjang dengan menggunakan Visual Basic

Untuk membuat program sederhana menghitung luas persegi panjang menggunakan program visual basic, ikuti langkah-lngkah sebagai berikut :

1. Klik star-all program-visual basic 6,0 lalu akan muncul option seperti gambar dibawah kemudian pilihlah standard exe.


2. Buat interface seperti gambar berikut:


Untuk mengubah nama dan propertis pada masing-masing bagian tinggal diklik bagian tersebut. Kemudian ganti pada bagian property box pada bagian sebelah kanan. Untuk mengganti nama, klik pada bagian caption kemudian ganti nama sesuai dengan yang kita inginkan. Untuk menghilangkan tulisan text1, klik text pada bagian property sebelah kanan dan hilangkan tulisan textnya.



3. Setelah selesai membuat interface seperti gambar di atas, kemudian double klik pada pada command button hitung sehingga akan muncul pada bagian skrip/coding. Kemudian isi skrip seperti berikut:




4. Kemudian double klik pada command button ulang dan isi skrip seperti gambar berikut:




5. Kemudian double klik pada command button selesai dan isi skrip seperti gambar berikut:




6. Setelah selesai kemudian klik run

Program sederhana untuk menghitung factorial dari sebuah angka dengan menggunakan Visual Basic

Untuk membuat program sederhana menghitung factorial dari sebuah angka dengan menggunakan program visual basic, ikuti langkah-lngkah sebagai berikut :

1. Klik star-all program-visual basic 6,0 lalu akan muncul option seperti gambar dibawah kemudian pilihlah standard exe.




2. Buat tampilan seperti pada gambar berikut.




Untuk mengganti nama dan propertis pada masing-masing bagian tinggal diklik bagian tersebut. Kemudian ganti pada bagian property box pada bagian sebelah kanan. Untuk mengganti nama, klik pada bagian caption kemudian ganti nama sesuai dengan yang kita inginkan. Untuk menghilangkan tulisan text1, klik text pada bagian property sebelah kanan dan hilangkan tulisan textnya.





3. Setelah selesai membuat interface seperti gambar di atas, kemudian double klik pada pada command button faktorial sehingga akan muncul pada bagian skrip/coding. Kemudian isi skrip seperti berikut:





4. Kemudian double klik pada command button ulang dan isi skrip seperti gambar berikut



5. Kemudian double klik pada command button selesai dan isi skrip seperti gambar berikut.




6. Setelah selesai kemudian klik run

Program sederhana untuk mendeteksi bilangan genap atau ganjil dari sebuah angka dengan menggunakan Visual Basic

Untuk membuat program sederhana mendeteksi bilangan genap atapu ganjil dari sebuah angka dengan menggunakan program visual basic, ikuti langkah-lngkah sebagai berikut :

1. Klik star-all program-visual basic 6,0 lalu akan muncul option seperti gambar dibawah kemudian pilihlah standard exe.














2. Buat tampilan seperti pada gambar berikut.







Untuk mengganti nama dan propertis pada masing-masing bagian tinggal diklik bagian tersebut. Kemudian ganti pada bagian property box pada bagian sebelah kanan. Untuk mengganti nama, klik pada bagian caption kemudian ganti nama sesuai dengan yang kita inginkan. Untuk menghilangkan tulisan text1, klik text pada bagian property sebelah kanan dan hilangkan tulisan textnya.


3. Setelah selesai membuat interface seperti gambar di atas, kemudian double klik pada pada command button faktorial sehingga akan muncul pada bagian skrip/coding. Kemudian isi skrip seperti berikut:








4. Kemudian double klik pada command button ulang dan isi skrip seperti gambar berikut







5. Kemudian double klik pada command button selesai dan isi skrip seperti gambar berikut.







6. Setelah selesai kemudian klik run