vars_define.bas

步进电机控制程序

Attribute VB_Name = "Vars_Define"
' 变量定义模块
' -----------------------------------------------------------
' 系统配置
' -----------------------------------------------------------
Public Const CW = 0             '顺时针方向信号
Public Const CCW = 1            '逆时钟方向信号

Public Const PulseChannel = 1   '脉冲信号通道
Public Const DirChannel = 2     '方向信号通道
' -----------------------------------------------------------

' -----------------------------------------------------------
' 步进电机运行参数
' -----------------------------------------------------------
Public startFQ  As Long        '起动频率
Public patrolFQ As Long        '运行频率
Public accDura  As Double      '加速时间常数
Public decDura  As Double      '减速时间常数

Public FQSubdiv As Integer     '频率细分数
Public accFQTable              '加速频率表，数组大小由细分数调整
Public accPCTable              '加速脉冲数表，数组大小由细分数调整
Public decFQtable              '减速频率表，数组大小由细分数调整
Public decPCtable              '减速脉冲数表，数组大小由细分数调整
Public accPC As Long           '加速表脉冲个数总和
Public decPC As Long           '减速表脉冲个数总和
' -----------------------------------------------------------

' -----------------------------------------------------------
' 运动参数
' -----------------------------------------------------------
Public disToMove    As Long     '要移动的脉冲数
Public realAccDura  As Double   '实际加速时间
Public realDecDura  As Double   '实际减速时间
Public realAccPC    As Long     '加速脉冲数
Public realPatrolPC As Long     '等速运行脉冲数
Public realDecPC    As Long     '减速脉冲数
Public motionExcutionSequence   '动作执行序列
' -----------------------------------------------------------

' -----------------------------------------------------------
' 其它参数
' -----------------------------------------------------------
Public pulseSendCount As Long