mirror of
https://e.coding.net/circlecloud/LoadFirstPic.git
synced 2024-12-28 08:08:50 +00:00
14 lines
344 B
QBasic
14 lines
344 B
QBasic
|
Attribute VB_Name = "MainBas"
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
'=================================Sleep========================================
|
||
|
|
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
|
||
|
|
Private Savetime As Double
|
||
|
|
|
||
|
|
Public Sub Sleep(n As Long)
|
||
|
|
Savetime = timeGetTime
|
||
|
|
While timeGetTime < Savetime + n
|
||
|
|
DoEvents
|
||
|
|
Wend
|
||
|
|
End Sub
|