Showing Many Numbers

Basically, I'm trying to, with one push of a button, display about 20 numbers in a text box before it stops and settles on one number. I've tried a few things with no luck. Any ideas? This's what I've presently got down on moniter.

Code:

---

Private Sub cmdSpin_Click()
    Dim x As Integer, y As Integer
    Dim z As Integer, Total As Integer
    Dim Counter As Integer, Second As Long
    Counter = Counter + 1
    Do Until Counter = 50
        Counter = Counter + 1
        txt1 = Int(Rnd * 3 + 1)
        txt2 = Int(Rnd * 3 + 1)
        txt3 = Int(Rnd * 3 + 1)
        Do Until Second = 500
            Second = Second + 1
        Loop
    Loop
    Counter = 0
    Second = 0
End Sub

---

I also tried this to no avail. It would just slow down displaying the last number it settled on.

Code:

---

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

Second = 0 should be in the first loop in order to reset second

Bleh. Thoughtless mistake. But still not fixing it. It won't actually display the numbers, just the last ones it comes up with.

Even if you increase the duration?

Try adding textbox.refresh

BTW, you dont have any code in the change event of the textboxes, right?

VB Code:

Do Until Second = 500
   Second = Second + 1
Loop

That's instantaneous... if you meant to pause 500 milliseconds then I suggest you use GetTickCount API.

VB Code:

TimeStamp = GetTickCount
Do While TimeStamp + 500 > GetTickCount
   DoEvents
Loop

No, no code for the textbox. If I up the loop numbers, it still doesn't show them. Best I can do is slow the computer down a little.

Textbox.Refresh?

Nah, forget the refresh... use GetTickCount.

Code:

---

    Dim x As Integer, y As Integer
    Dim z As Integer, Total As Integer
    Dim Counter As Integer, Second As Long
    Counter = Counter + 1
    Do Until Counter = 50
    Counter = Counter + 1
        txt1 = Int(Rnd * 3 + 1)
        txt2 = Int(Rnd * 3 + 1)
        txt3 = Int(Rnd * 3 + 1)
        TimeStamp = GetTickCount
        Do While TimeStamp + 500 > GetTickCount
          DoEvents
        Loop
    Loop
    Counter = 0

---

If this is what you're suggesting, It's not working :\ Maybe I'm confused about your suggestion, though.

Sorry, I thought you were familiar with what I was suggesting so I didnt go into details.

VB Code:

'In the declarations section
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
 
'In yur procedure
    Dim x As Integer, y As Integer
    Dim z As Integer, Total As Integer
    Dim Counter As Integer, Second As Long
    Dim TimeStamp As Long
 
    Counter = Counter + 1
    Do Until Counter = 50
    Counter = Counter + 1
        txt1 = Int(Rnd * 3 + 1)
        txt2 = Int(Rnd * 3 + 1)
        txt3 = Int(Rnd * 3 + 1)
        TimeStamp = GetTickCount
        Do While TimeStamp + 500 > GetTickCount
           DoEvents
        Loop
    Loop
    Counter = 0

Essentially, when you start Windows it starts counting internally... that's what GetTickCount returns, the current value of the count. Its in milliseconds, so in the code above you keep passing control to the system (DoEvents) for half a second.

Downside with that is your using up CPU time since your repeatedly passing control to the system then getting it back. But thats one of the the simpler implementation without using timers. The other is using Sleep API

VB Code:

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 
    Dim x As Integer, y As Integer
    Dim z As Integer, Total As Integer
    Dim Counter As Integer, Second As Long
 
    Counter = Counter + 1
    Do Until Counter = 50
    Counter = Counter + 1
        txt1 = Int(Rnd * 3 + 1)
        txt2 = Int(Rnd * 3 + 1)
        txt3 = Int(Rnd * 3 + 1)
        Sleep 500
    Loop
    Counter = 0

Which essentially stops everything, not advisable if you have concurrent tasks running or you expect something so happen anytime (eg winsock data arrival)

Wow, thanks a lot!