[Harbour-users] Any Harbour CLOCK functions?

[smu johnson]

Thanks for the reply.

Weird thing was, after I wrote this message, I got the showtime() thing to
work.  I don't know what was happening.   Maybe I thought it was part of
Nanforum instead of Clipper Tools.  Either way the thing seems to work
well... but for the sake of learning, I will go through your suggestion.

Thanks M.

PS:  I would have replied back to the thread and said "Nevermind, I found
it!"  But I couldn't figure out how to do that, since I don't get my own
e-mail to reply to when posting.


On Sat, Jan 30, 2010 at 12:45 AM, Massimo Belgrano <mbelgrano at deltain.it>wrote:

> I have tried use Multithread to show a possible solution
>
>
>   PROCEDURE Main
>      LOCAL oThread := Thread():new()
>      LOCAL AA
>      CLS
>      aa="Hello"
>      oThread:start( "MYOperation" )        // thread executes code
>      ? "Thread started"
>      @ 2,1 SAY "THIS IS TEST" GET AA
>      READ
>      CLS
>      ? "Performing some other tasks"
>      WAIT "PRESS ANY KEY"
>      oThread:QUIT( )        // thread
>
>   RETURN
>
>   PROCEDURE MYOperation
>      LOCAL Tclock
>      Tclock=TIME()   // I WANT SAVE LAST TO DISPLAY ONLY IF MODIFIED
>      DO WHILE .T.
>        IF Tclock<>TIME()
>           Tclock=TIME()
>           @ 0,72 SAY TIME()
>        ENDIF
>      ENDDO
>   RETURN
>
>
>
> 2010/1/30 smu johnson <smujohnson at gmail.com>
>
> > Hi...
> >
> > We used the FUNCKy CLOCK12 function back in the day, as it made putting a
> > little clock that ticks up quite easily.  I think the Clipper Tools did
> > something similar with SHOWTIME(), but it doesn't seem to be implemented
> in
> > Harbour.  There is no HB_FUNC to it when grepping the sourcecode.
> >
> > >From Przemek's help with HB_IdleAdd, it seems you can manually build a
> > clock
> > using hb_dispoutat( 0, 72, time() ).  But maybe there is an easier little
> > HB_CLOCK type thing hanging around that would take all the work out for
> me.
> >
> > Any hints greatly appreciated.
> >
> > --
> > smu johnson <smujohnson at gmail.com>
> > _______________________________________________
> > Harbour-users mailing list (attachment size limit: 40KB)
> > Harbour-users at harbour-project.org
> > http://lists.harbour-project.org/mailman/listinfo/harbour-users
> >
>
>
>
> --
> Massimo Belgrano
>
> Iscritto all'albo dei CTU presso il Tribunale di Novara per materia
> Informatica
> Delta Informatica S.r.l. (http://www.deltain.it/) (+39 0321 455962)
> Analisi e sviluppo software per Lan e Web -  Consulenza informatica -
> Formazione
> _______________________________________________
> Harbour-users mailing list (attachment size limit: 40KB)
> Harbour-users at harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour-users
>



-- 
smu johnson <smujohnson at gmail.com>