Помогите прочитать код

Тема в разделе "Visual Basic", создана пользователем lordblack, 30 ноя 2010.

  1. lordblack

    lordblack Гость

    Доброго время суток!
    Помогите пожалуйста прочитать программный код, понять что выполняется в каждой строчке!
    Просто сам в VBA не очень а опытному человеку думаю не составит большого труда!
    вот этот код

    Код (LotusScript):
    Do While Not RecSet.EOF
    Set stnObj = docsObj(Рабочий_каталог.Value) 'подключаем ВСС файл
    Set mastObj = stnObj.Masters(Название_шейпа.Value)

    Y = Me!Y.Value * 200 / 25.4
    For i = 1 To Me.Количество.Value
    z = z + 1
    m(z) = Me!Длина.Value / 25.4
    If z = 1 Then X = Me!X.Value * 200 / 25.4 + m(z) / 2
    If i = 1 Then X = m(z) / 2 + X + Me!Разрыв.Value * 200 / 25.4
    If z > 1 And Me!Смещение < 0 Then X = m(z) / 2 + X + Me!Разрыв.Value * 200 / 25.4
    If i > 1 And Me!Смещение = 0 Then Y = Y + Me!Разрыв.Value * 200 / 25.4
    Set aShape = pagObj.Drop(mastObj, X, Y)

    If i = Me!Количество.Value Then X = m(z) / 2 + X
    aShape.Text = Me.Обозначение.Value
    Next i
    RecSet.MoveNext
    Loop


    End Sub
     
  2. VBAaddict

    VBAaddict Гость

    Блин, ну написать-то хоть какие-то пояснения в падлу что-ли???!!!
    Откуда, что. Выдрали блин кусок из контекста...
    Чтобы получить грамотный ответ нужно правильно задать вопрос.
    Пишу, но м.б. неточности


     
Загрузка...

Поделиться этой страницей