User`s manual

http://www.adtechcn.com 77
m_bPLimit(i - 1).value = 1
Else
m_bPLimit(i - 1).value = 0
End If
' detect positive limit (XLMT+ : 5,YLMT+ :7,ZLMT+ :9,WLMT+ :11)
Read_Input (i - 1) * 2 + 5, value
If value = 0 Then
m_bNLimit(i - 1).value = 1
Else
m_bNLimit(i - 1).value = 0
End If
'detect stop 0 (XSTOP0 : 0,YSTOP0 :1,ZSTOP0 :2,WSTOP0 :3)
Read_Input (i - 1), value
If value = 0 Then
m_bStop0(i - 1).value = 1
Else
m_bStop0(i - 1).value = 0
End If
'detect stop 0 (XSTOP1 : 38,YSTOP1 :39,ZSTOP1 :40,WSTOP1 :41)
Read_Input (i + 37), value
If value = 0 Then
m_bStop1(i - 1).value = 1
Else
m_bStop1(i - 1).value = 0
End If
Next i
If nStatus(0) = 0 And nStatus(1) = 0 And nStatus(2) = 0 And nStatus(3) = 0 Then
'axis’ drive under way
AxisPmove.Enabled = True
InterpMove.Enabled = True
BaseparaSet.Enabled = True
ClearPos.Enabled = True
AxisCmove.Enabled = True
Else
'exis’s drive end
AxisPmove.Enabled = False
InterpMove.Enabled = False
BaseparaSet.Enabled = False
ClearPos.Enabled = False
AxisCmove.Enabled = False
End If
End Sub