Function Thread1(var%=0)
  Local ms=MilliSecs()+1000,count
  Repeat
    count=count+1
    If MilliSecs()>ms Then 
      fps=count
      count=0
      ms=MilliSecs()+1000
    EndIf
  Forever
End Function

Local pointer1 = FunctionPointer()
Goto skip1
Thread1()
.skip1

Local Thread1 = CreateThread(Pointer1, 0)

Global fps
Graphics(800,600,32,2)
SetBuffer(BackBuffer())
Local pointer1 = FunctionPointer()
Goto skip1
Thread1()
.skip1
Local Thread1 = CreateThread(Pointer1, 0)
ClsColor(180,180,180)
Color(0,0,0)
SetFont(LoadFont("Consolas",20))
Repeat
  Cls
  Text(400,290,"Der Thread hat "+fps+" FPS",1,1)
  Flip(1)
Until KeyDown(1)
FreeThread(Thread1)
End

End

Graphics

RuntimeError

;Constants
Const WAIT_OBJECT_0 = $00000080
Const WAIT_ABANDONED = $00000000
Const WAIT_TIMEOUT = $00000102
Const WAIT_FAILED = $FFFFFFFF

Type SECURITY_ATTRIBUTES
	Field nLength
	Field lpSecurityDescriptor.SECURITY_ATTRIBUTES;=.AnyType
	Field bInheritHandle
End Type

;Functions - Mutex
Function BB_CreateMutex( Name$="" )
    Local SA.SECURITY_ATTRIBUTES
    
    SA = New SECURITY_ATTRIBUTES
    SA\nLength = 8
    SA\lpSecurityDescriptor = Null        
    SA\bInheritHandle = 0  
    
    Mutex = CreateMutex( SA, False, Name$ )
    
    Return Mutex
End Function

Function BB_OpenMutex( Name$, Inherit=False, RequireFull=False )
    Local SA.SECURITY_ATTRIBUTES
    
    If RequireFull = False
        Mutex = OpenMutex( 0, Inherit, Name )
    Else
        ;MSDN:
        ;MUTEX_ALL_ACCESS (0x1F0001)
        ;All possible access rights for a mutex object.
        ;Use this right only if your application requires access beyond that granted by the standard access rights.
        ;Using this access right increases the possibility that your application must be run by an Administrator.
        Mutex = OpenMutex( $1F0001, Inherit, Name )
    EndIf
    Return Mutex
End Function

Function BB_ReleaseMutex( hMutex )
    ReleaseMutex( hMutex )
End Function

Function BB_WaitForMutex( hMutex, TimeOut=1000 )
    Return WaitForSingleObject( hMutex, TimeOut )
End Function

Global GemeinsameRessource
Global GemeinsameRessource_Mutex=BB_CreateMutex()
Function Thread()
  Repeat
    Delay Rand(100)
    Select BB_WaitForMutex( GemeinsameRessource_Mutex);Warten bis das Mutex frei ist und es dann besetzen.
	Case WAIT_OBJECT_0		;Mutex kann nun benutzt werden

		GemeinsameRessource=Rand(1000)

		BB_ReleaseMutex( GemeinsameRessource_Mutex);Mutex frei machen, damit die anderen daran arbeiten können
	Case WAIT_ABANDONED		;Mutex hat kein Parent und wurde abgesetzt
		;Fehler Code
	Case WAIT_TIMEOUT		;Mutex Waiting ist nicht erfolgreich gewesen
		;Fehler Code
	Case WAIT_FAILED		;Mutex exestiert nicht
		;Fehler Code
    End Select
  Forever
End Function

Global fps,fps1,fps2,timer=CreateTimer(30),timer1=CreateTimer(45),timer2=CreateTimer(60)
Graphics(800,600,32,2)
SetBuffer(BackBuffer())
Local pointer1 = FunctionPointer()
Goto skip1
Thread1()
.skip1
Local pointer2 = FunctionPointer()
Goto skip2
Thread2()
.skip2
Local Thread1 = CreateThread(pointer1, 0)
Local Thread2 = CreateThread(pointer2, 0)
ClsColor(180,180,180)
Color(0,0,0)
SetFont(LoadFont("Consolas",20))
Local ms=MilliSecs()+1000,count
Repeat
	count=count+1
	If MilliSecs()>ms Then 
		fps=count
		count=0
		ms=MilliSecs()+1000
	EndIf
	Cls
	Text(400,275,"Der MainThread hat "+fps+" FPS",1,1)
	Text(400,290,"Der Thread1 hat "+fps1+" FPS",1,1)
	Text(400,305,"Der Thread2 hat "+fps2+" FPS",1,1)
	WaitTimer timer
	Flip(0)
Until KeyDown(1)
FreeThread(Thread1)
FreeThread(Thread2)
End




Function Thread1(var%=0)
	Local ms=MilliSecs()+1000,count
	Repeat
		count=count+1
		If MilliSecs()>ms Then 
			fps1=count
			count=0
			ms=MilliSecs()+1000
		EndIf
		WaitTimer timer1
	Forever
End Function
Function Thread2(var%=0)
	Local ms=MilliSecs()+1000,count
	Repeat
		count=count+1
		If MilliSecs()>ms Then 
			fps2=count
			count=0
			ms=MilliSecs()+1000
		EndIf
		WaitTimer timer2
	Forever
End Function