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

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

Наш партнер Genesis Hackspace
  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 Гость

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


     
Загрузка...
Похожие Темы - Помогите прочитать код
  1. Makc
    Ответов:
    4
    Просмотров:
    70
  2. Sniff
    Ответов:
    1
    Просмотров:
    93
  3. 777
    Ответов:
    2
    Просмотров:
    85
  4. (((_CYBORG_)))
    Ответов:
    9
    Просмотров:
    236
  5. Heavy10110
    Ответов:
    10
    Просмотров:
    284

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