Buenas, estoy intentando hacer funcionar un servo Hextronik HXT900 con una rutina bastante simple que hice en el Pic Simulator IDE.
Tengo entendido que los servos funcionan con un tren de pulsos entre 1ms y 2ms y con un periodo total de 20ms. Mi programa arranca con un salida de 1ms y mediante interrupciones va aumentando este tiempo en 100us, pero no hay caso... el servo se mueve en cualquier dirección!!!...
Alguien tiene alguna sugerencia?, estare perdiendo algo de vista? desde ya 1000 gracias!!!
Saludos.
'------------------------------------------------------------------------------------------
ANSEL = 0x00 'los pin I/O digitales (no analogicos)
OSCCON = 0x7e 'set intrc To 8mhz, se usara reloj interno a 8Mhz
CMCON = 0x07 'comparador a off
TRISA = %00000000
TRISB = %11111111
Dim x As Word
x = 1000
Dim aux As Word
INTCON.INTE = 1
Enable
loop:
PORTA.0 = 1
WaitUs x
PORTA.0 = 0
WaitMs 18
aux = 2000 - x
WaitUs aux
Goto loop
End
On Interrupt
x = x + 100
INTCON.INTF = 0
Resume
'------------------------------------------------------------------------------------------