PureBasic Forums - English

Code: Select all

Procedure ElapsedMilliseconds_()
  ; Simulate a long uptime
  ProcedureReturn ElapsedMilliseconds() + $80000000
EndProcedure

Procedure WaitForTimeOut_1 ()
  Protected TimeOut.i = ElapsedMilliseconds() + 5000
  
  ; Wait 5 Sec. for e.g. a Thread has finished
  
  Repeat
    If Random(10) = 5
      TimeOut = #Null
      ; Thread has finished, Set Timeout to #Null to leave loop now
      Debug "Done"
    Else
      Delay(100)
    EndIf
  Until TimeOut < ElapsedMilliseconds()
  
  Debug "WaitForTimeOut_1 done"
EndProcedure

Procedure WaitForTimeOut_2 ()
  Protected TimeOut.i = ElapsedMilliseconds_() + 5000
  
  ; Wait 5 Sec. for e.g. a Thread has finished

  Repeat
    If Random(10) = 5
      TimeOut = #Null
      ; Thread has finished, Set Timeout to #Null to leave loop now
      Debug "Done"
    Else
      Delay(100)
    EndIf
  Until TimeOut < ElapsedMilliseconds_()
  
  Debug "WaitForTimeOut_2 done"
EndProcedure

; This will work, if your computer have a short uptime
Debug WaitForTimeOut_1()

; Simulate a long uptime, the timeout check does not work in this way
Debug WaitForTimeOut_2()

Code: Select all

Procedure ElapsedMilliseconds_()
  ; Simulate a long uptime
  ProcedureReturn ElapsedMilliseconds() + $80000000
EndProcedure

Procedure WaitForTimeOut_1 ()
  Protected TimeOut.i = ElapsedMilliseconds() + 5000
 
  ; Wait 5 Sec. for e.g. a Thread has finished
 
  Repeat
    If Random(10) = 5
      TimeOut = #Null
      ; Thread has finished, Set Timeout to #Null to leave loop now
      Debug "Done"
    Else
      Delay(100)
    EndIf
  Until TimeOut < ElapsedMilliseconds()
 
  Debug "WaitForTimeOut_1 done"
EndProcedure

Procedure WaitForTimeOut_2 ()
  Protected Time.i = ElapsedMilliseconds_()
  
  ; Wait 5 Sec. for e.g. a Thread has finished

  Repeat
    If Random(10) = 5
      TimeOut = #Null
      ; Thread has finished, Set Timeout to #Null to leave loop now
      Debug "Done"
    Else
      Delay(100)
    EndIf
  Until ElapsedMilliseconds_() - Time > 5000
 
  Debug "WaitForTimeOut_2 done"
EndProcedure

; This will work, if your computer have a short uptime
Debug WaitForTimeOut_1()

; Simulate a long uptime, the timeout check does not work in this way
Debug WaitForTimeOut_2()

Code: Select all

Procedure InitElapsedMiliseconds_()
	Global EM=ElapsedMilliseconds()+1000
EndProcedure
Procedure ElapsedMilliseconds_()
	ProcedureReturn ElapsedMilliseconds() + $80000000-EM
EndProcedure

Procedure WaitForTimeOut_2 ()

	; Wait 5 Sec. for e.g. a Thread has finished
	Protected Time.l = ElapsedMilliseconds_()+5000

	Repeat
		Delay(250)
		Debug Str(ElapsedMilliseconds_())+" > "+Str((Time-ElapsedMilliseconds_())&$FFFF)
		
	;Until ElapsedMilliseconds_()>Time;      DOES NOT WORK !
	Until ElapsedMilliseconds_()-Time>0

	Debug "Exit"
EndProcedure

InitElapsedMiliseconds_()
Debug WaitForTimeOut_2()

Code: Select all

If ElapsedMilliseconds() = 2147483647 - 1000 ; should be one second before it would flip to negative values
  Timeout.i = ElapsedMilliseconds() ; Timeout still got a positive value 
  Repeat
  Until ElapsedMilliseconds() - Timeout > 5000 ; The difference would increase the remaining second before the flip from 0 up to 998, 999, 1000 and afterwards to somewhat like -4294966294, -4294966293, -4294966292, ... (which is still < 5000) - Why? Because we've got 8 bytes now and -4294967294 is a valid value.
Endif

Code: Select all

If ElapsedMilliseconds() = 2147483647 - 1000 ; should be one second before it would flip to negative values
  Timeout.i = ElapsedMilliseconds() ; Timeout still got a positive value 
  Repeat
  Until ElapsedMilliseconds() - Timeout > 5000 ; The difference would increase the remaining second before the flip from 0 up to 998, 999, 1000 and afterwards to somewhat like 1001, 1002 up to 5001 ... (which is greater then 5000) - Why? Because we just got 4 bytes and the same limitation and behaviour then GetTickCount(). So we move to negative (like GetTickCount) if we overflow the limit of 2147483647 as well.
Endif

Code: Select all

If ElapsedMilliseconds() = 2147483647 - 1000 ; one second before it would flip to negative values
  Timeout.l = ElapsedMilliseconds() + 5000
  Repeat
    Checktimout.l = ElapsedMilliseconds() - Timeout ; would even stay inside the 4 byte range - so flips to negative/positive as well
  Until Checktimout > 0; Why does this work? Because we got our limitation back again in the line above. So if the value goes to negative we would follow via "long" again that even would turn to negative values if we feed it too much (which is good in that case).
Endif