LiveCode Forums.

Code: Select all

set the numberformat to 00
      add 1 to field ClockSec of card controller
      if field ClockSec of card controller = 60
      then
         add 1 to field ClockMin of card controller
         put 00 into field ClockSec of card controller
      else
      end if

Code: Select all

on mouseUp
   If the label of ME is "Start" then
      set the label of ME to "Stop"
      set the backgroundcolour of ME to red
         DoCountUp
   else 
      set the label ME to "Start"
      set the backgroundcolour of ME to green
   end if
end mouseUp

on DoCountUp
   if label of ME is "Stop"
   then
      set the numberformat to 00
      add 1 to field GameClockSec of card controller

      if field GameClockSec of card controller = 60
      then
         add 1 to field GameClockMin of card controller
         put 00 into field GameClockSec of card controller
      else
      end if
      send "DoCountUp tNewTime" to me in 1 second
   end if
end DoCountUp

Code: Select all

local lStartTime

on updateTime
  if lStartTime is empty then
    put the seconds into lStartTime
  end if
  put the seconds - lStartTime into myLapsedSeconds
  put myLapsedSeconds div 60 into myMinutes
  put myLapsedSeconds mod 60 into mySeconds
  put myMinutes & colon & mySeconds into fld "Time"
  // there are better ways to do this, but this is just an example
  send "updateTime" to me in 500 milliseconds
end updateTime

on stopTime
  put the pendingMessages into myMessages
  filter myMessages with "*updateTime*"
  repeat for each line myMsg in myMessages
    cancel item 1 of myMsg
  end repeat
end stopTime

Code: Select all

on mouseUp
   If the label of ME is "Start" then
      set the label of ME to "Stop"
      set the backgroundcolour of ME to red
      updateTime
   else
      set the label ME to "Start"
      set the backgroundcolour of ME to green
      stopTime
   end if
end mouseUp

Code: Select all

on moveStack
  updateTime
end moveStack