dmc3000.bas

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

Attribute VB_Name = "Module1"
Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                                 DMC3000 V1.1 函数列表                           ''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 初始化函数                      '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_board_init Lib "dmc3000.dll" () As Integer
Declare Function d3000_board_close Lib "dmc3000.dll" () As Integer
Declare Function d3000_get_base_addr Lib "dmc3000.dll" () As Long
Declare Function d3000_get_irq_channel Lib "dmc3000.dll" () As Long

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 脉冲输入/输出构造函数           '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_set_pls_outmode Lib "dmc3000.dll" (ByVal axis As Integer, ByVal outmode As Integer) As Integer
Declare Function d3000_set_pls_iptmode Lib "dmc3000.dll" (ByVal axis As Integer, ByVal iptmode As Integer) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 速度模式运动函数                '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_start_tv_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer
Declare Function d3000_start_sv_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_change_speed Lib "dmc3000.dll" (ByVal axis As Integer, ByVal NewVel As Long, ByVal Tacc As Double) As Integer
Declare Function d3000_decel_stop Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Tdec As Double) As Integer
Declare Function d3000_emg_stop Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
Declare Function d3000_get_speed Lib "dmc3000.dll" (ByVal axis As Integer) As Long

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 单轴位置模式函数                '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_start_t_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Dist 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 Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Pos 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 Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Dist 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 Lib "dmc3000.dll" (ByVal axis As Integer, ByVal Dist As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_change_target_pos Lib "dmc3000.dll" (ByVal axis As Integer, ByVal NewPos As Long) As Integer
Declare Function d3000_backlash_comp Lib "dmc3000.dll" (ByVal axis As Integer, ByVal BCompPulse As Integer) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 线性插补函数                    '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_start_t_line2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Dist1 As Long, ByVal Dist2 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_line2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Dist1 As Long, ByVal Dist2 As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_start_ta_line2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Pos1 As Long, ByVal Pos2 As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_start_sa_line2 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Pos1 As Long, ByVal Pos2 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_line3 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Dist1 As Long, ByVal Dist2 As Long, ByVal Dist3 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_line3 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Dist1 As Long, ByVal Dist2 As Long, ByVal Dist3 As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tsacc As Double) As Integer
Declare Function d3000_start_ta_line3 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Pos1 As Long, ByVal Pos2 As Long, ByVal Pos3 As Long, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double, ByVal Tdec As Double) As Integer
Declare Function d3000_start_sa_line3 Lib "dmc3000.dll" (AxisArray As Integer, ByVal Pos1 As Long, ByVal Pos2 As Long, ByVal Pos3 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 Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetC1 As Long, ByVal OffsetC2 As Long, ByVal OffsetE1 As Long, ByVal OffsetE2 As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_start_a_arc Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetC1 As Long, ByVal OffsetC2 As Long, ByVal OffsetE1 As Long, ByVal OffsetE2 As Long, ByVal Dir As Integer, ByVal MaxVel As Long) As Integer
Declare Function d3000_hspeed_arc Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetC1 As Long, ByVal OffsetC2 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_arc Lib "dmc3000.dll" (AxisArray As Integer, ByVal OffsetC1 As Long, ByVal OffsetC2 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_home_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer
Declare Function d3000_index_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal StrVel As Long, ByVal MaxVel As Long, ByVal Tacc As Double) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 手轮/JOG运动函数                '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_hwheel_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_jog_move Lib "dmc3000.dll" (ByVal axis As Integer, ByVal mode As Integer, ByVal speed As Long) As Integer

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 运动状态读取函数              '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_check_done Lib "dmc3000.dll" (ByVal axis As Integer) As Integer
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                 位置设定和读取函数              '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function d3000_get_encoder_pos Lib "dmc3000.dll" (ByVal axis As Integer) As Long