Loading ...
Sorry, an error occurred while loading the content.

9610timer clip event(s) & structure how to

Expand Messages
  • Alan C.
    Jan 7, 2003
    • 0 Attachment
      Hello,

      Anybody for a puzzle? See/skip/scroll down to specific request further below at

      ###
      ###

      My goal to have some timers to run in a 2nd, a minimized, 2nd instance of NoteTab

      choice of
      5 minute, 10 minute, 15 minute, 30 minute

      for choice of various timer reminder prompt interval those 4 above. Want reminder prompt at those intervals once clip started, not at 0, 5, 10, 15 according to the minute hand.

      continuous running until I shut it off. but also want have prompt or indicator that accumulates and notifies (since started) how many times has 5 minute interval been repeated to also displayed at each 5 (also for 10, 15, 30) minute interval.

      The NTP remindme clb helped, has 2 level (clip with 1 called clip). I can't remember why but I have 3 level (clip with 2 called clips) below.

      ###
      ### Specifically I seek: 1. fresh ideas of how to use ^!Inc (or calc) to increment current time in minutes by 5 (or 10, 15, 30) each time when needed so as to continue the timer until I shut it off. The end of hour need be dealt with here too. hehe a bit tricky but shouldn't be too terribly difficult. 2. How many levels of called clips will accomplish my goal. 3. How to show the number of accumulative repeats whenever the reminder interval prompt is triggered. 4. Completed clip(s) also be just great. Thanks!

      As below, you'll see that I was underway with the code write/development. But my ideas began to get fragmented.

      H="5_min_timer_start"
      ; Timer event will be triggered every 30 seconds
      ^!TimerStart 30000
      ^!Clip timr5min
      ; The timer will activate the Clip "my_reminder" at the defined time interval
      ^!TimerPlay my_reminder
      ; Display confirmation message
      ; ^!Prompt The "my_reminder" 5 minute interval event is now active


      H="10_min_timer_start"
      ^!Set %time%=^$GetDate(nn)$
      ^!Set %timeplus10%=^%time%
      ^!Inc %timeplus10% 10
      ^!If ^%timeplus10% < 60 skip_2
      ^!Set %timeplus10%=^$StrDeleteLeft("^%timplus10%";1)$
      ^!Set %timeplus10%=^$StrInsert("0";"^%timplus10%";1)$
      ; Timer event will be triggered every 30 seconds
      ^!TimerStart 30000
      ; ^!Clip timr10min
      ; The timer will activate the Clip "my_reminder" at the defined time interval
      ^!TimerPlay my_reminder
      ; Display confirmation message
      ; ^!Prompt The "my_reminder" 10 minute interval event is now active
      ^!StatusShow my_reminder 10 minute interval event is now active

      H="_timr5min"
      ^!Info entered timr5min clip
      :renewal
      ; ^!Set %interval%=ten
      ^!Set %time%=^$GetDate(nn)$
      ^!Set %timeplus5%=^%time%
      ^!Inc %timeplus5% 5
      ^!If ^%timeplus5% < 60 skip_2
      ^!Set %timeplus5%=^$StrDeleteLeft("^%timplus10%";1)$
      ^!Set %timeplus5%=^$StrInsert("0";"^%timplus10%";1)$
      ; ^!Clip timr_init

      ; ^!Goto renewal

      H="_timr10min"
      ^!Info entered timr10min clip
      :renewal
      ; ^!Set %interval%=ten
      ^!Set %time%=^$GetDate(nn)$
      ^!Set %timeplus10%=^%time%
      ^!Inc %timeplus10% 10
      ^!If ^%timeplus10% < 60 skip_2
      ^!Set %timeplus10%=^$StrDeleteLeft("^%timplus10%";1)$
      ^!Set %timeplus10%=^$StrInsert("0";"^%timplus10%";1)$
      ; ^!Clip timr_init

      ; ^!Goto renewal

      H="_my_reminder"
      ; ^!Info entered my_reminder clip
      ^!Set %time%=^$GetDate(nn)$

      ^!IfFalse ^%timeplus5% skip
      ^!Goto five_min
      ^!IfFalse ^%timeplus10% skip
      ^!Goto ten_min
      ^!Info IfTrue inop my_reminder clip
      ; ^!IfSame "^%interval%" "five" pre_five_min
      ; ^!IfSame "^%interval%" "ten" pre_ten_min

      :quarter_hr
      ^!IfSame "00" "^%time%" myreminder1
      ^!IfSame "15" "^%time%" myreminder1
      ^!IfSame "30" "^%time%" myreminder1
      ^!IfSame "45" "^%time%" myreminder1
      ^!GoTo End

      :five_min
      ^!IfSame "^%timeplus5%" "^%time%" myreminder1
      ^!Goto end

      :ten_min
      ^!IfSame "^%timeplus10%" "^%time%" myreminder1
      ^!Goto end

      :myreminder1
      ; ^!IfTrue ^%p_myreminder1% End
      ; ^!Dec %timeplus5%
      ; ^!Dec %timeplus10%
      ; here is the every chosen activation interval
      ^!Prompt Important! The minute is on ^%time%
      ; ^!Set %p_myreminder1%=True
      ; ^!GoTo End
      ^!IfFalse ^%timeplus5% skip
      ^!Clip 5_min_timer_start
      ^!IfFalse ^%timeplus10% skip
      ^!Clip 10_min_timer_start


      H="Stop reminding"
      ; Stop the Clip timer and display confirmation message
      ^!TimerStop
      ^!Prompt The timer has now been disabled. Double-click on the "StartTimer" Clip to resume.
      ; ---end--

      --
      Alan.