dmc2000.bas

DMC2000系列运动控制卡的测试软件.需安装运动控制卡后才能运行.

Attribute VB_Name = "Dmc2000"
Option Explicit
 
'初始化相关函数
Declare Function Board_init Lib "dmc2000.dll" () As Integer
Declare Function Get_board_base Lib "dmc2000.dll" (ByVal CardNo As Integer) As Long
Declare Sub Board_close Lib "dmc2000.dll" (ByVal CardNo As Integer)
'中断相关函数
Declare Function Get_irq_status Lib "dmc2000.dll" (ByVal CardNo As Integer) As Integer
Declare Function Get_irq_channel Lib "dmc2000.dll" (ByVal CardNo As Integer) As Integer
Declare Sub Set_int_control Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal intFlag As Integer)
Declare Sub Set_int_enable Lib "dmc2000.dll" (ByVal CardNo As Integer, ByRef phEvent As Long)
Declare Sub Set_int_disable Lib "dmc2000.dll" (ByVal CardNo As Integer)
Declare Sub Set_int_factor Lib "dmc2000.dll" (ByVal axis As Integer, ByVal int_factor As Integer)
Declare Function Get_int_status Lib "dmc2000.dll" (ByVal axis As Integer) As Long
' I/O相关函数
Declare Sub Set_pls_outmode Lib "dmc2000.dll" (ByVal axis As Integer, ByVal OutMode As Integer)
Declare Sub Set_pls_iptmode Lib "dmc2000.dll" (ByVal axis As Integer, ByVal Pls_Iptmode As Integer)
Declare Sub Set_cnt_src Lib "dmc2000.dll" (ByVal axis As Integer, ByVal cnt_src As Integer)
Declare Sub Set_sd_logic Lib "dmc2000.dll" (ByVal axis As Integer, ByVal Sd_Logic As Integer, ByVal sd_latch As Integer, ByVal sd_enable As Integer)
Declare Sub Set_sd_stop_mode Lib "dmc2000.dll" (ByVal axis As Integer, ByVal stop_mode As Integer)
Declare Sub Set_alm_logic Lib "dmc2000.dll" (ByVal axis As Integer, ByVal alm_logic As Integer, ByVal alm_mode As Integer)
Declare Sub Set_erc_enable Lib "dmc2000.dll" (ByVal axis As Integer, ByVal erc_enable As Integer)
Declare Sub Set_inp_logic Lib "dmc2000.dll" (ByVal axis As Integer, ByVal inp_logic As Integer, ByVal inp_enable As Integer)

Declare Function Get_io_status Lib "dmc2000.dll" (ByVal axis As Integer) As Long
Declare Sub Out_bit Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal BitNo As Integer, ByVal On_Off As Integer)
Declare Function Get_out_status Lib "dmc2000.dll" (ByVal CardNo As Integer) As Integer

Declare Function In_bit Lib "dmc2000.dll" (ByVal BitNo As Integer) As Integer
'复位函数
Declare Sub Set_home_config Lib "dmc2000.dll" (ByVal axis As Integer, ByVal home_mode As Integer, ByVal org_logic As Integer, ByVal org_latch As Integer, ByVal Ez_Logic As Integer)
Declare Sub Home_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal str_vel As Double, ByVal max_vel As Double, ByVal accel As Double)
'连续运动函数
Declare Sub V_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal str_vel As Double, ByVal max_vel As Double, ByVal accel As Double)
Declare Sub Sv_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tlacc As Double, ByVal Tsacc As Double)
'动态变速函数
Declare Sub V_change Lib "dmc2000.dll" (ByVal axis As Integer, ByVal max_vel As Double, ByVal accel As Double)
'移动到指定位置函数
Declare Sub Start_a_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal pos As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tacc As Double)
Declare Sub A_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal pos As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tacc As Double)

Declare Sub Start_s_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal pos As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tlacc As Double, ByVal Tsacc As Double)
Declare Sub S_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal pos As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tlacc As Double, ByVal Tsacc As Double)
'作相对位移运动函数
Declare Sub Start_r_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal distance As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tacc As Double)
Declare Sub R_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal distance As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tacc As Double)

Declare Sub Start_rs_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal distance As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tlacc As Double, ByVal Tsacc As Double)
Declare Sub Rs_move Lib "dmc2000.dll" (ByVal axis As Integer, ByVal distance As Double, ByVal str_vel As Double, ByVal max_vel As Double, ByVal Tlacc As Double, ByVal Tsacc As Double)
'多轴运动设置函数
Declare Sub Map_axes Lib "dmc2000.dll" (ByVal axis_total As Integer, map_array As Integer)
Declare Sub Set_move_speed Lib "dmc2000.dll" (ByVal str_vel As Double, ByVal max_vel As Double)
Declare Sub Set_move_accel Lib "dmc2000.dll" (ByVal Tacc As Double)
'两轴插补函数
Declare Sub Start_move_xy Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal Position1 As Double, ByVal Position2 As Double)
Declare Sub Move_xy Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal Position1 As Double, ByVal Position2 As Double)

Declare Sub Start_move_zu Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal Position1 As Double, ByVal Position2 As Double)
Declare Sub Move_zu Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal Position1 As Double, ByVal Position2 As Double)

Declare Sub Arc_xy Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal center_1 As Double, ByVal center_2 As Double, ByVal angle As Double)
Declare Sub Arc_zu Lib "dmc2000.dll" (ByVal CardNo As Integer, ByVal center_1 As Double, ByVal center_2 As Double, ByVal angle As Double)
'多轴运动函数
Declare Sub Start_move_all Lib "dmc2000.dll" (ByVal axis_total As Integer, ByRef map_array As Integer, ByRef pos As Double, ByRef str_vel As Double, ByRef max_vel As Double, ByRef Tacc As Double)
Declare Sub Move_all Lib "dmc2000.dll" (ByVal axis_total As Integer, ByRef map_array As Integer, ByRef pos As Double, ByRef str_vel As Double, ByRef max_vel As Double, ByRef Tacc As Double)
'运动状态检测函数
Declare Function Motion_done Lib "dmc2000.dll" (ByVal axis As Integer) As Integer
Declare Sub Wait_for_done Lib "dmc2000.dll" (ByVal axis As Integer)
Declare Sub Wait_for_all Lib "dmc2000.dll" (ByVal axis_tatol As Integer, marray As Long)

'位置读取函数
Declare Sub Set_position Lib "dmc2000.dll" (ByVal axis As Integer, ByVal pos As Double)
Declare Function Get_position Lib "dmc2000.dll" (ByVal axis As Integer) As Double
Declare Sub Set_command Lib "dmc2000.dll" (ByVal axis As Integer, ByVal pos As Double)
Declare Function Get_command Lib "dmc2000.dll" (ByVal axis As Integer) As Double
Declare Sub Decel_stop Lib "dmc2000.dll" (ByVal axis As Integer, ByVal Tdecel As Double)