Program untuk memanggil kalimat panjang secara langsung

Program ini adalah program untuk mencetak karakter panjang dengan cara memanggilnya secara langsung tidak dicetak satu persatu. Service yang digunakan adalah 09 dengan pasangan interupt 21.

1. Langkah pertama untuk membuat program dengan bahasa assembly adalah dengan cara sederhana adalah menggunakan notepad. Untuk memulaianya, klik Star-All Program-Acsessories-Notepad.maka akan muncul tampilan seperti berikut:


2. Setelah anda membuka Notepad, silahkan ketikan program seperti pada gambar berikut:

Simpan nama file dengan nama baru.asm

3. Kemudian setelah mengetikan program tersebut, silahkan anda masuk ke dalam command prompt caranya klik Star-All Program-Acsessories- Command Prompt, maka akan muncul tampilan seperti gambar berikut:


4. Setelah anda pindahkan command prompt (kursor) ke folder asm anda, langkah selanjutnya adalah proses mengkompile file yang telah kita buat, carannya adalah dengan mengetik TASM_nama file yang kita buat.asm. sebagai contoh, program yang kami buat disimpan dengan nama “baru.asm” jika tidak ada pesan error maka akan muncul tampilan seperti gambar berikut:


5. Setelah itu kita untuk mengelingkan, caranya adalah dengan mengetikan TLINK_nama file yang kita buat.obj untuk menghasilkan file yang berekstensi EXE, sedangkan untuk membuat file berekstensi COM maka caranya adalah dengan mengetik TLINK/T_nama file yang kita buat.obj. Pada program yang kami buat, jika dilingkan hasilnya seperti gambar berikut:


6. langkah terakhir adalah menjalankannya. Caranya kita tinggal mengetikan nama file yang udah kita buat dengan ekstensi com. ketikan baru.com, maka hasilnya adalah seperti gambar berikut:

Selesai dah…

Program untuk inputan keyboard

Program yang pertama kami bahas adalah program untuk inputan keyboard dengan service 01 dan interupt 21 agar karakter yang diinputkan keyboard bisa tampil di layar dan disimpan dalam register al. Kemudian untuk memanggil kalimat yang panjang menggunakan syntac LEA (Load Effective Addres).

1. Langkah pertama untuk membuat program dengan bahasa assembly adalah dengan cara sederhana adalah menggunakan notepad. Untuk memulaianya, klik Star-All Program-Acsessories-Notepad.maka akan muncul tampilan seperti berikut:


2. Setelah anda membuka Notepad, silahkan ketikan program seperti pada gambar berikut:

3. Kemudian setelah mengetikan program tersebut, silahkan anda masuk ke dalam command prompt caranya klik Star-All Program-Acsessories- Command Prompt, maka akan muncul tampilan seperti gambar berikut:


Setelah muncul kondisi seperti gambar berikut, selanjutnya silahkan anda pindahkan command prompt anda (kursor) sesuai dengan direktori yang berisi folder asm anda.

4. Setelah anda pindahkan command prompt (kursor) ke folder asm anda, langkah selanjutnya adalah proses mengkompile file yang telah kita buat, carannya adalah dengan mengetik TASM_nama file yang kita buat.asm. sebagai contoh, program yang kami buat disimpan dengan nama “makan.asm” jika tidak ada pesan error maka akan muncul tampilan seperti gambar berikut:

5. Setelah itu kita untuk mengelingkan, caranya adalah dengan mengetikan TLINK_nama file yang kita buat.obj untuk menghasilkan file yang berekstensi EXE, sedangkan untuk membuat file berekstensi COM maka caranya adalah dengan mengetik TLINK/T_nama file yang kita buat.obj. Pada program yang kami buat, jika dilingkan hasilnya seperti gambar berikut:


Oya ketika mengelingkan, kita harus memastikan bahwa program yang kita buat sudah tidak ada pesan errror lagi. Jika masih ada, maka kita harus meperbaikinya dulu sampai ga ada lagi pesan error.

6. langkah terakhir adalah menjalankannya. Caranya kita tinggal mengetikan nama file yang udah kita buat dengan ekstensi com. ketikan makan.com, maka hasilnya adalah seperti gambar berikut:

Selese dah,,, gampang kan....slamat mencoba. N good luck

Program looping

Program yang kita bahas selanjutnya adalah adalah program untuk mencetak karakter dari A-Z dengan menggunakan looping (mov cx)

1. Langkah pertama seperti biasa, klik Star-All Program-Acsessories-Notepad.maka akan muncul tampilan seperti berikut:


2. Setelah anda membuka Notepad, silahkan ketikan program seperti pada gambar berikut:


