Servo motor does not work correct

[EarlyBird2]

Hello EarlyBird2
I modified the program (dec pos)
The servo move well.
have problem
I have no command (RX) not working AC motors
Could you tell me why (RX) does not work.
thank you

Could you explain more "I have no command (RX) not working AC motors. Could you tell me why (RX) does not work."

RX has the value "X" and the servo works so how is RX not working?

[cesar35]

Hello
After modifying (DEC POS) The RX does not work
I can send data to the rx ac motors not working.
So the servant move
I used (Servo gosub)
The servant problem has already works better
Thank you all.

serin2 RX_inp,16468,500,PAR,[wait("PC"),RX,DEC POS]

IF RX = "A" THEN FRE
IF RX = "B" THEN TRA
IF RX = "C" THEN ESQ
IF RX = "D" THEN DIr
GOSUB SERVO
GOTO PROG

SERVO:
servo1 = 1
PAUSEUS 1000 + pos
servo1 = 0
Pause 16
RETURN

[EarlyBird2]

You are saying that POS is received and works but "X" is not received.

[Demon]

I noticed he changed HIGH/LOW to 1/0.

Robert


Edit: (if I'm awake) a bipolar motor needs the 4 inputs to vary in a specific order (one for CW, one for CCW).

If you keep turning on the motor but these don't change state, I think you end up with the motor holding position.

[cesar35]

As I said the command RX does not work.
Here's a video made ​​in proteus.

[EarlyBird2]

The code you are running is not the code in #5 and #19.

Please post the code you are using.

[EarlyBird2]

As I said the command RX does not work.

RX is not a command. RX is a variable which is assigned an ASCII code when serin2 is executed.

I see you changed IF THEN to SELECT CASE. SELECT CASE is for values and not ASCII characters like "A".

Did it stop working when you made these changes?
Did you make these changes because it did not work with IF THEN?
Is the servo working if not has the servo ever worked?

[cesar35]

Hello all well
Here is the code

@ DEVICE PIC16F876A
@ DEVICE PIC16F876A,WDT_ON
@ DEVICE PIC16F876A,PWRT_ON
@ DEVICE PIC16F876A,PROTECT_off
@ DEVICE PIC16F876A,XT_OSC
define OCS 4
ADCON1 = 7
TRISC=%10000000:PORTC=%10000000
TRISA=%11111111:PORTA=%11111111
TRISB=%00000000:PORTB=%00000000

SYMBOL SERVO1=PORTB.0 'SERVO1
SYMBOL RX_INP=PORTC.7 'RF

RX VAR BYTE
POS VAR word

PROG:
serin2 RX_inp,84,500,MODATA,[wait("PC"),RX,DEC POS]

SELECT CASE RX
CASE "1"
GOSUB FRE
CASE "2"
GOSUB TRA
CASE "3"
GOSUB DIR
CASE "4"
GOSUB ESQ
CASE "5"
HIGH PORTB.0
pauseus 1000 + pos
LOW PORTB.0
Pause 16
END SELECT
GOTO PROG

FRE:
PORTC.0 = 0
PORTC.1 = 1
PORTC.2 = 1
PORTC.3 = 0
RETURN
TRA:
PORTC.0 = 1
PORTC.1 = 0
PORTC.2 = 0
PORTC.3 = 1
RETURN
ESQ:
PORTC.0 = 1
PORTC.1 = 0
PORTC.2 = 1
PORTC.3 = 0
RETURN
DIR:
PORTC.0 = 0
PORTC.1 = 1
PORTC.2 = 0
PORTC.3 = 1
RETURN

MODATA:

PORTB.0 = 0
PORTB.1 = 0
PORTB.2 = 0
PORTB.3 = 0
GOTO PROG

[EarlyBird2]

RX is not a command. RX is a variable which is assigned an ASCII code when serin2 is executed.

I see you changed IF THEN to SELECT CASE. SELECT CASE is for values and not ASCII characters like "A".

Did it stop working when you made these changes?
Did you make these changes because it did not work with IF THEN?
Is the servo working if not has the servo ever worked?

Thanks for the code but you have not answered the questions.