module1.bas

来自「Rs232串口通信专题范例,Vusual Basic,Mscomm,PCOMMP」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module1"
Option Explicit

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

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'时间延迟副程式，单位是毫秒
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub TimeDelay(DT As Long)
  Dim TT As Long
  TT = GetTickCount
  Do
    DoEvents
  Loop Until GetTickCount - TT >= DT
End Sub