Hi Meski,
|-----Original Message-----
|From: [email protected] [mailto:ozdotnet-
|[email protected]] On Behalf Of mike smith
|Sent: Tuesday, 18 May 2010 12:51 PM
|To: ozDotNet
|Subject: Re: How To do something every so often
|
|On 17 May 2010 18:10, Bill McCarthy <[email protected]> wrote:
|> Inline....
|
|__asm { }
|
| :)
|
|Actually, I like the rather geeky inplace printing of - \ | / rather
|than just dots. It indicates something is happening without filling
|the screen with dots.
|
Yep. Pretty simple matter of hiding the cursor:
Dim left = Console.CursorLeft
Dim top = Console.CursorTop
Dim inner = 0, counter = 0
Console.CursorVisible = False
Do
If counter > 10000000 Then
Dim outChar As Char
Select Case inner
Case 0 : outChar = "\"c
Case 1 : outChar = "|"c
Case 2 : outChar = "/"c
Case 3 : outChar = "-"c
Case Else
outChar = "\"c
inner = 0
End Select
Console.CursorTop = top
Console.CursorLeft = left
Console.Write(outChar)
inner += 1
counter = 0
End If
counter += 1
Loop
