menghitung AX+BX=C menggunakan visual basic

untuk mencari nilai x dan y diantara dua persamaan
ax + by = c
px + qy = r
sebenarnya banyak cara untuk menyelesaikan persamaan tersebut, misalkan dengan metode eliminasi, metode matrix, metode eliminasi mudah digunakan untuk nilai yang tidak begitu banyak, pada kasus diatas karena hanya terdiri dari dua persamaan sangat gampang untuk menggunakan metode eliminasi
pertama kita anggap semua nilai dari a,b,c,p,q,r adalah positip
rumus untuk menghitung
y = (((c * p) - (p * a)) / ((p * b) - (a * q)))
x = (c - b * y) / a
jadi source code di visual basic adalah
Private Sub CommandButton1_Click() ' perintah ini dituliskan ketika command button 1 di klik
Dim a, b, c, p, q, r, x, y As Integer
' anggap nilai semua positip dahulu
a = txta.Text
b = txtb.Text
c = txtc.Text
p = txtp.Text
q = txtq.Text
r = txtr.Text

' menghitung nilai Y
y = (((c * p) - (p * a)) / ((p * b) - (a * q)))
x = (c - b * y) / a

Labelx.Caption = x
Labely.Caption = y

End Sub

Hasilnya

 

 

Posted in: komputasi teknik