Data commit

Task/Rate-counter/PureBasic/rate-counter-1.basic

@@ -0,0 +1,35 @@
+Procedure.d TimesPSec(Reset=#False)
+  Static starttime, cnt
+  Protected Result.d, dt
+  If Reset
+    starttime=ElapsedMilliseconds(): cnt=0
+  Else
+    cnt+1
+    dt=(ElapsedMilliseconds()-starttime)
+    If dt
+      Result=cnt/(ElapsedMilliseconds()-starttime)
+    EndIf
+  EndIf
+  ProcedureReturn Result*1000
+EndProcedure
+
+If OpenWindow(0,#PB_Ignore,#PB_Ignore,220,110,"",#PB_Window_SystemMenu)
+  Define Event, r.d, GadgetNumber
+  ButtonGadget(0,10, 5,200,35,"Click me!")
+  ButtonGadget(1,10,70,100,35,"Reset")
+  TextGadget  (2,10,45,200,25,"")
+  TimesPSec(1)
+  Repeat
+    Event=WaitWindowEvent()
+    If Event=#PB_Event_Gadget
+      GadgetNumber =EventGadget()
+      If GadgetNumber=0
+        r=TimesPSec()
+        SetGadgetText(2,"You are clicking at "+StrD(r,5)+" Hz.")
+      ElseIf GadgetNumber=1
+        TimesPSec(1)
+        SetGadgetText(2,"Counter zeroed.")
+      EndIf
+    EndIf
+  Until Event=#PB_Event_CloseWindow
+EndIf

Task/Rate-counter/PureBasic/rate-counter-2.basic

@@ -0,0 +1,13 @@
+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$)