module1.bas

来自「三菱FX与PC通讯程序源码以及与OMRON通迅的原程序和源码,等」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Declare Sub DIO_OutputByte Lib "dio.dll" (ByVal Address As Integer, ByVal DataOut As Integer)
Declare Function DIO_InputByte Lib "dio.dll" (ByVal Address As Integer) As Integer

Public Declare Function GetTickCount Lib "kernel32" () As Long


Sub TimeDelay(TT As Long)
  Dim t As Long
  t = GetTickCount()
  Do
    DoEvents
    If GetTickCount - t < 0 Then t = GetTickCount
  Loop Until GetTickCount - t >= TT
End Sub