请说明每行的意思 Public Declare Function GetTickCount Lib "kernel32" () As LongSub delay(dt As Long)Dim t As Longt = GetTickCountDoDoEventsLoop Until GetTickCount - t > dtEnd Sub
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 17:03:51
![请说明每行的意思 Public Declare Function GetTickCount Lib](/uploads/image/z/13521052-28-2.jpg?t=%E8%AF%B7%E8%AF%B4%E6%98%8E%E6%AF%8F%E8%A1%8C%E7%9A%84%E6%84%8F%E6%80%9D+Public+Declare+Function+GetTickCount+Lib+%22kernel32%22+%28%29+As+LongSub+delay%28dt+As+Long%29Dim+t+As+Longt+%3D+GetTickCountDoDoEventsLoop+Until+GetTickCount+-+t+%3E+dtEnd+Sub)
请说明每行的意思 Public Declare Function GetTickCount Lib "kernel32" () As LongSub delay(dt As Long)Dim t As Longt = GetTickCountDoDoEventsLoop Until GetTickCount - t > dtEnd Sub
请说明每行的意思 Public Declare Function GetTickCount Lib "kernel32" () As Long
Sub delay(dt As Long)
Dim t As Long
t = GetTickCount
Do
DoEvents
Loop Until GetTickCount - t > dt
End Sub
请说明每行的意思 Public Declare Function GetTickCount Lib "kernel32" () As LongSub delay(dt As Long)Dim t As Longt = GetTickCountDoDoEventsLoop Until GetTickCount - t > dtEnd Sub
Public Declare Function GetTickCount Lib "kernel32" () As Long‘得到系统启动以来毫秒数的API
Sub delay(dt As Long)’延迟过程开始
Dim t As Long‘定义变量t
t = GetTickCount’将系统启动以来毫秒数赋给t
Do‘开始循环
DoEvents’防止程序崩溃
Loop Until GetTickCount - t > dt‘直到延时时间等于dt结束延时,用GetTickCount - t判断延时时间
End Sub’结束过程