14 lines
365 B
Plaintext
14 lines
365 B
Plaintext
Procedure DummyThread(arg)
|
|
Define.d dummy=#PI*Pow(arg,2)/4
|
|
EndProcedure
|
|
|
|
start=ElapsedMilliseconds()
|
|
Repeat
|
|
T=CreateThread(@DummyThread(),Random(100))
|
|
WaitThread(T)
|
|
cnt+1
|
|
Until start+10000<=ElapsedMilliseconds(); Count for 10 sec
|
|
|
|
msg$="We got "+Str(cnt)+" st."+Chr(10)+StrF(cnt/10,2)+" threads per sec."
|
|
MessageRequester("Counting threads in 10 sec",msg$)
|