www.pudn.com > Vb6.0.rar > DMC1000.BAS, change:2003-11-06,size:5261b


Attribute VB_Name = "dmc1000" 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''''''''''''''''DMC1000 V1.1函数列表'''''''''''''''''''''''''''''''''''''' 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
 
'''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''初始化函数'''''''''''''''''''''''''' 
'''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_board_init Lib "dmc1000.dll" () As Integer 
Declare Function d1000_board_close Lib "dmc1000.dll" () As Integer 
Declare Function d1000_get_base_addr Lib "dmc1000.dll" (ByVal CardNo As Integer) As Integer 
Declare Function d1000_get_irq_channel Lib "dmc1000.dll" (ByVal CardNo As Integer) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''脉冲输出设置函数''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_set_pls_outmode Lib "dmc1000.dll" (ByVal axis As Integer, ByVal pls_outmode As Integer) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''速度模式运动函数''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_start_tv_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
Declare Function d1000_start_sv_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
Declare Function d1000_get_speed Lib "dmc1000.dll" (ByVal axis As Integer) As Integer 
Declare Function d1000_change_speed Lib "dmc1000.dll" (ByVal axis As Integer, ByVal NewSpeed As Long) As Integer 
Declare Function d1000_decel_stop Lib "dmc1000.dll" (ByVal axis As Integer) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''单轴位置模式函数''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_start_t_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal Dist As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
Declare Function d1000_start_ta_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal Pos As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
Declare Function d1000_start_s_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal Dist As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
Declare Function d1000_start_sa_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal Pos As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''线性插补函数''''''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_start_t_line Lib "dmc1000.dll" (ByVal TotalAxis As Integer, AxisArray As Integer, DistArray As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
Declare Function d1000_start_ta_line Lib "dmc1000.dll" (ByVal TotalAxis As Integer, AxisArray As Integer, PosArray As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''圆弧插补函数''''''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_start_t_arc Lib "dmc1000.dll" (AxisArray As Integer, ByVal OffsetC1 As Long, ByVal OffsetC2 As Long, ByVal Angle As Double, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''回原点函数''''''''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_home_move Lib "dmc1000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''运动状态检测''''''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_check_done Lib "dmc1000.dll" (ByVal axis As Integer) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''位置设定和读取''''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_get_command_pos Lib "dmc1000.dll" (ByVal axis As Integer) As Integer 
Declare Function d1000_set_command_pos Lib "dmc1000.dll" (ByVal axis As Integer, ByVal Pos As Long) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''通用I/O函数'''''''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_out_bit Lib "dmc1000.dll" (ByVal BitNo As Integer, ByVal BitData As Integer) As Integer 
Declare Function d1000_in_bit Lib "dmc1000.dll" (ByVal BitNo As Integer) As Integer 
Declare Function d1000_get_outbit Lib "dmc1000.dll" (ByVal BitNo As Integer) As Integer 
 
''''''''''''''''''''''''''''''''''''''''''''''' 
''''''''''''专用I/O接口函数'''''''''''''''''''' 
''''''''''''''''''''''''''''''''''''''''''''''' 
Declare Function d1000_set_sd Lib "dmc1000.dll" (ByVal axis As Integer, ByVal SdMode As Integer) As Integer 
Declare Function d1000_get_axis_status Lib "dmc1000.dll" (ByVal axis As Integer) As Integer