pubfun.bas

来自「MPC2810是乐创自动化技术有限公司开发的一款高性能四轴运动控制器。 MPC」· BAS 代码 · 共 15 行

Attribute VB_Name = "PubFun"
Option Explicit
Public glTotalAxes As Long                     '当前计算机中轴数
Public glTotalCards As Long                    '当前计算机中卡数

'#########################################################################
'将用户输入的距离参数转换成vmove和hmove所需参数
Public Function GetDirFromDis(Dist As Long) As Integer
    If Dist >= 0 Then
        GetDirFromDis = 1
    Else
        GetDirFromDis = -1
    End If
End Function