Very odd! VB is now programming itself!!!!

[elziko]

I posted earlier on about getting VB to wait until finished accessing a file. Nobody replied so I've been mucking around. I tried to but this in between the file access and the next command:

Time = Timer
Do Until Timer = Time + 1
Loop

This sometimes seems to work giving enought time for the accessing to finish. However, most of the time it seems to stick in the loop. When this happens I ctrl-break the program and see that VB has added many "Next" commands and moved the "Loop" command somewhere else.

Has my copy of VB become self-aware and now views my poor programming skills as a threat??

Has anyone else ever had a copy of VB capable of self programming?

I'd be amazed if anyone can give me an explanation of this!

elziko

 

[dsi]

You should not use the equality test in this situation. The result of Time+1 would have to exactly match the value of timer. This value has the precision of a single, so the odds of this ever matching is slim to none. You can use the timer function like this:

Dim StartTime As Single

StartTime = Timer
Do While Timer < StartTime + 1
    DoEvents
Loop

If you are not processing anything, you can use the API Sleep function to pause the application for a specified amount of time.

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

Sleep dwMilliseconds

Hope this helps!