iocardsimulator.bas

步进电机控制程序

Attribute VB_Name = "IOCardSimulator"
' IO通讯卡模拟程序
' -----------------------------------------------------------

Function WriteChannel(ByVal with_channel As Integer, ByVal val As Integer)
    pulseSendCount = pulseSendCount + 1
End Function

Function ReadChannel(ByVal with_channel As Integer)

End Function