On 18 May 2010 23:54, Al Gonzalez <[email protected]> wrote: > I have a ConsoleSpinner class that I use from time to time: > http://codepaste.net/z8h7ed #z8h7ed
That's it! > > -----Original Message----- > From: Bill McCarthy > Sent: 5/18/2010 12:48 AM >> >> 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 >> >> >> >> > > -- Meski "Going to Starbucks for coffee is like going to prison for sex. Sure, you'll get it, but it's going to be rough" - Adam Hills
