pubfun.bas

一个不错的数控源码是vb的

Attribute VB_Name = "PubFun"
Option Explicit

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