SuperStrict

Local thread:TThread=CreateThread(RunningThread,Null)

Local timer:TTimer=CreateTimer(3)

Repeat
	WaitTimer(timer)
	Print "Main"
Forever

Function RunningThread:Object(data:Object)
	Local thread_timer:TTimer=CreateTimer(6)
	Repeat
		WaitTimer(thread_timer)
		Print "Thread"
	Forever
End Function

	Method Wait()
		If Not _handle Return
		Local n
		Repeat
			WaitSystem
			n=_ticks-_wticks
		Until n
		_wticks:+n '<-  :!: Ein ungesicherter Schreibzugriff auf ein Field! =  :twisted: 
		Return n
	End Method

Type TTimerEx
	Field frequence:Int
	Field delaytime:Int
	Field lastcall:Int
	
	Method Wait()
		Delay delaytime-(MilliSecs()-lastcall)
	End Method
	
	Function Create:TTimerEx(value:Int,mode:Int=0)
		Local t:TTimerEx=New TTimerEx
		If mode=0 Then
			t.frequence=value
			t.delaytime=Int(1000.0/value)
		Else
			t.delaytime=value
		EndIf
	End Function
End Type

Type TTimerEx
	Field mutex:TMutex
	Field frequence:Int
	Field delaytime:Int
	Field lastcall:Int
	
	Method Wait()
		LockMutex(Self.mutex)
		Delay Self.delaytime-(MilliSecs()-Self.lastcall)
		Self.lastcall=MilliSecs()
		UnlockMutex(Self.mutex)
	End Method
	
	Function Create:TTimerEx(value:Int,mode:Int=0)
		Local t:TTimerEx=New TTimerEx
		LockMutex(t.mutex)
		t.mutex=CreateMutex()
		If mode=0 Then
			t.frequence=value
			t.delaytime=Int(1000.0/value)
		Else
			t.delaytime=value
		EndIf
		UnlockMutex(t.mutex)
	End Function
End Type