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

  • Автор темы lordblack
  • Дата начала
L

lordblack

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

Код:
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
 
V

VBAaddict

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


Код:
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) ' Установка параметров объекта aShape 

If i = Me!Количество.Value Then X = m(z) / 2 + X ' Проверка условий Если -> То вычисление
aShape.Text = Me.Обозначение.Value ' Установка параметров объекта aShape 

Next i ' маркер окончания цикла
RecSet.MoveNext 'переместиться к следующей записи
Loop


End Sub