pubfun.bas

来自「一个不错的数控源码是vb的」· BAS 代码 · 共 13 行

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