RE: Speed Counters

Bill,

> I think your 'case of ' tempcounters might be in the wrong order...

You're totally right. Here's the fixed code:

Michael, here it is fixed:

Place this in the button method:
Case of
  :(form event = on clicked)
    counter:=counter+1
    SET TIMER (10)
End Case

Place this in the form method and make sure the On timer form event is
selected from the form properties:
Case of
  :(form event = on load)
    C_LONGINT(counter;tempcounter)
    counter:=0
    tempcounter:=0
  :(form event = on timer)
    GET MOUSE($x;$y;$button)
    If($button=1)
      tempcounter:=tempcounter+1
      counter:=counter+1
      case of
        :(tempcounter > 12)
          SET TIMER(2)
        :(tempcounter > 9)
          SET TIMER(4)
        :(tempcounter > 6)
          SET TIMER(6)
        :(tempcounter > 3)
          SET TIMER(8)
      End case
    Else
      SET TIMER(0)
End Case

Kind Regards,

Tom Fitch
Technical Services Team Member
4D, Inc.

**********************************************************************
4D Basics hosted by 4D, Inc.                       http://www.4D.com/

Register for 4D Summit 2009 Today
Early Bird Pricing Ends August 28th - http://www.4D.com/summit

To Unsubscribe:                        mailto:4DBasics-off@...
**********************************************************************