' {$STAMP BS2} ' {$PBASIC 2.5} ' ========================================================================= ' ' File.......CO2 sensor module - June.04.2010.BS2/ BS2e ' Purpose.... Alerts when CO2 concentration is over a threshold limit ' Rocketeers v.4.... Andrew (am), Dylan (dl), Sean (sd) ' Rocketeers v.4.... Justin (ja), Mike (mp), Thomas (tz) ' Expert mentors (aka Peanut Gallery)... Tracy Allen (ta), Paul Smith (ps) ' Faculty.... Mark Kibler (mk) ' Mammalian support.... Bandit the Rocket Dog and Sylvie ' E-mail..... mkibler@alumni.unity.edu ' Started.... June 04, 2010 ' ' NOTE: The CO2 sensor has to be calibrated according to the product documentation ' before it will 'alert.' The documentation is available on the Parallax website. ' ' ========================================================================= ' -----[ Program Description ]--------------------------------------------- ' The CO2 module and computer screen "alert" when CO2 concentration is over the threshold limit. ' -----[ Revision History ]------------------------------------------------ ' HIGH 4 'This activates the Heat Switch (HSW) 'HSW pin is called CNTL on the carbon dioxide (CO2) monoxide 'HSW pin is marked HSW on the carbon monoxide (CO) module DO DEBUG BIN1 IN3 'This displays the alarm status. '1 = CO2 concentration is above threshold. '0 = CO2 is below threshold IF IN3 = 1 THEN DEBUG "*** ALARM! *** - HIGH CO2 LEVEL DETECTED", BELL, CR, BELL, CR, BELL, CR ELSE: IN3 = 0 DEBUG "CO2 level is NOMINAL", CR, CR ENDIF: IN3 = 999 LOOP