>
> I am in the middle of writing a function to display a
> progress bar.
Did you try using the already existing function to do this?
ie: try out this "mini program"
>; need to set up vars like DUZ,DTIME, IO, IO(0), etc.
D INIT^XPDID
S XPDIDTOT=100
D TITLE^XPDID("hello world")
D UPDATE^XPDID(50)
F AJJ=90:1:100 D UPDATE^XPDID(I)
D EXIT^XPDID()
The XPDID routine does modify the scroll region and make the
application seem a bit more "GUI"-like, by the way...
David
>
> I want the bar to stay on one line, so at the end of
> each line, I need to do something to get back to the
> beginning of line.
>
> My first approach was to write the line, then write a
> $char(13) to go back to the beginning of the line,
> ready for the next refresh.
>
> But this gave very odd output, like this:
>
> Lets begin...
> Progress:
> 94%--------------------------------------------->||
> Progress: 89%------------------------>|--|
> Progress:
> 84%-------------------------------------->|---
> Progress:
> 74%----------------------------------->|---------|
> Progress: 69%--------------------|-----------|
> Progress: 64%----------------------------->|--------
> Progress:
> 59%-------------------------->|------------------|
> Progress: 49%------------------------------------|
> Progress: 44%------------------->|--------------
> Progress:
> 39%----------------->|---------------------------|
> Progress: 29%----------------------------------------|
> Progress: 24%---------->|-------------------
> Progress:
> 19%-------->|------------------------------------|
> Progress:
> 9%---->|--------------------------------------|
> Progress: 4%->|------------------------
> -------------------|
> All done!...
>
>
> But if, instead, I write a !, and then issue an escape
> sequence to move the cursor up one line, it works
> perfectly.
>
> It acts like it drops characters unless I write a !
>
> Does anyone know what is going on?
> thanks
> Kevn
>
>
> GTM>
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by the 'Do More With Dual!' webinar happening
> July 14 at 8am PDT/11am EDT. We invite you to explore the latest in dual
> core and dual graphics technology at this free one hour event hosted by HP,
> AMD, and NVIDIA. To register visit http://www.hp.com/go/dualwebinar
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
-------------------------------------------------------
This SF.Net email is sponsored by the 'Do More With Dual!' webinar happening
July 14 at 8am PDT/11am EDT. We invite you to explore the latest in dual
core and dual graphics technology at this free one hour event hosted by HP,
AMD, and NVIDIA. To register visit http://www.hp.com/go/dualwebinar
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
