Пользовательская форма продолжает говорить мне, что этот код неверен, и что в поле «i» есть ошибка для дополнительной формы 1,2 и 3 (прямоугольник). Я пробовал переписать ее и делать их с другими скобками. Это уравнения, которые нужно найти момент инерции. Это проект, позволяющий создавать уникальные формы, а пользовательская форма - вычислять момент инерции, изгибающий момент и максимальное отклонение.
Не могли бы вы рассказать мне, что не так с кодом в этих строках:
AddRectangle_I1 = (B1 * H1 ^ 3) / 12
AddRectangle_I2 = ((B2 * (H2 ^ 3)) / 12)
AddRectangle_I3 = (B3 * (H3 ^ 3)) / 12
Вот код:
Private Sub CommandButton6_Click()
'I for addon shape 1 (Circle)
Pi = 3.14159
R3 = Stage_2.AddOnA1
AddCircle_I1 = Pi / 4 * R3 ^ 4
'I for addon shape 2 (Circle)
Pi = 3.14159
R4 = Stage_2.AddOnB1
AddCircle_I2 = Pi / 4 * R4 ^ 4
'I for addon shape 3 (Circle)
Pi = 3.14159
R5 = Stage_2.AddOnC1
AddCircle_I3 = Pi / 4 * R5 ^ 4
'I for addon shape 1 (Rectangle)
B1 = Stage_2.AddOnA1
H1 = Stage_2.AddOnA2
AddRectangle_I1 = (B1 * H1 ^ 3) / 12
'I for addon shape 2 (Rectangle)
B2 = Stage_2.AddOnB1
H2 = Stage_2.AddOnB2
AddRectangle_I2 = ((B2 * (H2 ^ 3)) / 12)
'I for addon shape 3 (Rectangle)
B3 = Stage_2.AddOnC1
H3 = Stage_2.AddOnC2
AddRectangle_I3 = (B3 * (H3 ^ 3)) / 12
'I' for addon shape 1 (Triangle)
B4 = Stage_1.AddOnA1
H4 = Stage_1.AddOnA2
AddTriangle_I1 = (B4 * (H4 ^ 3)) / 36
'I' for addon shape 2 (Triangle)
B5 = Stage_1.AddOnB1
H5 = Stage_1.AddOnB2
AddTriangle_I2 = (B5 * H5 ^ 3) / 36
'I' for addon shape 3 (Triangle)
B6 = Stage_1.AddOnC1
H6 = Stage_1.AddOnC2
AddTriangle_I3 = (B6 * H6 ^ 3) / 36
'Calculations
If AddShape1 = "Circle" Then
I = Stage_2.Txtin1 + AddCircle_I1
ElseIf AddShape1 = "Circle" And AddShape2 = "Circle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddCircle_I2
ElseIf AddShape1 = "Circle" And AddShape2 = "Circle" And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddCircle_I2 + AddCircle_I3
ElseIf AddShape1 = "Rectangle " Then
I = Stage_2.Txtin1 + AddRectangle_I1
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Rectangle " Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddRectangle_I2
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Rectangle " And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddRectangle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Circle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddCircle_I2
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Triangle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddTriangle_I2
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Rectangle " And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddRectangle_I2 + AddCircle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Rectangle " And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddRectangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Circle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddCircle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Circle" And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddCircle_I2 + AddCircle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Triangle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddTriangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Triangle" And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddTriangle_I2 + AddCircle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Triangle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddTriangle_I2
ElseIf AddShape1 = "Circle" And AddShape2 = "Rectangle " Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddRectangle_I2
ElseIf AddShape1 = "Circle" And AddShape2 = "Rectangle " And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddRectangle_I2 + AddCircle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Circle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddCircle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Triangle" And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddTriangle_I2 + AddCircle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Triangle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddTriangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Circle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddCircle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Triangle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddTriangle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Rectangle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddRectangle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Circle" And AddShape2 = "Rectangle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddCircle_I1 + AddRectangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Triangle" Then
I = Stage_2.Txtin1 + AddTriangle_I1
ElseIf AddShape1 = "Triangle" And AddShape2 = "Triangle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddTriangle_I2
ElseIf AddShape1 = "Triangle" And AddShape2 = "Circle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddCircle_I2
ElseIf AddShape1 = "Triangle" And AddShape2 = "Rectangle " Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddRectangle_I2
ElseIf AddShape1 = "Triangle" And AddShape2 = "Triangle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddTriangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Triangle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddTriangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Triangle" And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddTriangle_I2 + AddCircle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Triangle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddTriangle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Rectangle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddRectangle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Rectangle " And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddRectangle_I2 + AddCircle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Circle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddCircle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Circle" And AddShape_3 = "Triangle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddCircle_I2 + AddTriangle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Circle" And AddShape_3 = "Circle" Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddCircle_I2 + AddCircle_I3
ElseIf AddShape1 = "Triangle" And AddShape2 = "Rectangle " And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddTriangle_I1 + AddRectangle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Triangle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddTriangle_I2 + AddRectangle_I3
ElseIf AddShape1 = "Rectangle " And AddShape2 = "Circle" And AddShape_3 = "Rectangle " Then
I = Stage_2.Txtin1 + AddRectangle_I1 + AddCircle_I2 + AddRectangle_I3
Else
MsgBox "Error"
End If
Stage_2.txtIn.Value = I
End Sub