Информационные технологии в производстве текстильных изделий. Воронин С.Ю. - 42 стр.

UptoLike

ВУЗ: 

ИВГПУ | Иваново

Составители: 

Рубрика: 

42
a5 = Val(Text12.Text)
a6 = Val(Text13.Text)
‘ Расчет параметров
Число_уточин = Int(a6 * Длина_ткани ^ 7 / 7+a5 *_
Длина_ткани ^ 6 / 6 _
+ a4 * Длина_ткани ^ 5 / 5 + a3 * Длина_ткани ^4 / 4 _
+ a2 * _ Длина_ткани ^ 3 / 3 +a1 * Длина_ткани ^ 2 /2 _
+a0 * Длина_ткани)
Число_уточин_по_ТУ = Int(Плотность_по_утку * 10 *_
Длина_ткани)
Расход_утка = Число_уточин * Текс_утка * _
((Ширина_заправки + 2 * _
Ширина_кромки) / 100) * 10 ^ -6
Расход_утка_по_ТУ = Число_уточин _по_ТУ * Текс_утка _
* ((Ширина_заправки + 2 * Ширина_кромки) / 100)* 10_
^ -6
‘Вывод рассчитанных значений в форму
Label17.Caption = Число_уточин
Label18.caption = Расход_утка * 100 / Длина_ткани
Label19.caption = Расход_утка_по_ТУ * 100 / _
Длина_ткани
End Sub
‘Выход из программы
Private Sub Command3_Click()
End
End Sub
5.5. Запуск программы
5.5.1. Запуск программы осуществляется из меню Run системы щелчком
по кнопке Start панели инструментов или же нажатием кнопки F5.
5.5.2. В текстовые поля, выделенные белым цветом, следует ввести
численные значения соответствующих величин: линейной плотности утка,
ширины проборки в бердо, плотности ткани по утку, значений коэффициентов
математической модели и др.
5.5.3. Для расчета расхода утка на 100 метров ткани следует щелкнуть
мышью по кнопке Вычислить. В нижнем правом углу окна программы
(рис.5.4) появятся результаты расчета. 
      a5 = Val(Text12.Text)
      a6 = Val(Text13.Text)

‘ Расчет параметров
Число_уточин = Int(a6 * Длина_ткани ^ 7 / 7+a5 *_
Длина_ткани ^ 6 / 6 _
 + a4 * Длина_ткани ^ 5 / 5 + a3 * Длина_ткани ^4 / 4 _
+ a2 * _ Длина_ткани ^ 3 / 3 +a1 * Длина_ткани ^ 2 /2 _
+a0 * Длина_ткани)
Число_уточин_по_ТУ = Int(Плотность_по_утку * 10 *_
Длина_ткани)
Расход_утка   =    Число_уточин   *    Текс_утка   *   _
((Ширина_заправки + 2 * _
      Ширина_кромки) / 100) * 10 ^ -6
Расход_утка_по_ТУ = Число_уточин _по_ТУ * Текс_утка _
* ((Ширина_заправки + 2 *    Ширина_кромки) / 100)* 10_
^ -6

‘Вывод рассчитанных значений в форму

Label17.Caption = Число_уточин
Label18.caption = Расход_утка * 100 / Длина_ткани

Label19.caption =       Расход_утка_по_ТУ * 100 / _
Длина_ткани
End Sub

‘Выход из программы

Private Sub Command3_Click()
 End
End Sub
                    5.5. Запуск программы

      5.5.1. Запуск программы осуществляется из меню Run системы щелчком
по кнопке Start панели инструментов или же нажатием кнопки F5.
      5.5.2. В текстовые поля, выделенные белым цветом, следует ввести
численные значения соответствующих величин: линейной плотности утка,
ширины проборки в бердо, плотности ткани по утку, значений коэффициентов
математической модели и др.
      5.5.3. Для расчета расхода утка на 100 метров ткани следует щелкнуть
мышью по кнопке Вычислить. В нижнем правом углу окна программы
(рис.5.4) появятся результаты расчета.



                                    42

Страницы