Begineer Problem

Comments

• Bruce Bates Posts: 3,045

  2005-02-15 06:09 edited 2005-02-15 06:09

  aklaken -
  
  I'm a bit surprised it's not more intuitive that if you want to increment a counter by one, you add one to it, not 2, 5 or anything else:
  
  cnt = cnt + 1 'Increment the counter by one
  
  Regards,
  
  Bruce Bates
• akla Posts: 2

  2005-02-15 06:39 edited 2005-02-15 06:39

  thanks bruce, i not reliase it, now its working
  thanks again
  regards
  aklaken·
• achilles03 Posts: 247

  2005-02-15 15:04 edited 2005-02-15 15:04

  Also, is the input on pin 1 transitioning from high to low no faster than once a second? If not, that "pause 1000" statement might need fine tuning.
  
  Dave
• Jon Williams Posts: 6,491

  2005-02-15 16:10 edited 2005-02-15 16:10

  Give this a try.· It's a little more verbose than your code -- you'll find as programs grow this style is easier to read and maintain.·
  
  You say in your program than you want to "press and release" the button; the code below shows how (one method, there are many) to do that.
  
  

  ' {$STAMP BS2sx}
  ' {$PBASIC 2.5}
   
   
  Btn         PIN    1
  Alarm       PIN    5
   
   
  btnCount    VAR    Nib
   
   
  Reset:
    btnCount = 0
    LOW Alarm                      ' make output and off
   
   
  Main:
    DO WHILE (btnCount < 5)        ' monitor until count = 5
      DO : LOOP WHILE (Btn = 0)    ' wait for press
      PAUSE 100                    ' debounce delay
      DO : LOOP UNTIL (Btn = 0)    ' force release
      btnCount = btnCount + 1      ' update count
    LOOP 
   
    HIGH Alarm                     ' turn on
    DEBUG "Alarm", CR
    PAUSE 2000                     ' delay for alarm output
    GOTO Reset                     ' start over 
  

  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  Jon Williams
  Applications Engineer, Parallax
  Dallas, TX· USA