
Originally Posted by
leonel
...
start:
...
if portb.1 = 1 then
gosub dez
portc.1 = 1
gosub dez
portc.2 = 1
gosub dez
portc.3 = 1
gosub dez
portc.4 = 1
gosub dez
endif
dez:
for i = 1 to 20
pause 10
if portb.2 = 1 then
goto start
endif
next i
I do not see any RETURN ... at the end of your sub ... the only chance to work is PortB.2 = 1 and others = 0 ... 15 chances of "punchthrough"
Alain
************************************************** ***********************
Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
************************************************** ***********************
IF there is the word "Problem" in your question ...
certainly the answer is " RTFM " or " RTFDataSheet " !!!
*****************************************
Bookmarks