Hola Darrel,

Gracias por contestarme en mi idioma natal el español, estoy muy agradecido por su ayuda y hare lo que me dice.

Muchas Gracias

Leonard





Quote Originally Posted by Darrel Taylor
Hola Leonardo,

Ahora que usted tiene PicBasic Pro. La manera más fácil de hacer el programa de 40 días es utilizar el primer ejemplo que di al principio de este thread.

Primero, usted necesita Download el programa de
http://www.picbasic.co.uk/forum/showthread.php?t=190

Entonces, intente esto...
Code:
<font color="#008000"><b>CLEAR

</b></font><b>Bcount  </b><font color="#008000"><b>VAR  BYTE

INCLUDE </b></font><font color="#FF0000">&quot;Elapsed.pbp&quot;         </font><font color="#0000FF"><b><i>; Include the Elapsed Timer Routines
</i></b></font><font color="#008000"><b>GOSUB </b></font><b>ResetTime               </b><font color="#0000FF"><b><i>; Reset Time to  0d-00:00:00.00    

</i></b></font><b>Start</b>:
    <b>Bcount </b>= <b>0
MainLoop</b>:
    <font color="#008000"><b>BUTTON </b></font><b>PORTB</b>.<b>1</b>,<b>0</b>,<b>200</b>,<b>255</b>,<b>Bcount</b>,<b>1</b>,<b>Start40   </b><font color="#0000FF"><b><i>; Wait for button press
    </i></b></font><font color="#008000"><b>PAUSE </b></font><b>1
</b><font color="#008000"><b>GOTO </b></font><b>MainLoop

Start40</b>:
    <font color="#008000"><b>GOSUB </b></font><b>StartTimer          </b><font color="#0000FF"><b><i>; Start the Elapsed Timer
</i></b></font><b>Loop40</b>:
    <font color="#008000"><b>IF </b></font><b>DaysChanged</b>= <b>1 </b><font color="#008000"><b>THEN
        </b></font><b>DaysChanged</b>= <b>0
        </b><font color="#008000"><b>IF </b></font><b>Days </b>= <b>40 </b><font color="#008000"><b>THEN     </b></font><font color="#0000FF"><b><i>; Has it been 40 days
            </i></b></font><font color="#008000"><b>GOSUB </b></font><b>StopTimer
            </b><font color="#008000"><b>GOSUB </b></font><b>ResetTime   </b><font color="#0000FF"><b><i>; Reset Elapsed Timer
            </i></b></font><font color="#008000"><b>HIGH </b></font><b>PORTB</b>.<b>0      </b><font color="#0000FF"><b><i>; Turn ON output
            </i></b></font><font color="#008000"><b>PAUSE </b></font><b>10000       </b><font color="#0000FF"><b><i>; Hold output high for 10 seconds
            </i></b></font><font color="#008000"><b>LOW </b></font><b>PORTB</b>.<b>0       </b><font color="#0000FF"><b><i>; Turn OFF output
            </i></b></font><font color="#008000"><b>GOTO </b></font><b>Start         </b><font color="#0000FF"><b><i>; go back to beginning.
        </i></b></font><font color="#008000"><b>ENDIF
    ENDIF
    </b></font><font color="#0000FF"><b><i>; .. You can do other things here while waiting for 40 days (if needed) ..
</i></b></font><font color="#008000"><b>GOTO </b></font><b>Loop40</b>