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

[NTB] Re: Alarm wanted

Expand Messages
  • Raymond Fitzgerald
    Hi Bob, ... hour. I bet Kay s is the one you saw. Here is it: Cheers, Ray FItz H= Reminder ; turn it on or off ^!GoTo ^?[Alarm On/Off==_Start|Stop] ... ;
    Message 1 of 2 , Feb 25, 1999
    • 0 Attachment
      Hi Bob,

      >I cannot find a clip I once saw which enables you to set an alarm for any
      hour.

      I bet Kay's is the one you saw. Here is it:

      Cheers,
      Ray FItz

      H="Reminder"
      ; turn it on or off
      ^!GoTo ^?[Alarm On/Off==_Start|Stop]

      :Start
      ; long line to get alarm time and message
      ; curly braces to allow variables
      ^!Set %p_sethour%=^?{(T=C)Hour==_^%p_sethour%|1|2|3|4|5|6|7|8|9|10|11|12};
      %p_min%=^?{Minutes=^%p_min%}; %p_ampm%=^?{(T=C)AM or PM==_^%p_ampm%|am|pm};
      %p_msg%=^?{Message=^%p_msg%}

      ; set timer - checks Display clip about once a minute
      ^!TimerStart 30000
      ^!TimerPlay DisplayReminder
      ^!GoTo End

      :Stop
      ^!TimerStop

      ;============================
      ; requires NoteTab version 4.5
      ; by Kay Roath - Issue 16 (Reminder/Display)

      H="DisplayReminder"
      ; long line to check time
      ^!If "^[h:n:sampm^]" > "^%p_sethour%:^%p_min%:0^%p_ampm%" ShowIt ELSE End

      :ShowIt
      ; play a sound
      ^!Sound SystemQuestion

      ; show the reminder
      ^!Prompt ^%p_Msg%

      ; stop the timer
      ^!TimerStop

      ; allow reset if in same Clipbook & not in clip edit
      ^!Continue Reset Alarm?
      ^!Clip Reminder
      ;============================
      ; requires NoteTab version 4.5
      ; by Kay Roath - Issue 16 (Reminder/Display)

      ------------------------------------------------------------------------
      eGroup home: http://www.eGroups.com/list/notetab
      Free Web-based e-mail groups by eGroups.com
    • Bob Segrave
      Thanks a lot Ray - that was it. Bob ... eGroup home: http://www.eGroups.com/list/notetab Free Web-based e-mail groups by eGroups.com
      Message 2 of 2 , Feb 25, 1999
      • 0 Attachment
        Thanks a lot Ray - that was it.
        Bob


        > I bet Kay's is the one you saw. Here is it:
        >
        > Cheers,
        > Ray FItz


        ------------------------------------------------------------------------
        eGroup home: http://www.eGroups.com/list/notetab
        Free Web-based e-mail groups by eGroups.com
      Your message has been successfully submitted and would be delivered to recipients shortly.