HOLA COMO ESTAN, CREO QUE POR FIN ENCONTRE A LAS PERSONAS QUE ME PUEDEN AYUDAR DENTRO DEL FORO.
ESTOY REALIZANDO UN CONTROL DE 2 SERVOMOTORES POR MEDIO DEL PIC 16F873, LA IDEA ES QUE ESTOS SERVOS ME CONTROLEN 2 MOTORES DE COMBUSTION UTILIZADOS EN AEROMODELISMO, ADEMAS DEBO TOMAR LA LECTURA DE VELOCIDAD DE GIRO DE LOS MOTORES POR MEDIO DE UN TACOMETRO.
YO YA TENGO LOS 2 PROGRAMAS POR SEPARADOS, PERO AHORA DEBO JUNTARLOS. MI PROBLEMA ES QUE AL JUNTARLOS NO ME FUNCIONAN ES POR ESO QUE QUIERO QUE ME AYUDEN Y VOY A COLOCAR LOS CODIGOS PARA QUE LOS REVISEN.
CONTROL DE SERVOS:
include "MODEDEFS.BAS"
define osc 4
A var word
B var word
C var word
R var word
A1 var word
B1 var word
C1 var word
PORTB=0
inicio:
R=0
serin portb.1,n9600,A,B,C
LOOKDOWN A, ["0123456789"],A1
LOOKDOWN B, ["0123456789"],B1
LOOKDOWN C, ["0123456789"],C1
R=(A1*100+B1*10+C1)
pulsout portb.2,R
pulsout portb.4,R
goto inicio
TACOMETRO:
include "MODEDEFS.BAS"
define osc 4
w1 var word
w2 var word
a var word
b var word
inicio:
count portc.0,1000,w1
count portc.2,1000,w2
a=60*w1
b=60*w2
serout portc.1,t9600,["MOTOR1 :",#a," ","MOTOR2 :",#b]
goto inicio
EL ENVIO Y RECEPCION DE DATOS DEBO HACERLO POR MEDIO DE VISUAL BASIC.
PD: NOSE SI LAS INSTRUCCIONES SON LAS ADECUADAS PARA QUE ME TRABAJEN JUNTAS, OJALA PUEDAN AYUDARME Y ESTE MUY CLARO LO QUE NECESITO.-
UN ABRAZO GRANDE Y ADIOS.-