Wait Statement

ཁྱོད་ཀྱིས་མི་ལི་སྐར་ཆག་ཚུ་ནང་གསལ་བཀོད་འབད་མི་དུས་ཚོད་ཀྱི་དངུལ་བསྡོམས་དོན་ལུ་ལས་རིམ་ལག་ལེན་འཐབ་ནི་དེ་བར་དཀྲོགསཔ་ཨིན།

ཚིག་སྦྱོར:

བསྒུག་མི་ལི་སྐར་ཆག

ཚད་བཟུང་ཚུ་:

མི་ལི་སྐར་ཆག: ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་དེ་ནང་ན་ (མི་ལི་སྐར་ཆག་ཚུ་ནང་)དུས་ཚོད་ཀྱི་བསྡོམ་ལས་རིམ་དེ་ལག་ལེན་འཐབ་ནི ཧེ་མ་བསྒུག་ནི་ལུ།

དཔེར་བརྗོད:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    འཕྲིན་དོན་སྒྲོམ "" & lTick & " Ticks" ,0,"The pause lasted"

End Sub