function.bas

步进伺服电机运动控制,k880伺服电机运动控制vb测试程序

Attribute VB_Name = "函数"
Option Explicit
Public BoardNum As Long      '板卡选择
Public BoardAdress As Integer   '板卡地址

Public AxisNum As Integer       '轴选择X/Y/Z/U
Public RunMode As Integer       '运行模式选择 0：CW/CCW方式，1：Pulse\DIR方式
Public Run_Start_Value As Integer   '初始速度
Public Run_Value As Integer         '驱动速度
Public Run_A As Integer             '驱动加速度
Public Run_Stable_Pulse As Long     '定长驱动脉冲数

Public Axis_A_X As Long         'X轴的加速度
Public Axis_V_X As Integer      'X轴的当前速度
Public Axis_Lp_X As Long        'X轴的当前位置

Public Axis_A_Y As Long         'Y轴的加速度
Public Axis_V_Y As Integer      'Y轴的当前速度
Public Axis_Lp_Y As Long        'Y轴的当前位置

Public Axis_A_Z As Long         'Z轴的加速度
Public Axis_V_Z As Integer      'Z轴的当前速度
Public Axis_Lp_Z As Long        'Z轴的当前位置

Public Axis_A_U As Long         'U轴的加速度
Public Axis_V_U As Integer      'U轴的当前速度
Public Axis_Lp_U As Long        'U轴的当前位置

Public Run_Read_Byte As Integer     '读取一个字节
Public Run_Current_Value As Integer
Public Run_ep As Integer
Public Run_epset As Integer

Public x4 As Integer
Public x3 As Integer
Public x2 As Integer
Public x1 As Integer
Public y4 As Integer
Public y3 As Integer
Public y2 As Integer
Public y1 As Integer
Public z4 As Integer
Public z3 As Integer
Public z2 As Integer
Public z1 As Integer
Public u4 As Integer
Public u3 As Integer
Public u2 As Integer
Public u1 As Integer