3. Kemudian setelah mengetikan program tersebut, silahkan anda masuk ke dalam command prompt caranya klik Star-All Program-Acsessories- Command Prompt, maka akan muncul tampilan seperti gambar berikut:


Setelah muncul kondisi seperti gambar berikut, selanjutnya silahkan anda pindahkan command prompt anda (kursor) sesuai dengan direktori yang berisi folder asm anda.

4. Setelah anda pindahkan command prompt (kursor) ke folder asm anda, langkah selanjutnya adalah proses mengkompile file yang telah kita buat, carannya adalah dengan mengetik TASM_nama file yang kita buat.asm. sebagai contoh, program yang kami buat disimpan dengan nama “huruf.asm” jika tidak ada pesan error maka akan muncul tampilan seperti gambar berikut:


5. Setelah itu kita untuk mengelingkan, caranya adalah dengan mengetikan TLINK_nama file yang kita buat.obj untuk menghasilkan file yang berekstensi EXE, sedangkan untuk membuat file berekstensi COM maka caranya adalah dengan mengetik TLINK/T_nama file yang kita buat.obj. Pada program yang kami buat, jika dilingkan hasilnya seperti gambar berikut:

Oya ketika mengelingkan, kita harus memastikan bahwa program yang kita buat sudah tidak ada pesan errror lagi. Jika masih ada, maka kita harus meperbaikinya dulu sampai ga ada lagi pesan error.

6. langkah terakhir adalah menjalankannya. Caranya kita tinggal mengetikan nama file yang udah kita buat dengan ekstensi com. ketikan huruf.com, maka hasilnya adalah seperti gambar berikut:

Selese dah,,, gampang kan....slamat mencoba. N good luck

Program untuk menampilkan beberapa karakter

Program ini adalah program untuk mencetak nama (karakter panjang). Service yang digunakan adalah 02 dengan pasangan interupt 21.

1. Langkah pertama untuk membuat program dengan bahasa assembly adalah dengan cara sederhana adalah menggunakan notepad. Untuk memulaianya, klik Star-All Program-Acsessories-Notepad.maka akan muncul tampilan seperti berikut:



2. Setelah anda membuka Notepad, silahkan ketikan program seperti pada gambar berikut:

3. Kemudian setelah mengetikan program tersebut, silahkan anda masuk ke dalam command prompt caranya klik Star-All Program-Acsessories- Command Prompt, maka akan muncul tampilan seperti gambar berikut:


4. Setelah anda pindahkan command prompt (kursor) ke folder asm anda, langkah selanjutnya adalah proses mengkompile file yang telah kita buat, carannya adalah dengan mengetik TASM_nama file yang kita buat.asm. sebagai contoh, program yang kami buat disimpan dengan nama “nama.asm” jika tidak ada pesan error maka akan muncul tampilan seperti gambar berikut:


5. Setelah itu kita untuk mengelingkan, caranya adalah dengan mengetikan TLINK_nama file yang kita buat.obj untuk menghasilkan file yang berekstensi EXE, sedangkan untuk membuat file berekstensi COM maka caranya adalah dengan mengetik TLINK/T_nama file yang kita buat.obj. Pada program yang kami buat, jika dilingkan hasilnya seperti gambar berikut:

6. langkah terakhir adalah menjalankannya. Caranya kita tinggal mengetikan nama file yang udah kita buat dengan ekstensi com. ketikan nama.com, maka hasilnya adalah seperti gambar berikut:

Selese dah,,,

Pemrograman Bahasa Rakitan (Assembly)

Program untuk menampilkan 1 karakater
Salam jumpa semoga Anda tidak bosen dengan materi yang kami upload…
Kali ini aku mau membahas masalah Pemrograman Bahasa Rakitan…
Assembly adalah salah satu program yang secara langsung berhubungan dengan bahasa mesin…
Sebelum melangkah lebih jauh,, silahakan anda download software yang untuk mengkompail (TASM.exe) dan mengelingkan (TLINK.exe)di http//:4shared.com.
Setelah anda mendownlodad TASM dan TLINK silahkan anda simpan dalam satu folder dengan file-file asm yang akan anda buat.

Program yang pertama kami bahas adalah program untuk mencetak satu karakter. Program ini menggunakan perintah sederhana yaitu mencetak karakter satu per satu. Service yang digunakan adalah 02 dengan pasangan interupt 21.

1. Langkah pertama untuk membuat program dengan bahasa assembly adalah dengan cara sederhana adalah menggunakan notepad. Untuk memulaianya, klik Star-All Program-Acsessories-Notepad.maka akan muncul tampilan seperti berikut:



2. Setelah anda membuka Notepad, silahkan ketikan program seperti pada gambar berikut:


