I want to take a field who shows the second(for example any exam form time is 30 seconds like initial value is 30 after 1 second it show 29…….etc ) and after 30 seconds it shows a message(like Time is over….).
I’ll write formula or lotus script for blinking the second in decreasing order.
Please help me.
Regard
Rehan
Subject: show second
Thanx sir !!!
Subject: show second
Declaration================
Dim Tim As NotesTimer
Dim TimeLeft As Long
Any Button (or event)
================
Sub Click(Source As Button)
Set Tim = New NotesTimer(1, “Time left for the Test.”)
TimeLeft = 30
On Event Alarm From Tim Call TimeLeftHandler
End Sub
Timer event Handler
================
Sub TimeLeftHandler(Source As NotesTimer)
Dim ws As New NotesUIWorkspace
Dim Doc As NotesDocument’
TimeLeft = TimeLeft - 1
Set Doc = ws.CurrentDocument.Document
Doc.Seconds = TimeLeft
Call ws.CurrentDocument.Refresh
End Sub
I’m just displaying the seconds in a field. you can play around with the code for desired results.
hth
Sharjeel