adt8940.bas

运动控制卡的详细开发资料

'cardno     卡号
'axis       轴号(1 - 4)
'value      当前驱动速度的指针
'返回值     0: 正确 1: 错误

Declare Function pmove Lib "adt8940.dll" (ByVal cardno As Long, ByVal axis As Long, ByVal value As Long) As Long
'功能: 定量驱动
'cardno     卡号
'axis       轴号(1 - 4)
'value      输出的脉冲数(-268435455～+268435455)
'           >0：正方向驱动      <0：负方向驱动
'返回值     0: 正确     1: 错误

Declare Function dec_stop Lib "adt8940.dll" (ByVal cardno As Long, ByVal axis As Long) As Long
'功能: 驱动减速停止
'cardno     卡号
'axis       轴号(1 - 4)
'返回值     0: 正确 1: 错误

Declare Function sudden_stop Lib "adt8940.dll" (ByVal cardno As Long, ByVal axis As Long) As Long
'功能: 驱动立即停止
'cardno     卡号
'axis       轴号(1 - 4)
'返回值     0: 正确 1: 错误

Declare Function inp_move2 Lib "adt8940.dll" (ByVal cardno As Long, ByVal axis1 As Long, ByVal axis2 As Long, ByVal pulse1 As Long, ByVal pulse2 As Long) As Long
'功能: 两轴直线插补
'cardno         卡号
'axis1,axis2    参与插补的轴号
'pulse1,pulse2  移动的相对距离(-8388608～+8388607)
'返回值         0: 正确 1: 错误

Declare Function inp_move3 Lib "adt8940.dll" (ByVal cardno As Long, ByVal axis1 As Long, ByVal axis2 As Long, ByVal axis3 As Long, ByVal pulse1 As Long, ByVal pulse2 As Long, ByVal pulse3 As Long) As Long
'功能: 三轴直线插补
'cardno                 卡号
'axis1,axis2,axis3      参与插补的轴号
'pulse1,pulse2,pulse3   移动的相对距离(-8388608～+8388607)
'返回值                 0: 正确 1: 错误

Declare Function inp_move4 Lib "adt8940.dll" (ByVal cardno As Long, ByVal pulse1 As Long, ByVal pulse2 As Long, ByVal pulse3 As Long, ByVal pulse4 As Long) As Long
'功能: 四轴直线插补
'cardno 卡号
'pulse1,pulse2,pulse3,pulse4 XYZW四轴移动的相对距离(-8388608～+8388607)
'返回值 0: 正确 1: 错误

Declare Function read_bit Lib "adt8940.dll" (ByVal cardno As Long, ByVal number As Long) As Long
'功能: 读取输入点
'cardno 卡号
'number 输入点(0 - 39)
'返回值 0: 低电平 1: 高电平 -1: 错误

Declare Function write_bit Lib "adt8940.dll" (ByVal cardno As Long, ByVal number As Long, ByVal value As Long) As Long
'功能: 输出
'cardno 卡号
'number 输出点(0 - 15)
'value  0: 低电平   1: 高电平
'返回值  0: 正确     1: 错误

Declare Function get_hardware_ver Lib "adt8940.dll" (ByVal cardno As Integer) As Integer
'功能: 获取硬件版本
'cardno     卡号
'返回值     1: 硬件第一版
'           2: 硬件第二版

Declare Function set_suddenstop_mode Lib "adt8940.dll" (ByVal cardno As Integer, ByVal v As Integer, ByVal logic As Integer) As Integer
'功能: 硬件停止模式设置
'cardno     卡号
'v          0: 无效 1: 有效
'logic      0: 低电平有效 1: 高电平有效
'返回值     0: 正确 1: 错误
'硬件停止信号固定使用P3端子板34引脚 (IN31)
Declare Function set_delay_time Lib "adt8940.dll" (ByVal cardno As Integer, ByVal time As Long) As Integer
'功能: 设定延时时间
'cardno 卡号
'time   延时时间
'返回值 0: 正确 1: 错误
'时间单位为1/8us

Declare Function get_delay_status Lib "adt8940.dll" (ByVal cardno As Integer) As Integer
'功能: 获取延时状态
'cardno 卡号
'返回值  0: 延时结束 1: 延时进行中


'******************************应用型库函数****************************
 
