pemograman excel VBA, mencari akar persamaan 2 persamaan linier

untuk mencari akar dari dua persamaan, dapat dilakukan dengan metode subtitusi, dengan mensubtitusikan nilai di salah satu persamaan ke dalam persamaan kedua, maka pemograman yang kita butuhkan akan lebih sederhana

 

cara yang paling mudah  adalah menggunakan aturan cramer, yaitu bila diketahui ada dua persamaan

a1 x + b1 y = c1 (1)
a2 x + b2 y = c2 (2)

maka nilai x dan y dapat dihitung dengan

x = ( c1*b2 - c2*b1 ) / ( a1*b2 - a2*b1 )
y = ( a1*c2 - a2*c1 ) / ( a1*b2 - a2*b1 )

Alogaritma
dengan aturan cramer, alogaritma yang digunakan akan semakin singkat yaitu :
1. baca a,1,b1,c1,a2,b2,c2
2. hitung x  = ( c1*b2 - c2*b1 ) / ( a1*b2 - a2*b1 )
3. hitung y =  y = ( a1*c2 - a2*c1 ) / ( a1*b2 - a2*b1 )
4. tulis nilai x,y
5. stop

Pembuatan program
pertama tentukan input box, dan atur layout seperti diatas, sesuai dengan alogaritmanya, double klik button hitung lalu masukkan program seperti berikut ini

Private Sub CommandButton1_Click()
Dim a, b, c, p, q, r, x, y As Single

' input semua nilai
a = txta.Text
b = txtb.Text
c = txtc.Text
p = txtp.Text
q = txtq.Text
r = txtr.Text

' menggunakan aturan cramer
x = (((c * q) - (r * b)) / ((a * q) - (b * p)))
y = (((a * r) - (p * c)) / ((a * q) - (b * p)))

Labelx.Caption = x
Labely.Caption = y

End Sub

Private Sub CommandButton2_Click()
Unload UserForm1

End Sub 

hasilanya dapat dilihat pada gambar dibawah berikut

 

selamat mencoba

Posted in: 2 persamaan, komputasi teknik