Untuk mengawali sebuah program di assembly kita harus menentukan program yang akan kita buat apakah program tersebut merupakan program yang besar, kecil atau sedang agar pemakaian memory sesuai dengan program yang kita buat. Int 20h di sini berfungsi untuk menghentikan program. Jadi, kalau kita membuat program dengan assembly kita harus selalu menghentikan program dengan cara mengetik int 20h pada setiap akhir program yang telah kita buat.

Oya jangan lupa kita simpan file yang telah kita buat bersama dengan folder yang berisi compailer dan linker dan kita simpan file tersebut dengan ekstensi ASM.
3. Kemudian setelah mengetikan program tersebut, silahkan anda masuk ke dalam command prompt caranya klik Star-All Program-Acsessories- Command Prompt, maka akan muncul tampilan seperti gambar berikut:


Setelah muncul kondisi seperti gambar berikut, selanjutnya silahkan anda pindahkan command prompt anda (kursor) sesuai dengan direktori yang berisi folder asm anda.

4. Setelah anda pindahkan command prompt (kursor) ke folder asm anda, langkah selanjutnya adalah proses mengkompile file yang telah kita buat, carannya adalah dengan mengetik TASM_nama file yang kita buat.asm. sebagai contoh, program yang kami buat disimpan dengan nama “jajal.asm” jika tidak ada pesan error maka akan muncul tampilan seperti gambar berikut:


5. Setelah itu kita untuk mengelingkan, caranya adalah dengan mengetikan TLINK_nama file yang kita buat.obj untuk menghasilkan file yang berekstensi EXE, sedangkan untuk membuat file berekstensi COM maka caranya adalah dengan mengetik TLINK/T_nama file yang kita buat.obj. Pada program yang kami buat, jika dilingkan hasilnya seperti gambar berikut:



Oya ketika mengelingkan, kita harus memastikan bahwa program yang kita buat sudah tidak ada pesan errror lagi. Jika masih ada, maka kita harus meperbaikinya dulu sampai ga ada lagi pesan error.

6. langkah terakhir adalah menjalankannya. Caranya kita tinggal mengetikan nama file yang udah kita buat dengan ekstensi com. Contoh jajal.com, maka hasilnya adalah seperti gambar berikut:

Selese dah,,, gampang kan....slamat mencoba. N good luck

TOPOLOGI JARINGAN

Istilah Topologi jaringan (arsitektur jaringan) merujuk pada cara bagaimana sebuah jaringan computer dibentuk secara fisik atau secara logis. Pada jaringan computer dua atau lebih terhubung ke sebuah link dua atau lebih link saling terhubung membentuk sebuah topologi. Topologi jaringan merupakan penggambaran geometris hubungan atau sambungan antar link maupun hubungan atau sambugan antar link maupun peralatan (disebut simpul jaringan atau node) satu dengan lainnya. Terdapat enam topologi dasar jaringan yakni: mesh, star, bus, ring, tree, dan hybrid.

Keenam macam topologi tersebut menjelaskan hubungan antar peralatan pada suatu jaringan, bukan sekedar penjelasan bagaimana susunan/letak mereka secara fisik. Sebagai contoh pada topologi star tidak harus computer-komputer diletakan mengelilingi sebuah hub membentuk bintang namun dapat saja computer-komputer disusun berjajar akan tetapi semuanya terhubung ke sebuah hub.

Adapun penjelasan masing-masing topologi adalah sebagai berikut:

1. Topologi Bus

Gambar 1.1 Topologi Bus

A. Karakteristik:
- Topologi ini merupakan bentangan satu kabel yang kedua ujungnya ditutup, dimana sepanjang kabel terdapat node-node. Signal dalam kabel dengan topologi ini dilewati satu arah sehingga memungkinkan sebuah collision terjadi.

- Pada titik tertentu diadakan sambungan (tap) untuk setiap terminal.

- Wujud dari tap ini bisa berupa “kabel transceiver” bila digunakan “thick coax” sebagai media transmisi

- Atau berupa “BNC T-connector” bila digunakan “thin coax” sebagai media transmisi.
- Atau berupa konektor “RJ-45” dan “hub” bila digunakan kabel UTP.

- Transmisi data dalam kabel bersifat “full duplex”, dan sifatnya “broadcast”, semua terminal bisa menerima transmisi data.

B. Keuntungan:
- murah, karena tidak memakai banyak media, kabel yang dipakai sudah umum (banyak tersedia dipasaran)
- setiap komputer dapat saling berhubungan langsung.

C.Kerugian:
- Sering terjadi hang / crass talk, yaitu bila lebih dari satu pasang memakai jalur diwaktu yang sama, harus bergantian atau ditambah relay.

2.Topologi Ring

Gambar 1.2 Topologi Ring

