Anthony Roggenbuck

Home Up Feedback Contents

 

Home
Up
Resume
Transcript
Projects
Work Experience
Recreation

 

 

 

 

 

 

 

 

Capacitor Timer

' {$STAMP BS2}
' {$PBASIC 2.5}
' {$PORT COM5}


timeCounter VAR Word
counter VAR Nib

DEBUG CLS

HIGH 7
DEBUG "Capacitor Charging....", CR

FOR counter = 5 TO 0
PAUSE 1000
DEBUG DEC5 counter, CR, CRSRUP
NEXT

DEBUG CR, CR, "Measure decay time now!", CR, CR
INPUT 7

DO
PAUSE 100
timeCounter = timeCounter + 1

DEBUG ? IN7
DEBUG DEC5 timecounter, CR, CRSRUP, CRSRUP

LOOP UNTIL IN7 = 0

DEBUG CR, CR, CR, "The Delay time was ",
DEC timeCounter, CR,
"tenths of a second." , CR, CR

END

 

Send mail to with questions or comments about this web site to anthony@roggenbuck.us
Copyright 2007 Anthony Roggenbuck