Razzak That's a SWEET little demo of PAUSE 4!!!
David Blocker ----- Original Message ----- From: "A. Razzak Memon" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, June 13, 2002 12:14 PM Subject: Re: Another novice form question - Razzak's Reply > > Bob, > > A new option of PAUSE 4 has been added in The Glorious R:BASE > 2000 (ver 6.5++) for Windows. > > There are cases when you would like to display any message using > PAUSE 3 command and continue processing things behind the scene. > If you also have to display any progress notes, etc., without flicker, > now you can use the option of PAUSE 4. > > The new PAUSE 4 works just like PAUSE 3 except than instead of > painting a new dialog box with the message it will use the existing > displayed PAUSE 3 box and just redo the message inside the box. > This can be used to eliminate flicker for those times when you are > using PAUSE 3 to display progress in an application. > > Example: > > -- LoopD.RMD To Demonstrate the Use of PAUSE 3 and PAUSE 4 > > CLEAR ALL VAR > SET CAPTION ' ' > SET VAR v1 TIME > SET VAR v1 = (.#Time) > SET VAR v2 TIME > SET VAR v2 = (.v1 + 5) > SET VAR v3 TIME > SET VAR v3 = (.v1 + 1) > SET VAR MsgNum INTEGER = 1 > > CLS > PAUSE 3 USING 'Wait for this to quit...' CAPTION 'Demo of New PAUSE 4 > Option ...' > > WHILE v1 < .v2 THEN > SET VAR v1 = (.#time) > IF v1 = .v3 THEN > SWITCH (.MsgNum) > CASE 1 > PAUSE 4 USING 'Hello' > BREAK > CASE 2 > PAUSE 4 USING 'Developers ...' > BREAK > CASE 3 > PAUSE 4 USING 'Check' > BREAK > CASE 4 > PAUSE 4 USING 'This' > BREAK > CASE 5 > PAUSE 4 USING 'Out ...' > BREAK > ENDSW > SET VAR MsgNum = (.MsgNum + 1) > SET VAR v3 = (.v1 + 1) > ENDIF > ENDWHILE > CLEAR ALL VAR > RETURN > > For more details and examples: http://www.RSyntax.com > > Enjoy and make sure to have fun! > > Very Best Regards, > > Razzak. > > At 11:59 AM 6/13/2002 -0500, Bob Thompson wrote: > > >I want to display a "count down" counter > >on a form while the app is processing a > >somewhat large data set. I have a push button > >on the form that executes the program and > >I want the form to display something like : > > "Processing record# 20 of 10000" > > > >This app may take 1-2 minutes to completely > >execute and this is feed back to the user. > > > >I have tried the SCREEN RESTORE, WRITE > >and RECALC commands, but cannot get the > >form to show updated variables until the procedure > >has finished. (It is then a moot point of course!) > > I do not want to use the FEEDBACK option as > > I would like more control over what and > >how the counter is displayed. > > > >You all have been very helpful and I appreciate > >the assistance. Again, simply how do you > >get a variable to redisplay at will on a form > >while you are performing a WHILE LOOP or > >DECLARE CURSOR ? > > > ================================================ > TO SEE MESSAGE POSTING GUIDELINES: > Send a plain text email to [EMAIL PROTECTED] > In the message body, put just two words: INTRO rbase-l > ================================================ > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] > In the message body, put just two words: UNSUBSCRIBE rbase-l > ================================================ > TO SEARCH ARCHIVES: > http://www.mail-archive.com/rbase-l%40sonetmail.com/ > ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/
