dmc3000.bas

工控行业的控制卡驱动和应用程序, 能用于演示简单的pci控制卡的加工应用.

Declare Function d3000_set_encoder_pos Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Pos As Long) As Integer
Declare Function d3000_get_command_pos Lib "dmc3000.dll" (ByVal axis As Integer) As Long
Declare Function d3000_set_command_pos Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Pos As Long) As Integer
Declare Function d3000_get_target_pos Lib "dmc3000.dll" (ByVal axis As Integer) As Long

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 位置比较函数                    '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_enable_soft_limit Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Lim_select As Integer, ByVal action As Integer) As Integer
Declare Function d3000_disable_soft_limit Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
Declare Function d3000_set_soft_limit Lib "dmc3000.dll" (ByVal axis As Integer, ByVal SLMode As Integer, ByVal PLimit As Long, ByVal NLimit As Long) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 连续插补运动函数                '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_check_conti_buffer Lib "dmc3000.dll" (ByVal axis As Integer) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 通用输出函数                    '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_in_bit Lib "dmc3000.dll" (ByVal BitNo As Integer) As Integer
Declare Function d3000_out_bit Lib "dmc3000.dll" (ByVal BitNo As Integer, ByVal BitData As Integer) As Integer
Declare Function d3000_get_outbit Lib "dmc3000.dll" (ByVal BitNo As Integer) As Integer
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 专用I/O接口函数                 '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_set_home Lib "dmc3000.dll" (ByVal axis As Integer, ByVal home_mode As Integer, ByVal org_logic As Integer) As Integer
Declare Function d3000_set_index Lib "dmc3000.dll" (ByVal axis As Integer, ByVal index_mode As Integer, ByVal ez_logic As Integer) As Integer
Declare Function d3000_set_hwheel Lib "dmc3000.dll" (ByVal axis As Integer, ByVal hwheel_mode As Integer) As Integer
Declare Function d3000_set_el Lib "dmc3000.dll" (ByVal axis As Integer, ByVal el_select As Integer, ByVal el_mode As Integer, ByVal el_logic As Integer) As Integer
Declare Function d3000_set_alm Lib "dmc3000.dll" (ByVal axis As Integer, ByVal alm_mode As Integer, ByVal alm_logic As Integer) As Integer
Declare Function d3000_set_inp Lib "dmc3000.dll" (ByVal axis As Integer, ByVal inp_mode As Integer, ByVal inp_logic As Integer) As Integer
Declare Function d3000_get_axis_status Lib "dmc3000.dll" (ByVal axis As Integer) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 中断控制函数                    '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_int_control Lib "dmc3000.dll" (ByVal IntFlag As Integer) As Integer
Declare Function d3000_set_int_factor Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Int_Factor As Integer) As Integer
Declare Function d3000_get_int_status Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
Declare Function d3000_link_interrupt Lib "dmc3000.dll" () As Integer






''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                             兼容函数列表                                                        ''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_set_feedback_src Lib "dmc3000.dll" (ByVal axis As Integer, ByVal src As Integer) As Integer
Declare Function d3000_get_current_speed Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
Declare Function d3000_start_t_move_xy Lib "dmc3000.dll" (ByVal DistX As Long, ByVal DistY As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_start_ta_move_xy Lib "dmc3000.dll" (ByVal PosX As Long, ByVal PosY As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_start_s_move_xy Lib "dmc3000.dll" (ByVal DistX As Long, ByVal DistY As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_start_sa_move_xy Lib "dmc3000.dll" (ByVal PosX As Long, ByVal PosY As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_start_t_move_zu Lib "dmc3000.dll" (ByVal DistZ As Long, ByVal DistU As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_start_ta_move_zu Lib "dmc3000.dll" (ByVal PosZ As Long, ByVal PosU As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_start_s_move_zu Lib "dmc3000.dll" (ByVal DistZ As Long, ByVal DistU As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_start_sa_move_zu Lib "dmc3000.dll" (ByVal PosZ As Long, ByVal PosU As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_start_arc_xy Lib "dmc3000.dll" (ByVal OffsetCx As Long, ByVal OffsetCy As Long, ByVal OffsetEx As Long, ByVal OffsetEy As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_start_a_arc_xy Lib "dmc3000.dll" (ByVal Cx As Long, ByVal Cy As Long, ByVal Ex As Long, ByVal Ey As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_start_arc_zu Lib "dmc3000.dll" (ByVal OffsetCz As Long, ByVal OffsetCu As Long, ByVal OffsetEz As Long, ByVal OffsetEu As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_start_a_arc_zu Lib "dmc3000.dll" (ByVal Cx As Long, ByVal Cy As Long, ByVal Ex As Long, ByVal Ey As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_start_arc2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetCx As Long, ByVal OffsetCy As Long, ByVal OffsetEx As Long, ByVal OffsetEy As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_start_a_arc2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetCx As Long, ByVal OffsetCy As Long, ByVal OffsetEx As Long, ByVal OffsetEy As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_hspeed_arc2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetCx As Long, ByVal OffsetCy As Long, ByVal OffsetE1 As Long, ByVal OffsetE2 As Long, ByVal Dir As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_hspeed_a_arc2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetCx As Long, ByVal OffsetCy As Long, ByVal OffsetE1 As Long, ByVal OffsetE2 As Long, ByVal Dir As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_handwheel_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal mode As Integer, ByVal pulse As Long, ByVal speed As Long) As Integer
Declare Function d3000_motion_done Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
Declare Function d3000_get_position Lib "dmc3000.dll" (ByVal axis As Integer) As Long
Declare Function d3000_set_position Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Pos As Long) As Integer
Declare Function d3000_get_command Lib "dmc3000.dll" (ByVal axis As Integer) As Long
Declare Function d3000_set_command Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Pos As Long) As Integer
Declare Function d3000_reset_target_pos Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
Declare Function d3000_get_rest_command Lib "dmc3000.dll" (ByVal axis As Integer) As Long
Declare Function d3000_set_conti_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal conti_flag As Integer) As Integer
Declare Function d3000_get_out_bit Lib "dmc3000.dll" (ByVal AxisNo As Integer) As Integer
Declare Function d3000_get_in_bit Lib "dmc3000.dll" (ByVal axis As Integer) As Integer