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

                    5.4. Составление программного кода

      5.4.1. Разрабатываемая программа будет управляться кнопками
Вычислить и Выход, поэтому программный код связан с информацией,
поступающей при нажатии на эти кнопки. Для создания программного кода
командной кнопки следует дважды щелкнуть на форме мышью. После этого в
центре экрана будет показано окно Cod. Блок кода, связанный с каким-либо
объектом интерфейса, называется процедурой события Visual Basic. Код
процедуры заключается между операторами, указывающими на начало и конец
кода подпрограммы:

     Private Sub Command1_Click()   ‘оператор начала процедуры
     .
     .                              ‘ программный код процедуры
     .
     End Sub                        ‘ оператор окончания процедуры

     5.4.2. Между операторами Private Sub Command1_Click() и End Sub
введем приведенный ниже программный код программы.

‘Декларация переменных
Option Explicit
 Dim    Текс_утка,    Ширина_заправки,   Ширина_кромки,
Длина_ткани as Single
 Dim a0,a1,a2,a3,a4,a5,a6 as Single
 Dim Расход_утка_по_ТУ, Расход_утка as Single
 Dim Наименование_ткани as String
 Dim       Число_уточин_по_ТУ,            Число_уточин,
Плотность_по_утку as Integer

Private Sub Command1_Click()
    Наименование_ткани = Text1.Text
 ‘Преобразование текстовых значений в числовые
    Текс_утка = Val(Text2.Text)
    Ширина_заправки = Val(Text3.Text)
    Ширина_кромки = Val(Text4.Text)
    Длина_ткани = Val(Text5.Text)
    Плотность_по_утку = Val(Text6.Text)
     a0 = Val(Text7.Text)
     a1 = Val(Text8.Text)
     a2 = Val(Text9.Text)
     a3 = Val(Text10.Text)
     a4 = Val(Text11.Text)


                                    41