hola Reyvilla te cuento, los motores no se mueven probé con un frecuencimetro y los pics no dan señales de salida, cambie los pics y tampoco y los servos son HT500 HEXTRONIK no se que faltara a la hora de configurar los pics
te agradezco por estar ayudandome
hola a todos de nuevo ando por estos lados con la molestadera, a ver les cuento un poco de historia hace ya casi 11 años tuve un accidente y estuve incapacitado 3 meses por lo cual tuve bastante tiempo para mi, así que me puse en la tarea de hacerme un frecuencimetro que tambien fuera capaz de contar pulsos o eventos y lo hice totalmente con tecnología TTL y aunque hoy día aun funciona perfectamente ya creo que está obsoleto y quiero hacerlo ahora con un pic en aquella época utilice para este fin la gran cantidad de integrados de 13 en total, 12 para contadores y divisores y un 74c925 para el control de los 4 display de cátodo común; ya hice un prototipo en proteus y escribí un programa, pero como suele pasar no me funciono como yo quiero, en frecuencimetro funciona perfectamente pero no en la función contador, se supone que en esta función debe ser capaz de contar los pulsos que lleguen a su entrada con la misma velocidad que entren pero esto no lo he podido conseguir, aquí les subo los archivos para que los vean.
este era mi antiguo frecuencimetro http://youtu.be/K1LhIJD8aQ8 media frecuencias hasta de 100 MHz como verán ya se ve muy anticuado pero aun funciona perfectamente
estaré muy agradecido por su ayuda
LED1 var portb.0 ;designamos LED1 al portb.0
boton var porta.1 ;designamos boton a porta.1
num var BYTE
num=0
Pulsar
porta.1=num
IF boton=0 THEN encender
GOTO Pulsar
encender:
IF boton=0 THEN encender;espera que suelte boton
PAUSE 200 ;pausa de 200 milisegundos para antirrebotes
HIGH LED1 ;encendemos LED1
num=2 ;no estoy seguro si esto debe ir
IF num=2 THEN apagar ;contabiliza dos pulsaciones y va a apagar
apagar
LOW LED1
GOTO Pulsar
END
Te hace falta especificar que PIC estás usando, aparte así como está tu programa no lograrás ver que pase algo.
Pulsar:
If boton = 0 Then Encender
GoTo Pulsar
Encender:
If boton = 0 Then Encender
Toggle LED1
GoTo Pulsar'pic conectado a pc y a kyl-210
INCLUDE "modedefs.bas"
DEFINE OSC 4
TRISB = %11101111 ' Configuración el Puerto A
TRISD = %00000000 ' Configuración el Puerto B
TRISC = %10101111
SENSOR1 VAR BYTE
SENSOR2 VAR BYTE
SENSOR3 VAR BYTE
SENSOR4 VAR BYTE
TX VAR PORTC.6
RX VAR PORTC.7
B0 VAR BYTE
A VAR BYTE
A = 1
B VAR BYTE
B = 2
C VAR BYTE
C = 3
D VAR BYTE
D = 4
E VAR BYTE
E = 5
F VAR BYTE
F = 6
G VAR BYTE
G = 7
H VAR BYTE
H = 8
PORTD = %11111111 ' Inicializa el puerto "D".
PORTB = %00001000
INICIO:
SERIN RX,T9600,2000,SENSAR,B0 'RECIBE DESDE VISUAL BASIC
if B0 = "1" THEN CALL purga1 'SI ES 1 LLAMA A PURGAR TUBERIA 1
IF B0 = "2" THEN CALL purga2
IF B0 = "3" THEN CALL purga3
IF B0 = "4" THEN CALL purga4
IF B0 = "5" THEN 'SI ES 5,PIDE INFORMACION DE LOS SENSORES,
CALL SENSORUNO 'LLAMA A SENSOR 1
PAUSE 1000
CALL SENSORDOS
PAUSE 1000
CALL SENSORTRES
PAUSE 1000
CALL SENSORCUATRO
PAUSE 1000
ENDIF
GOTO INICIO
END
SENSAR:
CALL SENSORUNO
PAUSE 100
CALL SENSORDOS
PAUSE 100
CALL SENSORTRES
PAUSE 100
CALL SENSORCUATRO
PAUSE 100
GOTO INICIO
purga1:
LOW PORTD.0 'ESTO SOLO SON LEDS PARA VERIFICAR EL FUNCIONAMIENTO
PAUSE 250
SerOut PORTB.4,T9600,["X",A] 'ENVIA EL COMANDO PARA HACER PURGA
PAUSE 500
HIGH PORTD.0 'ESTO SOLO SON LEDS PARA VERIFICAR EL FUNCIONAMIENTO
RETURN
purga2
LOW PORTD.1
PAUSE 250
SEROUT PORTB.4,T9600,["X",B]
PAUSE 500
HIGH PORTD.1
RETURN
purga3:
LOW PORTD.2
PAUSE 250
SEROUT PORTB.4,T9600,["X",C]
PAUSE 500
HIGH PORTD.2
RETURN
purga4:
LOW PORTD.3
PAUSE 250
SEROUT PORTB.4,T9600,["X",D]
PAUSE 500
HIGH PORTD.3
RETURN
SENSORUNO:
low PORTD.4 'ESTO SOLO SON LED PARA VERIFICAR EL FUNCIONAMIENTO
SEROUT PORTB.4,T9600,["X", E] 'ENVIA POR PORTB.4, KYL-210, PIDE INFO DE SENSOR1
PAUSE 100
SERIN PORTB.5,T9600,["X"],SENSOR1 'ESPERA POR EL PORTB.5 CONECTADO AL KYL-210 'RESPUESTA DEL SENSOR 1 EN EL OTRO PIC
PAUSE 100
SEROUT TX,T9600,[SENSOR1] 'ENVIA DATOS POR TX A LA PC, A VISUAL BASIC
PAUSE 100
HIGH PORTD.4 'ESTO SOLO SON LED PARA VERIFICAR EL FUNCIONAMIENTO
RETURN
SENSORDOS:
low PORTD.5
SEROUT PORTB.4,T9600,[6]
PAUSE 100
SERIN PORTB.5,T9600,["X"],SENSOR2
PAUSE 100
SEROUT PORTB.4,T9600,[SENSOR2]
PAUSE 100
HIGH PORTD.5
RETURN
SENSORTRES:
low PORTD.6
SEROUT PORTB.4,T9600,[7]
PAUSE 100
SERIN PORTB.5,T9600,["X"],SENSOR3
PAUSE 100
SEROUT TX,T9600,[SENSOR3]
PAUSE 100
HIGH PORTD.6
RETURN
SENSORCUATRO:
low PORTD.7
SEROUT PORTB.4,T9600,[8]
PAUSE 100
SERIN PORTB.5,T9600,["X"],SENSOR4
PAUSE 100
SEROUT TX,T9600,[SENSOR4]
PAUSE 100
HIGH PORTD.7
RETURN
END'Pic conectado a kyl-210, sensores y válvulas
INCLUDE "modedefs.bas"
DEFINE OSC 4
TRISA = %111111
TRISB = %11111111 ' Configuración el Puerto A
TRISD = %00000000 ' Configuración el Puerto B
TRISC = %10111000
ADCON0 = %00000000
ADCON1=7
TX VAR PORTC.6
RX VAR PORTC.7
B0 VAR BYTE
SENSOR1 VAR BYTE
SENSOR2 VAR BYTE
SENSOR3 VAR BYTE
SENSOR4 VAR BYTE
FRECUENCIA1 VAR BYTE
FRECUENCIA2 VAR BYTE
FRECUENCIA3 VAR BYTE
FRECUENCIA4 VAR BYTE
e var byte
f var byte
g var byte
h var byte
PORTA = %000000
PORTD = %00000000 ' Inicializa el puerto "B".
PORTB = %00000000
PORTC = %00000000
INICIO:
IF PORTC.3 = 1 THEN CALL MANUAL 'uso manual
IF PORTC.4 = 1 THEN CALL RecibeRF 'automatico
PAUSE 100
GOTO INICIO
END
MANUAL:
IF PORTB.0 = 1 THEN CALL purga1
IF PORTB.1 = 1 THEN CALL purga2
IF PORTB.2 = 1 THEN CALL purga3
IF PORTB.3 = 1 THEN CALL purga4
PAUSE 100
RETURN
RecibeRF:
PAUSE 250
HIGH PORTD.7 'solo para verificar funcionamiento
SERIN RX,T9600,["X"],B0 'recibe comando guarda en B0 y elije
if B0 = 1 THEN CALL purga1 'para purgar tubería principal
IF B0 = 2 THEN CALL purga2
IF B0 = 3 THEN CALL purga3
IF B0 = 4 THEN CALL purga4
IF B0 = e THEN CALL SENSORUNO 'para sensar en el sensor 1
IF B0 = f THEN CALL SENSORDOS
IF B0 = g THEN CALL SENSORTRES
IF B0 = h THEN CALL SENSORCUATRO
LOW PORTD.7
RETURN
SENSAR:
CALL SENSORUNO
PAUSE 100
CALL SENSORDOS
PAUSE 100
CALL SENSORTRES
PAUSE 100
CALL SENSORCUATRO
PAUSE 100
GOTO INICIO
purga1:
portd.0 = 1 'CIERRA V1
pause 1000
portd.1 = 1 'ABRE V2
pause 1000
portc.0 = 1 'ENCIENDE BOMBA
pause 10000 'TIEMPO QUE DURA BOMBA ENCENDIDA(MODIFICABLE), SI LA PRESION AUMENTA SE APAGA AUTOMATICAMENTE LA BOMBA!
portc.0 = 0 'APAGA BOMBA
pause 1000
portd.1 = 0 'ABRE V1
pause 1000
portd.0 = 0 'CIERRA V2
pause 1000
goto inicio
purga2:
portd.2 = 1 'CIERRA V3
pause 1000
portd.3 = 1 'ABRE V4
pause 1000
portc.0 = 1 'ENCIENDE BOMBA
pause 10000
portc.0 = 0 'APAGA BOMBA
pause 1000
portd.2 = 0 'ABRE V3
pause 1000
portd.3 = 0 'CIERRA V4
pause 1000
goto inicio
purga3:
portd.4 = 1 'CIERRA V5
pause 1000
portd.5 = 1 'ABRE V6
pause 1000
portd.5 = 0
portc.0 = 1 'ENCIENDE BOMBA
pause 10000
portc.0 = 0 'APAGA BOMBA
pause 1000
portd.4 = 0 'ABRE V5
pause 1000
portc.1 = 1 'CIERRA V6
pause 1000
portc.1 = 0
goto inicio
purga4:
portd.6 = 1 'CIERRA V7
pause 1000
portd.7 = 1 'ABRE V8
pause 1000
portd.7 = 0
portc.1 = 1 'ENCIENDE BOMBA
pause 10000
portc.1 = 0 'APAGA BOMBA
pause 1000
portd.6 = 0 'ABRE V7
pause 1000
portc.2 = 1 'CIERRA V8
pause 1000
portc.2 = 0
goto inicio
SENSORUNO:
count PORTB.4,2000,SENSOR1 ' cuenta la salida del sensor 1 y guarda
FRECUENCIA1 = SENSOR1/2
PAUSE 100
SEROUT PORTC.6,T9600,["X",FRECUENCIA1] 'envía respuesta al otro pic por kyl-210
RETURN
SENSORDOS:
count PORTB.5,2000,SENSOR2
FRECUENCIA2 = SENSOR2/2
PAUSE 100
SEROUT PORTC.6,T9600,["X",FRECUENCIA2]
RETURN
SENSORTRES:
count PORTB.6,2000,SENSOR3
FRECUENCIA3 = SENSOR3/2
PAUSE 100
SEROUT PORTC.6,T9600,["X",FRECUENCIA3]
RETURN
SENSORCUATRO:
count PORTB.7,2000,SENSOR4
FRECUENCIA4 = SENSOR4/2
PAUSE 100
SEROUT PORTC.6,T9600,["X",FRECUENCIA4]
RETURN
endGracias por el aporte (Toggle cambio el estado de led1 ) buena ;-)
LED1 var portb.0 ;designamos LED1 al portb.0
boton var porta.1 ;designamos boton a porta.1
Pulsar:
If boton = 0 Then Encender
GoTo Pulsar
Encender:
If boton = 0 Then Encender
PAUSE 200
Toggle LED1
GoTo PulsarEn lo que a mi respecta, sólo te podré ayudar con la comunicación serial, lo demás ya corre por tu cuenta.
Esa es la palabra de configuración para el PIC.
El comentario lo dice, y sólo fue puesto para hacer un eco de los datos enviados al PIC.
El 13 equivale a enviar un retorno de carro, y el 10 a enviar un salto de línea.
Si, todo depende de la forma en que quieras recibir los datos, y solamente se usa para números.
Posiblemente, en tu programa estás usando los pines del módulo USART, pero les das un uso normal,
De nada, Saludos.
Low PORTD.4 'ESTO SOLO SON LED PARA VERIFICAR EL FUNCIONAMIENTO
SerOut TX,T9600,["X",e,13,10] 'ENVIA POR PORTB.4, KYL-210, PIDE INFO DE SENSOR1
Pause 100
SerIn RX,T9600,["se"],SENSOR1 'ESPERA POR EL PORTB.5 CONECTADO AL KYL-210 'RESPUESTA DEL SENSOR 1 EN EL OTRO PIC
Pause 100
if SENSOR1 > 30 then
SerOut TXPIN,T9600,[" FLUJO EN TUBERIA PRINCIPAL: CORRECTO "] 'ENVIA DATOS POR TX A LA PC, A VISUAL BASIC
ELSE
SerOut TXPIN,T9600,[" FLUJO EN TUBERIA PRINCIPAL: BAJO "]
endif
if sensor1 = 0 then
SerOut TXPIN,T9600,[" *FALLA TUBERIA PRINCIPAL* "]
endif
Pause 1000
High PORTD.4 'ESTO SOLO SON LED PARA VERIFICAR EL FUNCIONAMIENTO
Return
