RosettaCodeData/Task/Rate-counter/FreeBASIC/rate-counter.basic

19 lines
328 B
Plaintext

Dim Shared As Integer i
Sub timeit
Dim As Integer iter = 0
Dim As Double starter = Timer
While True
iter += 1
If Timer >= starter + i Then Exit While
Wend
Print iter; " iteraciones en"; i; " milisegundo"; Iif(i > 1, "s", "")
End Sub
For i = 1 To 3
timeit
Next i
i = 200 : timeit
Sleep