menyelesaikan Nilai x dan y dari 2 Buah Persamaan

Pada perkuliahan komputasi teknik hari Jumat, 17 Februari 2012, kami diberikan 2 buah persamaan, yaitu
ax + by = c ... (1)
px + qy = r ... (2)
Dengan menggunakan microsoft excel dan visual basic, maka persamaan tersebut dapat diselesaikan sehingga nilai x dan y dapat diketahui. Himpunan penyelesaian persamaan-persamaan tersebut adalah sebagai berikut :
ax + by = c
px + qy = r
[p(c-by)] / a + qy = r
(pc-pby) / a + qy = r
pc - pby = (r-qy)a
y = (ar - pc) / (aq - bp) ......(3)
ax = c - by
x = [c - b [(ar - pc) / (aq - bp)]] / a .... (4)
Apabila akan dibuat format dalam visual basic, maka berikut langkah-langkahnya :
Private Sub CommandButton1_Click()
Dim a, b, c, p, q, r
a = InputBox("Masukkan nilai a")
b = InputBox("Masukkan nilai b")
c = InputBox("Masukkan nilai c")
p = InputBox("Masukkan nilai p")
q = InputBox("Masukkan nilai q")
r = InputBox("Masukkan nilai r")

x = (c - (b * y)) / a
y = ((a * r) - (p * c)) / ((a * q) - (p * b))

Open "nilaixdany" For Output As #1
Print #1, "nilai y adalah"
Print #1, y
Print #1, "nilai x adalah"
Print #1, x
Close #1


End Sub
Berikut akan dishare hasil di komputer :









maka hasilnya sebagai berikut :




reff : http://arandityonarutomo.blogspot.com/2012/03/menyelesaikan-nilai-x-dan-y-dari-2-buah.html

Tags:

About : Raja CRN

Author description goes here. Author description goes here. Follow him on Twitter