Domino 9 und frühere Versionen > ND8: Entwicklung

Feld mit Uhrzeit, automatisch aktualisieren

<< < (3/5) > >>

Peter Klett:
Über den Sinn der Aktion brauchen wir hier nicht zu diskutieren, intererssant ist m.E. nur die Technik. Man könnte das ja auch für ganz andere Zwecke verwenden.

Meines Wissens beendet sich der NotesTimer in dem Augenblick, in dem das Dokument, in dem der läuft, nicht mehr im Vordergrund ist (also Dokument bleibt geöffnet, aber ein anderes wird zusätzlich geöffnet). Das Problem kann inzwischen ja behoben sein. In der Designer-Hilfe ist der NotesTimer (wenn ich mich recht erinnere) ganz gut beschrieben. Probiers aus, bin gespannt auf Dein Ergebnis.

LukasSChl:
Ok ich versuchs ma^^

Global Declarations:

--- Code: ---Dim elapsedTime As Integer
Dim elapsedTimer As NotesTimer
%INCLUDE "lsconst.lss"

--- Ende Code ---

Postopen:

--- Code: ---Sub Postopen(Source As Notesuidocument)
  Set elapsedTimer = New NotesTimer(1, "test")
  elapsedTime = 0
  On Event Alarm From elapsedTimer _
  Call elapsedTimerHandler
End Sub

--- Ende Code ---

Was bitte macht: "On Event Alarm From elapsedTimer _
                              Call elapsedTimerHandler" ??
Jedes mal wenn der Timer auf 0 ist, ruft er die untere Sub neu auf?


Das muss auch irgendwo hin, aber ich weiß nicht wo, man kann ja keine eigenen Subs anlegen irgendwie, zumindet weiß ich net wie^^

--- Code: ---Sub elapsedTimerHandler(Source As NotesTimer)
  elapsedTime = elapsedTime + 1
End Sub

--- Ende Code ---

Peter Klett:
Du kannst eigene Sub's und Function's erstellen, indem Du Sie unterhalb einer bestehenden Sub oder Function schreibst, z.B. unterhalb End Sub der Sub Initialize (Sub MeineSub + Enter - fertig).

In die elapsedTimerHandler muss dann die Aktualisierungsroutine eingebaut werden

LukasSChl:
On Event Alarm From elapsedTimer _
Call elapsedTimerHandler"

Was passiert hier? Ich kann mir das net so ganz erschließen.
Bei elapsedTime = 0 ruft der die "elapsedTimerHandler"-Sub auf, die dann beginnt die Variable jede Sekunde um 1 zu erhöhen oder?

Jetzt muss es nurnoch so sein, dass alle 60 Sekunden der Inhalt der 2 betroffenen Felder neu berechnet wird.
z.B. so:
--- Code: ---Sub elapsedTimerHandler(Source As NotesTimer)
  elapsedTime = elapsedTime + 1,
  If elapsedTime = 60 then
  'Code
  elapsedTime = 0
  End if
End Sub

--- Ende Code ---

mfg Lukas

Peter Klett:
ja

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete