Program Visual Basic Matriks Pertambahan , Pengurangan , Perkalian dan Determinan
Monday, April 22, 2019
Edit
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
