module1.bas

users 232 to ctrl display 7seg

Attribute VB_Name = "Module1"
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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