ALGÈBE LINÉAIRE

Dim A(1, 1) As Double
Dim B(1, 1) As Double
Dim C(1, 1) As Double

Private Sub Command1_Click()
LinAlg1.AddMatrix A, B, C
End Sub

Private Sub Command2_Click()
Me.Caption = LinAlg1.Trace(C)
End Sub

Private Sub Command3_Click()
LinAlg1.Transpose A, C
End Sub

Private Sub Command4_Click()
txtA(0).Text = A(0, 0)
txtA(1).Text = A(1, 0)
txtA(2).Text = A(0, 1)
txtA(3).Text = A(1, 1)

txtB(0).Text = B(0, 0)
txtB(1).Text = B(1, 0)
txtB(2).Text = B(0, 1)
txtB(3).Text = B(1, 1)

txtC(0).Text = C(0, 0)
txtC(1).Text = C(1, 0)
txtC(2).Text = C(0, 1)
txtC(3).Text = C(1, 1)

End Sub

Private Sub Command5_Click()
LinAlg1.MatrixMultiply A, B, C
End Sub

Private Sub Form_Load()
LinAlg1.About
End Sub

Private Sub GetA_Click()
A(0, 0) = txtA(0).Text
A(1, 0) = txtA(1).Text
A(0, 1) = txtA(2).Text
A(1, 1) = txtA(3).Text
End Sub

Private Sub GetB_Click()
B(0, 0) = txtB(0).Text
B(1, 0) = txtB(1).Text
B(0, 1) = txtB(2).Text
B(1, 1) = txtB(3).Text
End Sub

Private Sub GetC_Click()
C(0, 0) = txtC(0).Text
C(1, 0) = txtC(1).Text
C(0, 1) = txtC(2).Text
C(1, 1) = txtC(3).Text
End Sub
  

Télécharger le zip