GetSystemTicks Function

བཀོལ་སྤྱོད་མ་ལག་གིས་མཁོ་འདོན་བྱས་པའི་མ་ལག་བྱ་འགུལ་གྱི་ཡི་གེའི་ཁ་གྲངས་སུ་ཕྱིར་ལོག་པ། རྟེན་གྲངས་འདི་ཉིད་འཕལ་རིམ་འགའ་ལེགས་འགྱུར་བྱས་པར་སྤྱོད་ཆོག

བརྡ་འཕྲོད་


GetSystemTicks()

ཕྱིར་ལོག་ཐང་

Long

Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

དཔེ་གཞི་


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub

ScriptForge.Timer service