B4R Question pause loop every 'n' counts

[Mostez]

Hello,
I have this loop, which sends data from SD card to serial stream, I would like to pause the loop for about 100 ms - every 10 K bytes of data(at 10 K, 20 ,30K etc..), to let the other device clear the buffer before receiving next 10 K. any ideas.

Thanks

Do While counter < size
            Dim read As Int =  SD.Stream.ReadBytes(Buffer, 0, Min(Buffer.Length, size - counter))
            If read = 0 Then
                success = False
                Exit
            End If
            counter = counter + read
            ' I Want to pause the loop 100ms here every 10k, before sending data 

            StreamSource.Write2(Buffer,0,read)
Loop

 

[Erel]

If you are not worried about blocking the program while it waits then use:

If Counter > Target Then
 Delay(100)
 Target = Target + 10000
End If

 

[Mostez]

Thanks Erel