Declare Function adt8940_init_board Lib "adt8940.dll" () As Integer '初始化函数
''回原点函数 axis、axis1、axis2、axis3、axis4—轴号；pfn—指针函数，对应该模块中的MyProc子程序，用于转让控制权限
Declare Function home1 Lib "adt8940.dll" (ByVal axis As Integer, ByVal pfn As Long) As Integer
Declare Function home2 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal axis2 As Integer, ByVal pfn As Long) As Integer
Declare Function home3 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal axis2 As Integer, ByVal axis3 As Integer, ByVal pfn As Long) As Integer
Declare Function home4 Lib "adt8940.dll" (ByVal pfn As Long) As Integer
''联动函数d、d1、d2、d3、d4—目标位置；oppmode—运动模式,0—相对模式，1—绝对模式；speedmode—速度模式，0—加工速度，1—空移速度
Declare Function work_move1 Lib "adt8940.dll" (ByVal axis As Integer, ByVal d As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function work_move2 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal d1 As Single, ByVal axis2 As Integer, ByVal d2 As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function work_move3 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal d1 As Single, ByVal axis2 As Integer, ByVal d2 As Single, ByVal axis3 As Integer, ByVal d3 As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function work_move4 Lib "adt8940.dll" (ByVal d1 As Single, ByVal d2 As Single, ByVal d3 As Single, ByVal d4 As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
''插补函数d、d1、d2、d3、d4—目标位置；oppmode—运动模式,0—相对模式，1—绝对模式；speedmode—速度模式，0—加工速度，1—空移速度
Declare Function work_inp2 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal d1 As Single, ByVal axis2 As Integer, ByVal d2 As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function work_inp3 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal d1 As Single, ByVal axis2 As Integer, ByVal d2 As Single, ByVal axis3 As Integer, ByVal d3 As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function work_inp4 Lib "adt8940.dll" (ByVal d1 As Single, ByVal d2 As Single, ByVal d3 As Single, ByVal d4 As Single, ByVal oppmode As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function work_arc Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal axis2 As Integer, cood As Single, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
''手动函数dir—方向，0—正向，1—负向
Declare Function hand_move Lib "adt8940.dll" (ByVal axis As Integer, ByVal dir As Integer, ByVal pfn As Long) As Integer
''连续运动
Declare Function continue_move1 Lib "adt8940.dll" (ByVal axis As Integer, ByVal dir As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function continue_move2 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal dir1 As Integer, ByVal axis2 As Integer, ByVal dir2 As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function continue_move3 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal dir1 As Integer, ByVal axis2 As Integer, ByVal dir2 As Integer, ByVal axis3 As Integer, ByVal dir3 As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
Declare Function continue_move4 Lib "adt8940.dll" (ByVal dir1 As Integer, ByVal dir2 As Integer, ByVal dir3 As Integer, ByVal dir4 As Integer, ByVal speedmode As Integer, ByVal pfn As Long) As Integer
''自由移动 联动方式
Declare Function free_move1 Lib "adt8940.dll" (ByVal axis As Integer, ByVal d As Single, ByVal startv As Single, ByVal speed As Single, ByVal addtime As Single, ByVal oppmode As Integer, ByVal pfn As Long) As Integer
Declare Function free_move2 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal d1 As Single, ByVal startv1 As Single, ByVal speed1 As Single, ByVal addtime1 As Single, ByVal axis2 As Integer, ByVal d2 As Single, ByVal startv2 As Single, ByVal speed2 As Single, ByVal addtime2 As Single, ByVal oppmode As Integer, ByVal pfn As Long) As Integer
Declare Function free_move3 Lib "adt8940.dll" (ByVal axis1 As Integer, ByVal d1 As Single, ByVal startv1 As Single, ByVal speed1 As Single, ByVal addtime1 As Single, ByVal axis2 As Integer, ByVal d2 As Single, ByVal startv2 As Single, ByVal speed2 As Single, ByVal addtime2 As Single, ByVal axis3 As Integer, ByVal d3 As Single, ByVal startv3 As Single, ByVal speed3 As Single, ByVal addtime3 As Single, ByVal oppmode As Integer, ByVal pfn As Long) As Integer
Declare Function free_move4 Lib "adt8940.dll" (ByVal d1 As Single, ByVal startv1 As Single, ByVal speed1 As Single, ByVal addtime1 As Single, ByVal d2 As Single, ByVal startv2 As Single, ByVal speed2 As Single, ByVal addtime2 As Single, ByVal d3 As Single, ByVal startv3 As Single, ByVal speed3 As Single, ByVal addtime3 As Single, ByVal d4 As Single, ByVal startv4 As Single, ByVal speed4 As Single, ByVal addtime4 As Single, ByVal oppmode As Integer, ByVal pfn As Long) As Integer
''停止函数
Declare Function one_stop Lib "adt8940.dll" (ByVal axis As Integer, ByVal mode As Integer) As Integer
Declare Function all_stop Lib "adt8940.dll" (ByVal mode As Integer) As Integer

''获取信息
Declare Function get_logical_pos Lib "adt8940.dll" (ByVal axis As Integer, ByVal mode As Integer) As Single
Declare Function get_fact_pos Lib "adt8940.dll" (ByVal axis As Integer, ByVal mode As Integer) As Single
Declare Function get_move_speed Lib "adt8940.dll" (ByVal axis As Integer, ByVal mode As Integer) As Single

''IO函数
Declare Function get_input Lib "adt8940.dll" (ByVal number As Integer) As Integer
Declare Function set_output Lib "adt8940.dll" (ByVal nunber As Integer, ByVal status As Integer) As Integer


Public Sub MyProc()

    DoEvents

End Sub