Курсовая работа: Анализ основных этапов построения и решения математических моделей оптимизации организационных структур в системе менеджмента качества

Picture1.PSet (20, 400 - i * 20), RGB(255, 255, 255)

Picture1.Print i

Picture1.Line (40 + i * 20, 400)-(40 + i * 20, 405)

Picture1.PSet (30 + i * 20, 405), RGB(255, 255, 255)

Picture1.Print i

Picture1.Line (40 + Val(Text7) * 20, 10)-(40 + Val(Text7) * 20, 400)

Picture1.Line (40, 400 - Val(Text8) * 20)-(450, 400 - Val(Text8) * 20)

Picture1.Line (40, 400 - x3 * 20)-(40 + x4 * 20, 400), RGB(0, 255, 0)

Next

End Sub

Private Sub Command2_Click()

Picture3.Cls

x6 = (Val(Text1) - Val(Text2) * 8 * Val(Text7)) / (Val(Text3) * 8)

x5 = (Val(Text1) - Val(Text3) * 8 * Val(Text8)) / (Val(Text2) * 8)

z = Val(Text7) * x1 * 8 + Val(Text8) * x2 * 8

If Val(Text2) / Val(Text3) > x1 / x2 Then

d = x5 * 8 * x1 + Val(Text8) * 8 * x2

Picture3.Print d

Picture1.Line (40 + (z / (8 * x1) * 20) - (Val(Text7) - x5) * 20, 400)-(40 - (Val(Text7) - x5) * 20, 400 - (z / (8 * x2) * 20)), RGB(255, 0, 0)

Else

Picture1.Line (40 + (z / (8 * x1) * 20), 400 + (Val(Text8) - x6) * 20)-(40, 400 - (z / (8 * x2) * 20) + (Val(Text8) - x6) * 20), RGB(255, 0, 0)

d = Val(Text7) * 8 * x1 + x6 * 8 * x2

Picture3.Print d

End If

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()