Stoppuhr erstellen mit Star Basic in OO-Calc
Verfasst: Sa, 23.11.2013 01:29
Problem: ich will auf druck einer Schaltfläche, dass eine Stoppuhr anfängt zu laufen. ( Am besten in einer Zelle z.b A1) gestoppt wird mit modListener, der ein Makro aufruft, sobald etwas in eine Zelle ( hier: B1) geschrieben wird.
Das Makro welches ich verwende um die abfrage zu machen , wann sich B1 ändert habe ich bereits, doch wie starte und verknüpfe ich damit meine stoppuhr?
Code:
Die Primäre Frage ist: Wie bringe ich eine Stoppuhr zum laufen?
Sekundär: Wie verknüpfe ich die Stoppuhr mit dem gegebenen Makro um die Zeit zu messen bis etwas in die zelle eingegeben wurde?
Das Makro welches ich verwende um die abfrage zu machen , wann sich B1 ändert habe ich bereits, doch wie starte und verknüpfe ich damit meine stoppuhr?
Code:
Code: Alles auswählen
global oModListener
Sub S_register_ModListener
oModListener = CreateUNOListener("ModListener_","com.sun.star.util.XModifyListener")
ocell = thiscomponent.sheets.getbyname("Tabelle1").getcellrangebyname("A1")
ocell.addModifyListener(oModListener)
end sub
Sub ModListener_modified(oEvt)
if oEvt.source.value > 0 then
[Anweisungsbereich]
end if
End Sub
Sub ModListener_disposing
End Sub
Sub S_remove_ModListener
ocell = thiscomponent.sheets(0).getcellbyposition(0,0)
ocell.RemoveModifyListener(oModListener)
end sub
Sekundär: Wie verknüpfe ich die Stoppuhr mit dem gegebenen Makro um die Zeit zu messen bis etwas in die zelle eingegeben wurde?