guochengji3.bas

用于公路、轻轨及铁路双线线间距工程计算的源程序。

Attribute VB_Name = "guochengji3"
Option Explicit

Public Sub Delay(amount As Single)
 Dim startTime As Single
 Dim currentTime As Single
 startTime = Timer
 Do
  currentTime = Timer
 DoEvents
 Loop While currentTime < startTime + amount
 End Sub
 
Public Sub BKWait(HowManySecs)
'   pause for HowManySecs seconds
    Dim EndWait
    EndWait = DateAdd("s", HowManySecs, Now)
    While Now < EndWait
'   this is dummy text...nothing is actually done during the wait
    Wend

End Sub