Blood In Flem Post Glandular Fever

Focus car mobile for greenhouse 16F628A Lock

Well this is a pileup that I have made to expand the luminous surface of a greenhouse. The system is quite simple, is a pic 16F628A, a ULN2003, PAP engine diagram of 5 wires connected to a worm (1 meter approximately) metric 6. Its operation is simple, the picture is connected with the rod, so that when it spins, it further (or back) depending on the direction of rotation, when the end does a push switch and tells the 16F628A to back to reach the other button. The approximate time it takes to turn around is 45 minutes and make the round trip 1h 30min. Here I leave a photo and soon will include the code that is very sencillito.
Click on photo to enlarge
Click on photo to enlarge

Click on photo to enlarge

NOTE: This is in addition I've had to do to not bend and not draw the rail car.

Click on photo to enlarge



circuit diagram: Click the image to see it ;-)



This is the program in PBP:

cmcon = 7 var PORTA.0
pul1
'name for the port A0
porta.1 pul2 var' name for port A1
x var byte 'Variable
byte TRISB = 0 ' put to 0 all port B

Anti-clockwise:
for x = 1 to 96 'Repeat 96 times between the
PORTB = 01' FOR and NEXT
4 pause 'pause

4 milliseconds PORTB = 10
pause 4


PORTB =% 0100 4

pause PORTB =% 1000 pause 4


pul1 = 0 then if time 'If the button is activated pul1 will schedule next

PORTB = 0000' set to 0 the first 4 pins
puertoB pause 5000 'Pause for 5 seconds counterclockwise
goto' label again counterclockwise

Hours:
for x = 1 to 96
PORTB =% 1000 pause 4


PORTB =% 0100 pause 4


PORTB = 10
pause 4

PORTB = 01
pause 4

pul2 = 0 if Then counterclockwise
next
PORTB = 00
5000
pause goto END
time