A. Karakteristik
- Topologi jaringan yang berupa lingkaran tertutup yang berisi node-node. Signal mengalir dalam dua arah sehingga dapat menghindarkan terjadinya collision, sehingga memungkinkan terjadinya pergerakan data yang sangat cepat.
- Semua komputer saling tersambung membentuk lingkaran (seperti bus tetapi ujung-ujung bus disambung). Data yang dikirim diberi address tujuan sehingga dapat menuju komputer yang dituju

B. Keuntungan
- Kegagalan koneksi akibat gangguan media, dapat diatasi dengan jalur lain yang masih terhubung.
- Penggunaan sambungan point to point membuat transmission error dapat diperkecil

C. Kerugian:
- Data yang dikirim bila melalui banyak komputer, transfer data menjadi lambat.

3.Topologi Star


Gambar 1.3 Topologi Star

A. Karakteristik

- Karakteristik dari topologi jaringan ini adalah node (station) berkomunikasi langsung dengan station lain melalui central node (hub/switch), traffic data mengalir dari node ke central node dan diteruskan ke node (station) tujuan. Jika salah satu segmen kabel putus, jaringan lain tidak akan terputus.

B. Keuntungan
- Akses ke station lain (client atau server) cepat
- Dapat menerima workstation baru selama port di centralnode (hub/switch) tersedia.
- Hub/switch bertindak sebagai konsentrator.
- Hub/switch dapat disusun seri (bertingkat) untuk menambah jumlah station yang terkoneksi di jaringan.
- User dapat lebih banyak dibanding topologi bus, maupun ring.

Kerugian:
- Bila traffic data cukup tinggi dan terjadi collision, maka semua komunikasi akan ditunda, dan koneksi akan dilanjutkan/dipersilahkan dengan cara random, apabila hub/switch mendetect tidak ada jalur yang sedang dipergunakan oleh node lain.

4. Topologi Tree


Gambar 1.4. Topologi Tree
A. Karakteristik
- Merupakan modifikasi atau gabungan dari beberapa topologi star
- Dalam hal ini terdapat dua macam hub, yakni hub primer dan hub sekunder. Hub primer menghubungkan setiap hub sekunder
- Hub primer pada topologi tree merupakan hub aktif

B. Keuntungan
- Secara umum sama dengan keuntungan topologi star
- Adanya hub sekunder memungkinkan lebih banyak perangkat yang dapat tersambung ke sebuah hub primer sehingga menambah jangkauan jaringan ini

C. Kerugian
- Secara umum sama dengan topologi star

5.Topologi Mesh


Gambar 1.5 Topologi Mesh

A. Karakteristik
- Topologi jaringan ini menerapkan hubungan antar sentral secara penuh. Jumlah saluran harus disediakan untuk membentuk jaringan Mesh adalah jumlah sentral dikurangi 1 (n-1, n = jumlah sentral). Tingkat kerumitan jaringan sebanding dengan meningkatnya jumlah sentral yang terpasang. Dengan demikian disamping kurang ekonomis juga relatif mahal dalam pengoperasiannya.
- Topologi mesh ini merupakan teknologi khusus (ad hock) yang tidak dapat dibuat dengan pengkabelan, karena sistemnya yang rumit, namun dengan teknologi wireless topologi ini sangat memungkinkan untuk diwujudkan (karena dapat dipastikan tidak akan ada kabel yang berseliweran).
- Biasanya untuk memperkuat sinyal transmisi data yang dikirimkan, ditengah-tengah (area) antar komputer yang kosong di tempatkan perangkat radio (air point) yang berfungsi seperti repeater untuk memperkuat sinyal sekaligus bisa mengatur arah komunikasi data yang terjadi.

B. Keuntungan
- Mengatasi masalah kepadatan lalu lintas data
- Kerusakan pada satu link tidak mengganggu link yang lain
- Keamanan data terjamin karena dikirim tanpa perantara
- Deteksi kerusakan mudah dilakukan

C. Kelemahan
- Memerlukan kabel yang sangat panjang sehingga memerlukan waktu yang lama untuk memasangnya serta biaya yang relative mahal
- Banyak kabel akan “memakan” tempat/ruang

6. Topologi Hybrid


Gambar 1.6 Topologi Hybrid

A. Karakteristik
Topologi ini merupakan topologi gabungan dari beberapa topologi yang ada, yang bisa memadukan kinerja dari beberapa topologi yang berbeda, baik berbeda sistem maupun berbeda media transmisinya.

B. Keuntungan
Menyesuaikan ketersediaan sumber daya

C. Kelemahan
Kelamahan topologi ini sesuai dengan kelemahan masing-masing (topologi) segmen pembentuknya.

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