Useful application for the lowly old Stamp1-D

Robert Smithe

Another good use for the Lowly old Stamp 1 D

This application uses two servos - the first to depress one of two buttons and the second servo
(modified for continuous rotation) to move a strip of paper thru a benchtop paper testing machine.



Once the newsprint sample is placed in the Parker Print Surf and the stamp is activated
the device tests 10 positions before the sample is manually turned over to repeat the sequence on
the second side. This allow more productive use of time as well as relief from a tedious task.



The only attachment to the original test equipment is the servo on front of machine. It is attached with with some packing foam with double sided masking tape on both sides.

Below are two pictures of Stamp1-D working happily on its own
as well as the simple but operational code for this application.

'stamp 1 d pin usage - switch input 4, test servo 1, move servo 0  

symbol cont =  w0       ' W0 holds the count
symbol tests = b2 ' number of tests
symbol dwell = 15 ' reps for servo to move to and hold setpoint 

STARTUP: output 0 
         output 1
         input  4
         low 0
         low 1 
          
     gosub center    ' center button pushing servo

loop: if pin4 = 0 then loop   ' loop until start switch pushed
 
      tests =1 

test: for cont = 0 to dwell ' duration of test button down
      pulsout 1,125  
      pause 20    
      next cont 

       gosub center

delay: for cont=1 to 7  ' wait for test to complete
       pause 1000  
       next cont
 
back: tests=tests+1
      if tests>10 then avg 

  move: for cont = 0 to 170 ' move sample between tests
      pulsout 0,120  
      pause 20
      next cont
 
      if tests<11 then test 

avg: pause 1000  ' wait 1 second before average button
     for cont = 0 to dwell   ' length of average button down
     pulsout 1,175  '  - terminates test series
     pause 20    
     next cont 
 
     gosub center
 
 goto startup 

 center:  for cont = 0 to dwell     ' center test servo
     pulsout 1,150  
     pause 20
     next cont
     return

end 

  

Post Edited (Robert Smithe) : 11/28/2004 8:09:52 AM GMT

Jon Williams

Lowly? I think not! Lovely is a much more appropriate word for the BS1.

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax
Dallas Office