Timer in OOBasic

[ms777]

Hi,

OOBasic lacks a timer functionality. This post shows, how to implement a timer functionality in OOBasic using BeanShell.

It is rather straightforward and should be self explaining. To install
- put the BeanShell code into a calc document, into the library 'timer', under the name 'timer'(.bsh)
- put the Basic code into any module in the same document.
- run the Basic code

Have fun,

ms777

Edit May 2009: Please note that the below script stopped working since OO 2.3 or OO 2.4 due to a regression in the class loader handling ( http://qa.openoffice.org/issues/show_bug.cgi?id=89978 ). Please use the new script given in one of the next posts for OO 2.4, maybe also for OO 2.3

The Basic Code:

[crun]

I have gotten time to try this now.
Thanks for the timer code, it runs as advertised.

From within JobXX_ callback function I can call an OOBasic routine in the same module eg "IncCell"

However I cannot call any method of RT, the Realterm active X server (this has been opened already, and can be used happily from button clicks)
It appears that RT.PutString never completes, ie if any instruction follows it in the JOB3 function, then OO locks up and must be terminated.

[ms777]

Hi,

I have done a little testing. As I do not have the Realterm ActiveX installed, I tried the MSScriptControl ActiveX:

[ms777]

Here the BeanShell script which should be used from OO 2.4 onwards:

[ellebi]

Hi all
I try to make work this timer in my ooo calc sheet, with ooo basic macros, where i want to put the time (i.e. hours, minutes, seconds) in a TimeField of dialog, and I cannot fix the error that ooo gives me. The error exactly is
"Errore di runtime basic. Si è verificata un'eccezione
Type: com.sun.star.reflection.InvocationTargetException
Message: Beanshell error for timer.bsh
TargetException:
Type:
com.sun.star.script.provider.ScriptErrorRaisedException
Message: :Class cannot extends type: class.bsh.Primitive"
.
The ooo version is 3.1.1. I hope someone can help me.
Thanks.

[ms777]

Hi,

does my original code run on your machine as advertised ? Note that you have to take the OO2.4+ version ...

If yes, please post your complete code. If no, let me know what failure is generated

Good luck,

ms777

[ellebi]

Thanks for your reply!
As I told, my oo version is 3.1.1 (last), so your code does not work on my laptop (with fedora 11, kernel 2.6.30) because it is for 002.4+ version! I think not so...
Anyway I try to explain my code; it's a basic macro, in a calc document, for a dialogue with (between various controls) a TimeField where I want to see the current time (that of course change every minute). That's why I want to use the timer. I put your basic "main" code in the function where this dialog is opened (not complete) and the function "GenerateTimerPropertySet":

Function setDateTimeUnitsDialog() as boolean
...
Dim oThisDialog As Object
Dim oP As Object, oJob1 As Object
oP = GenerateTimerPropertySet()
oJob1 = createUnoListener("nowJob_", "com.sun.star.task.XJobExecutor")
oP.xJob = oJob1
oP.lMaxIterations = 5
oP.lPeriodInMilliSec = 1000
oP.start()
...
oThisDialog = CreateUnoDialog(DialogLibraries.Standard.dateTimeUnitsDialog)
setDateTimeUnitsDialog = oThisDialog.execute()
...
end function

'run script in Timer.bsh
Function GenerateTimerPropertySet() as Any
Dim oSP As Object, oScript As Object
oSP = ThisComponent.getScriptProvider("")
oScript = oSP.getScript("vnd.sun.star.script:Timer.Timer.bsh?language=BeanShell&location=document")
GenerateTimerPropertySet = oScript.invoke(Array(), Array(), Array())
End function

'here I would put later the instructions for update the TimeField
sub nowJob_trigger(s as String)
...
end sub

When I run the macro (a click on the sheet...) calc gives me the error; in the basic IDE, the code is highlighted at:

GenerateTimerPropertySet = oScript.invoke(Array(), Array(), Array())

in the beanshell editor there's a red arrow at:

public class ms777Timer_06 extends PropertySet implements XElementStackKeeper

The error is:
Basic runtime error. Exception occurred (...this translated in English, from Italian)
Type: com.sun.star.reflection.InvocationTargetException
Message: Beanshell error for timer.bsh
TargetException:
Type:
com.sun.star.script.provider.ScriptErrorRaisedException
Message: :Class cannot extends type: class bsh.Primitive

That's all. I hope you understand my problem.
Thanks.

[ellebi]

Hi,
I just tried the code (2nd version of beanshell script) on xp and it works. Perhaps it does not work in linux!

[ellebi]

Hi
someone tell me if it is possible and how extend a java class in a BeanShell script in Linux environment! Thanks.

[blabj]

Great solution. Just advising that this is working on ubuntu hardy with OO 2.4 and ubuntu jaunty with OO 3.0. Only trick was that "bsh" (beanshell) needed to be installed separately.

-Bob