Parallax BASIC Stamp 2e - Page 89

5: BASIC Stamp Command Reference - BUTTON
BASIC Stamp Programming Manual 2.0c • www.parallaxinc.com • Page 87
Demo Program (BUTTON.bas)
Connect the active-low circuit shown in Figure 5.1 to pin P0 of the BS1. When you press the
button, the Debug screen will display an asterisk (*). Feel free to modify the program to see
the effects of your changes on the way BUTTON responds.
'{$STAMP BS1} ‘STAMP directive (specifies a BS1)
SYMBOL BtnWrk = B0 ' Workspace for BUTTON instruction.
Loop:
' Try changing the Delay value (255) in BUTTON to see the effect of
' its modes: 0=no debounce; 1-254=varying delays before auto-repeat;
' 255=no auto-repeat (one action per button press).
BUTTON 0,0,255,250,BtnWk,0,NoPress ' Go to NoPress unless P0 = 0.
DEBYG "* "
NoPress:
GOTO Loop ' Repeat endlessly.
Demo Program (BUTTON.bs2)
Connect the active-low circuit shown in Figure 5.1 to pin P0 of the BS2. When you press the
button, the Debug screen will display an asterisk (*). Feel free to modify the program to see
the effects of your changes on the way BUTTON responds.
'{$STAMP BS2} ‘STAMP directive (specifies a BS2)
BtnWrk VAR BYTE ' Workspace for BUTTON instruction.
Loop:
' Try changing the Delay value (255) in BUTTON to see the effect of
' its modes: 0=no debounce; 1-254=varying delays before auto-repeat;
' 255=no auto-repeat (one action per button press).
BUTTON 0,0,255,250,BtnWk,0,NoPress ' Go to NoPress unless P0 = 0.
debug "* "
NoPress:
GOTO Loop
1
2
e
2
sx
2
p
2
NOTE: This is written for the BS2
but can be used for the BS2e,
BS2sx and BS2p also. Locate the
proper source code file or modify
the STAMP directive before
downloading to the BS2e, BS2sx or
BS2p.