Persamaan Aljabar Simultan dengan metoda Eliminasi Gauss pada VB

Senin, 12 Maret 2012

Hallo sahabat blogger semua..
kali ini penulis ingin share neyh tetang program yang dapat melakukan eliminasi metode gauss dengan menggunakan vitur macro Visual Basic pada Microsoft Excel..
Hehe..

Udah pada tau kan gimana dn apa itu eliminasi gauss??
pasti udah tau ya..
klo belum tau tanya prof. Google aj.. hehehe..

Sekarang penulis mencoba membuat algoritma-nya terlebih dahulu, jika diketahui 3 buah persamaan:

a11 x1 + a12 x2 + a13 x3 = a14 (persamaan 1)
a21 x1 + a22 x2 + a23 x3 = a24 (persamaan 2)
a31 x1 + a32 x2 + a33 x3 = a34 (persamaan 3)

dengan menggunakan metode gauss, maka ketiga nilai x dapat di cari. Percaya kan??
Percaya doonk, percaya aja dulu..

Neyh klo gak percaya, penulis coba bikin algoritmanya..

for i = 1 to n and j = 1 to 4 in steps of 1 do Read aij endfor
for i = 2 to 3 in steps of  1 do
       u := aij / a11
         for j = 1 to 4 in steps of 1 do
              aij := aij - u*aij 
       endfor
 endfor

nah, itu dia algoritmanya... hahaha..
ngerti kan?? klo gak ngerti, banyak-banyak lah sembahyang ya.. hehehe..


nah sekarang kita tinggal bikin program berdasarkan algoritma diatas, dengan terlebih dahulu membuat userform pada visual basic.
 
 
Udah bikin form, kita terjemahin deyh algoritma yang udah kita buat menjadi coding dengan bahasa visual basic..




Setelah coding selesai dibuat, maka kita harus mencoba menjalankan program tersebut,,
setelah tombol di run, maka hasilnya akan seperti..



nah setelah itu kita bisa menginput data yang akan kita hitung, jadinya seperti ini..


Selesai deyh..
semoga bermanfaat..