Program Visual Basic Matriks Pertambahan , Pengurangan , Perkalian dan Determinan

Program Visual Basic Matriks Pertambahan , Pengurangan , Perkalian dan Determinan




Untuk IJKL Biar tidak bisa diedit ubah Enabled jadi False

Private Sub Command1_Click()
I = Val(A.Text) + Val(E.Text)
J = Val(B.Text) + Val(F.Text)
K = Val(C.Text) + Val(G.Text)
L = Val(D.Text) + Val(H.Text)

End Sub

Private Sub Command2_Click()
I = Val(A.Text) - Val(E.Text)
J = Val(B.Text) - Val(F.Text)
K = Val(C.Text) - Val(G.Text)
L = Val(D.Text) - Val(H.Text)
End Sub

Private Sub Command3_Click()
I = Val(A.Text) * Val(E.Text) + Val(B.Text) * Val(G.Text)
J = Val(A.Text) * Val(F.Text) + Val(B.Text) * Val(H.Text)
K = Val(C.Text) * Val(E.Text) + Val(D.Text) * Val(G.Text)
L = Val(C.Text) * Val(F.Text) + Val(D.Text) * Val(H.Text)
End Sub

Private Sub Command4_Click()
D1 = Val(A.Text) + Val(B.Text) + Val(C.Text) + Val(D.Text)
D2 = Val(E.Text) + Val(F.Text) + Val(G.Text) + Val(H.Text)
End Sub

Private Sub Command5_Click()
A = ""
B = ""
C = ""
D = ""
E = ""
F = ""
G = ""
H = ""
I = ""
J = ""
K = ""
L = ""
D1 = ""
D2 = ""
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel