Home > Archive > Fortran > September 2006 > Progress Bar in VF
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Progress Bar in VF
|
|
| Hussein 2005-02-09, 8:59 pm |
| Hello Everybody,
I need help in Visual Fortran subject. I have an application in VF and
I want to ad a progress bar to monitor the running progress. Any one
can help me by providing a fully functional program that producess a
progress bar (in its simplist form).
Thanks in advance for the help.
| |
| Brooks Moses 2005-02-09, 8:59 pm |
| Hussein wrote:
> I need help in Visual Fortran subject. I have an application in VF and
> I want to ad a progress bar to monitor the running progress. Any one
> can help me by providing a fully functional program that producess a
> progress bar (in its simplist form).
The simplest form of a progress bar that I can think of is this old
standby:
program progress
integer :: i
write(*,'(A)',advance='NO') 'Starting work.'
do i=1,256
write(*,'(A)',advance='NO') '.'
!
! Do various things here.
!
end do
write(*,'(A)') 'Done.'
end
- Brooks
--
The "bmoses-nospam" address is valid; no unmunging needed.
| |
| Rich Townsend 2005-02-09, 8:59 pm |
| Brooks Moses wrote:
> Hussein wrote:
>
>
>
> The simplest form of a progress bar that I can think of is this old
> standby:
>
> program progress
> integer :: i
> write(*,'(A)',advance='NO') 'Starting work.'
> do i=1,256
> write(*,'(A)',advance='NO') '.'
> !
> ! Do various things here.
> !
> end do
> write(*,'(A)') 'Done.'
> end
Unfortunately, stuff like this doesn't work on systems where the output
is buffered -- in my case, Intel Fortran 8.1 on Linux. Does one have to
resort to vendor-specific stuff to turn off the buffering -- and, if so,
is this a compiler switch or a code modification?
cheers,
Rich
| |
| Brooks Moses 2005-02-09, 8:59 pm |
| Rich Townsend wrote:
> Brooks Moses wrote:
>
> Unfortunately, stuff like this doesn't work on systems where the output
> is buffered -- in my case, Intel Fortran 8.1 on Linux. Does one have to
> resort to vendor-specific stuff to turn off the buffering -- and, if so,
> is this a compiler switch or a code modification?
Hmm; clearly I didn't test that sufficiently -- I didn't think about the
buffering problem, and thus didn't include any delay in my "do various
things" that would make it clear.
There seems to be a message on the Intel boards speaking about this same
problem (and why FLUSH doesn't solve it) here:
http://softwareforums.intel.com/ids...message.id=2108
Steve Lionel replies there:
> The behavior you are looking for is implementation-dependent, and
> non-advancing I/O was not intended for this purpose. I recommend
> instead using the $ edit descriptor in an explicit formatted write.
> This will do what you want.
Using that suggestion, the following program works properly on Intel
Fortran 7.1 on Windows:
program progress
integer :: i, j
write(*,'(A$)') 'Starting work.'
do i=1,256
write(*,'(A$)') '.'
do j=1,1200000
end do
! Do various things here.
end do
write(*,'(A)') 'Done.'
end
Note, though, that the '$' edit descriptor is an Intel extension, and
may not work in other compilers.
- Brooks
--
The "bmoses-nospam" address is valid; no unmunging needed.
| |
| gtg531e 2005-02-09, 8:59 pm |
| Hussein wrote:
> fully functional program that producess a
> progress bar (in its simplist form).
> Thanks in advance for the help.
program progbar
implicit none
integer :: i_
integer :: iarg
real(8) :: rarg
do i_=1,120
rarg=real(i_,8)
iarg=int(21-20*cos(0.1*rarg))
call progress_bar(iarg)
print*,'iarg:',iarg
call sleepqq(140)
end do
contains
subroutine progress_bar(ipercent)
implicit none
integer, intent(in) :: ipercent
character, allocatable :: symbar(:)
integer :: n_columns
integer :: n_elements
integer :: n_per_el
integer :: element
n_columns=100
n_elements=n_columns/2 ! half of the screen
n_per_el=100/n_elements
allocate(symbar(n_elements))
do element=1,n_elements
if( element*n_per_el .le. ipercent )then
symbar(element)='|'
else
symbar(element)=' '
end if
end do
WRITE(*,*) CHAR(27), '[2J'
WRITE(*,*) CHAR(27), '[1;1H'
write(*,fmt=*)symbar
deallocate(symbar)
return
end subroutine progress_bar
end program progbar
--
igor.
| |
| Hussein 2005-02-09, 8:59 pm |
| Many thanks Brooks, If I may bother you a little more, would you have a
program that would produce a Progress Bar or Task Bar filling box while
running the application. I am using VF 6.6. Or if not, how can I make
the above program write a certain number of points (say 20 ) on the
same line and repeating it without advancing to the next line?
Regards
| |
| Hussein 2005-02-09, 8:59 pm |
| Thank you Igor, I think I am getting closer. How do you modify the
program to make the symbols print on the same line without advancing to
the next one?, i.e., all the action on one line.
Regards,
Hussein
| |
| gtg531e 2005-02-09, 8:59 pm |
| Hussein wrote:
> Thank you Igor, I think I am getting closer. How do you modify the
> program to make the symbols print on the same line without advancing to
> the next one?, i.e., all the action on one line.
>
> Regards,
> Hussein
I do not quite understand your question
The program below does what you want.
It draws the red progress bar.
I also use Intel Fortran 8.1 on Linux
for me it works fine.
The principle is the following: every
time you call subroutine "progress_bar"
it cleans the screen and redraws the
progress bar with different colors.
It uses console codes to do this
(you can read about console codes in
man console_codes).
If you want to output something else
on the screen besides progress bar
you just need to modify this subroutine
or you just can use print*,'...' or
write(*,*)... after this subroutine.
******************* NEW BETTER CODE ********************
rogram progbar
implicit none
integer :: i_
integer :: iarg
real(8) :: rarg
do i_=1,125
rarg=real(i_,8)
iarg=int(51-50*cos(0.1*rarg))
call progress_bar(iarg)
call sleepqq(140)
end do
contains
subroutine progress_bar(ipercent)
implicit none
integer, intent(in) :: ipercent
character, allocatable :: symbar(:)
integer :: n_columns
integer :: n_elements
integer :: n_per_el
integer :: element
character,parameter :: esc = char(27)
character,parameter :: nl = char(10)
character,parameter :: bs = char(08)
character(len=3) :: numchar3
character(len=20) :: barform
n_columns=100
n_elements=n_columns/2 ! half of the screen
n_per_el=100/n_elements
allocate(symbar(n_elements))
symbar='*'
element=ipercent/n_per_el
WRITE(*,*) CHAR(27), '[2J' ! clean screen
WRITE(*,*) CHAR(27), '[1;1H' ! start from position (1,1)
write(numchar3,fmt='(i3)')element
barform='('//trim(adjustl(numchar3))//'a)'
write (*,fmt='(3a)',advance='no') ' ', ESC, '[1m' ! set bold
write (*,fmt='(3a)',advance='no') ' ', ESC, '[37m' ! white foreground
write (*,fmt='(3a)',advance='no') ' ', ESC, '[42m' ! green background
write(*,fmt='(i3)',advance='no')iarg
write (*, '(3a)',advance='no') ' ', ESC, '[41m' ! red background
write(*,fmt=barform,advance='no')symbar(
1:element)
write (*, '(3a)') ' ', ESC, '[0m' ! restores display defaults.
deallocate(symbar)
return
end subroutine progress_bar
end program progbar
--
igor.
| |
| Hussein 2005-02-10, 3:59 am |
| The program runs on my compiler (Compaq Visual Fortran 6.6) with no
errors. However, it porduces single color lines advancing to new line
each time. So I think the problem here is the different compilers we
are using. In other words, the output is many lines.
| |
| Richard E Maine 2005-02-10, 3:59 pm |
| In article <cue7dl$d61$1@news-int2.gatech.edu>,
gtg531e <gtg531e@prism.gatech.edu> wrote:
.....
> WRITE(*,*) CHAR(27), '[2J' ! clean screen
> WRITE(*,*) CHAR(27), '[1;1H' ! start from position (1,1)
.....
I note that in all the other writes you are careful to use explicit
formats, but in this one, you use list-directed formatting. I recommend
sticking with the explicit formatting for things like this.
List-directed formatting is for when you aren't picky about the details.
In this case, you are (or should be) very picky. Let's see... checking
the exact conditions, I think you are probably ok here, but very
sensitive to details of things elsewhere. In any case, I still
recommend using explicit formats where the details matter, as they do
here.
Specific details that matter very much here include whether the output
strings are quoted and whether they have value separators (spaces or
commas) between them. If either of those things happens, this won't
work. The default is for those things not to happen, but that default
can be overridden elsewhere, making this code "fragile".
Oh, and I don't think I noticed anyone yet mentioning one of the "usual"
caveats for this approach. It assumes an environment where ANSI escape
sequences are recognized. That is true of many environments, but not
all. In particular, it is true of some Windows environments, but not
others. I forget the details of when it is and isn't true on Windows,
but it is not something that can just be assumed to be installed in all
Windows environments. (I think it is possible to make it work in any
version of Windows, but that isn't the same thing as assuming that it
just will work without taking some action on it).
It is possible that this is the why the OP is not observing the desired
behavior. To the OP... if this is the case, it has nothing to do with
the compiler. But I don't know enough of the details of your system or
exactly when this does and doesn't work in Windows.
--
Richard Maine | Good judgment comes from experience;
email: my first.last at org.domain | experience comes from bad judgment.
org: nasa, domain: gov | -- Mark Twain
| |
| Gerald F. Thomas 2005-02-11, 3:59 am |
|
"Hussein" <habuluwefa@yahoo.com> wrote in message
news:1107980658.712812.237580@g14g2000cwa.googlegroups.com...
> Hello Everybody,
> I need help in Visual Fortran subject. I have an application in VF and
> I want to ad a progress bar to monitor the running progress.
Is u'r ap in VF (a Forta'an compiller for Windows' ap developmente) of the
consol or Windows tipe? The Windows understanding of a progres bar is veyr
diferente from the ammmaturish suugestions 'uve had so far but w'at do'ya
want? or is the mediocer ansers uv'e had so far OK? Nev'r minde.
--
You're Welcome,
Gerry T.
______
"My numerous troops moved about undisturbed in the midst of Babylon. I did
not allow anyone to terrorise the land of Sumer and Akkad. I kept in view
the needs of Babylon and all its sanctuaries to promote their well being.
The citizens of Babylon ... I lifted their unbecoming yoke. Their
dilapidated dwellings I restored. I put an end to their misfortunes." --
Xenephon, on the coronation of Cyrus the Great, Babylon 539 BCE.
| |
| dimitar 2006-09-28, 4:25 am |
| quote:
Originally posted by Rich Townsend
Brooks Moses wrote:
> Hussein wrote:
>
>
>
> The simplest form of a progress bar that I can think of is this old
> standby:
>
> program progress
> integer :: i
> write(*,'(A)',advance='NO') 'Starting work.'
> do i=1,256
> write(*,'(A)',advance='NO') '.'
> !
> ! Do various things here.
> !
> end do
> write(*,'(A)') 'Done.'
> end
Unfortunately, stuff like this doesn't work on systems where the output
is buffered -- in my case, Intel Fortran 8.1 on Linux. Does one have to
resort to vendor-specific stuff to turn off the buffering -- and, if so,
is this a compiler switch or a code modification?
cheers,
Rich
Here is new one code:
program progr
implicit none
integer*8::i, j, d, k
real*8::a, b
character (Len=25) ::c
c = ' '
a = 2
do i = 0, 25
do j = 1, 15000000
b = a*i + a/j
end do
d = 100*i/25
c = achar(220) // c
write(6, '(A)', advance = 'NO') c
write(*, '(I4)', advance = 'NO') d
write(*, '(A)', advance = 'NO') '% '
do k = 1, 31
write(6, '(A)', advance = 'NO') achar(8)
end do
end do
end program |
|
|
|
|