Property Font
Name = "Times New Roman"
Size = 12
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 3
Top = 2640
Width = 375
End
Begin VB.Label Мітка 3
Caption = " А 21"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 2
Top = 2040
Width = 375
End
Begin VB.Label Мітка 2
Caption = " А 11"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 1
Top = 1440
Width = 375
End
Begin VB.Label Мітка 1
Caption = $ "FrmSlay.frx": 0000
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 120
TabIndex = 0
Top = 120
Width = 7575
End
End
Attribute VB_Name = "FrmAriel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClean_Click ()
Dim з As Byte
з = MsgBox ("Хочете очистити?", 33, "Очищення")
If з = 1 Then
txtA11.Text = ""
txtA12.Text = ""
txtA13.Text = ""
txtA21.Text = ""
txtA22.Text = ""
txtA23.Text = ""
txtA31.Text = ""
txtA32.Text = ""
txtA33.Text = ""
txtB1.Text = ""
txtB2.Text = ""
txtB3.Text = ""
txtMKX.Text = ""
txtMGX.Text = ""
txtMOMX.Text = ""
txtMKY.Text = ""
txtMGY.Text = ""
txtMOMY.Text = ""
txtMKZ.Text = ""
txtMGZ.Text = ""
txtMOMZ.Text = ""
End If
End Sub
Private Sub cmdCount_Click ()
If (Val (txtA11) * Val (txtA22) * Val (txtA33) + Val (txtA12) * Val (txtA23) * Val (txtA31) + Val (txtA21) * Val (txtA32) * Val (txtA13) - Val (txtA13) * Val (txtA22) * Val (txtA31) - Val (txtA12) * Val (txtA21) * Val (txtA33) - Val (txtA23) * Val (txtA32) * Val (txtA11)) = 0 Then
Dim g As Byte
g = MsgBox ("Вирішити дану систему методом Крамера і методом зворотної матриці неможливо ", 32," Визначник системи дорівнює 0 ")
Else
ds = (Val (txtA11) * Val (txtA22) * Val (txtA33) + Val (txtA12) * Val (txtA23) * Val (txtA31) + Val (txtA21) * Val (txtA32) * Val (txtA13) - Val (txtA13) * Val (txtA22) * Val (txtA31) - Val (txtA12) * Val (txtA21) * Val (txtA33) - Val (txtA23) * Val (txtA32) * Val (txtA11))
dx = (Val (txtB1) * Val (txtA22) * Val (txtA33) + Val (txtA12) * Val (txtA23) * Val (txtB3) + Val (txtB2) * Val (txtA32) * Val (txtA13) - Val (txtA13) * Val (txtA22) * Val (txtB3) - Val (txtA12) * Val (txtB2) * Val (txtA33) - Val (txtA23) * Val (txtA32) * Val (txtB1))
dy = (Val (txtA11) * Val (txtB2) * Val (txtA33) + Val (txtB1) * Val (txtA23) * Val (txtA31) + Val (txtA21) * Val (txtB3) * Val (txtA13) - Val (txtA13) * Val (txtB2) * Val (txtA31) - Val (txtB1) * Val (txtA21) * Val (txtA33) - Val (txtA23) * Val (txtB3) * Val (tx...
