module1.bas

与单片机接通,实时获得室内温度和湿度数据的程序.

Attribute VB_Name = "Module1"
Declare Function GetTickCount Lib "kernel32" () As Long
Rem 延时函数
Sub timedelay(t As Long)
Dim tt&
tt = GetTickCount()
Do
  DoEvents
  Loop Until GetTickCount() - tt >= t
  
End Sub