User`s manual

http://www.adtechcn.com 75
'*****************judgment of speed setup ****************
' Setting scope of start velocity and drive velocity: (1～2M)
' Setting scope of acceleration: (1×125～64000×125)
'*****************************************************
'***************************interpolation***************************************
' ADT-8840 control card can realize interpolation of any two,, three or four axes
'***************************** four-axis interpolation*****************************
If m_bX.value = vbChecked And m_bY.value = vbChecked And m_bZ.value = vbChecked
And m_bA.value = vbChecked Then
Setup_Speed 1, m_nStartV(0).Text, m_nSpeed(0).Text, m_nAdd(0).Text
Interp_Move4 m_nPulse(0).Text, m_nPulse(1).Text, m_nPulse(2).Text,
m_nPulse(3).Text
'************************* three-axis interpolation **********************************
'************************** interpolation of axis X, Y and Z**************************
ElseIf m_bX.value = vbChecked And m_bY.value = vbChecked And m_bZ.value =
vbChecked Then
Setup_Speed 1, m_nStartV(0).Text, m_nSpeed(0).Text, m_nAdd(0).Text
Interp_Move3 1, 2, 3, m_nPulse(0).Text, m_nPulse(1).Text, m_nPulse(2).Text
'************************* interpolation of axis X, Y and A ************************
ElseIf m_bX.value = vbChecked And m_bY.value = vbChecked And m_bA.value =
vbChecked Then
Setup_Speed 1, m_nStartV(0).Text, m_nSpeed(0).Text, m_nAdd(0).Text
Interp_Move3 1, 2, 4, m_nPulse(0).Text, m_nPulse(1).Text, m_nPulse(3).Text
'************************* interpolation of axis X, Z and A ************************
ElseIf m_bX.value = vbChecked And m_bZ.value = vbChecked And m_bA.value =
vbChecked Then
Setup_Speed 1, m_nStartV(0).Text, m_nSpeed(0).Text, m_nAdd(0).Text
Interp_Move3 1, 3, 4, m_nPulse(0).Text, m_nPulse(2).Text, m_nPulse(3).Text
'************************* interpolation of axis Y, Z and A **************************
ElseIf m_bY.value = vbChecked And m_bZ.value = vbChecked And m_bA.value =
vbChecked Then
Setup_Speed 2, m_nStartV(1).Text, m_nSpeed(1).Text, m_nAdd(1).Text
Interp_Move3 2, 3, 4, m_nPulse(1).Text, m_nPulse(2).Text, m_nPulse(3).Text
'************************* two-axis interpolation**********************************
'************************ interpolation of axis X and Y*****************************
ElseIf m_bX.value = vbChecked And m_bY.value = vbChecked Then
Setup_Speed 1, m_nStartV(0).Text, m_nSpeed(0).Text, m_nAdd(0).Text
Interp_Move2 1, 2, m_nPulse(0).Text, m_nPulse(1).Text
'************************ interpolation of axis X and Z***************************
ElseIf m_bX.value = vbChecked And m_bZ.value = vbChecked Then
Setup_Speed 1, m_nStartV(0).Text, m_nSpeed(0).Text, m_nAdd(0).Text
Interp_Move2 1, 3, m_nPulse(0).Text, m_nPulse(2).Text
'*********************** interpolation of axis X and A*****************************
ElseIf m_bX.value = vbChecked And m_bA.value = vbChecked Then