Hola, hos comento he creado el circuito y el programa par controlar el servo, pero no funciona bien. Si pongo el programa del servo solo en otro circuito si que se mueve pero si lo pongo todo junto no funciona. Os pogo el programa del emisor y del receptor (lo mas seguro que sera alguna tontada pero para un aficionado aprendiz...)
emisor
include "modedefs.bas"
C VAR BYTE
PAUSE 300
loop:
if porta.1=0 then
gosub der
endif
if porta.0=0 then
gosub izq
endif
goto loop
izq:
FOR C=0 TO 16
serout portb.2,T300,[6,6,"OK",1]
PAUSE 3000
NEXT C
goto loop
der:
FOR C=0 TO 16
serout portb.2,T300,[6,6,"OK",2]
PAUSE 3000
NEXT C
goto loop
end
receptor
include "modedefs.bas"
datos var byte
DEVICE 16F628
DIM Pos as WORD
SYMBOL Pin = PORTA.3
CMCON = 7
Pos = 1500
PORTA = 0
TRISA = %00000111
PAUSE 300
Loop:
serin portb.2,T300,[datos]
If datos=1 Then IF Pos < 3000 Then Pos = Pos + 1
If datos=2 Then Pos = 1500
If datos=3 Then IF Pos > 0 Then Pos = Pos - 1
SERVO Pin , Pos
DELAYMS 5
PRINT AT 1 , 1 , "Position=" , @Pos , " "
goto Loop
end
os adjunto el circuito, no se que mas deciros. Graicas