module1.bas

来自「我自己写的短距离无线通信系统的收发程序」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
Public Declare Function GetTickCount Lib "kernel32" () As Long

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