Curso de programación de PIC en PICBasic Pro

kano2468 · Jun 9, 2013

Estuve revisando tus programas y noté que aún no incluyes la palabra de configuración el tus códigos.
Ahora más que nada es importante que la incluyas, pues cambiaste de 4MHz a 20MHz.
Y el compilador usará XT_OSC y necesitas usar HS_OSC
También estará el Watch Dog Timer habilitado, y eso te puede estar reseteando el microcontrolador.
Es recomendable habilitar el fuse PWRTE "Power Up Timer" para estabilizar voltajes al iniciar.
En cuanto al fuse BOREN "Brown-Out Reset" puede quedar habilitado.
Su uso provocará un reset cuando exista un bajo voltaje en la alimentación del PIC.
Por lo tanto, si tu fuente de alimentación es estable, y con suficiente amperaje, puede quedar habilitado.
Tienes que tener en cuenta esto cuando trabajas con la misma fuente para activar motores, válvulas, etc.

buenas noches gracias por tu respuesta.. esto creo que lo puedo hacer con el programa que uso para programar el pic.. adjunto imágenes... en la parte de fuses... espero que sea asi..

la fuente del pic es diferente de la de las válvulas y sensores, los pic tiene fuentes independientes..

El símbolo $ usado en el Select Case puede ser cualquiera, ése es un símbolo muy usado, por eso lo usé.
Pero puedes usar el que quieras, no es para saber si el caractér es basura.
En ese caso lo que se utilizaría es la opción "Else".
Así cualquier dato no incluido en la selección, entrará en la parte contraria "Else".

aquí todavía tengo dudas.. pero creo que no hay problemas con esto me ha funcionado bien..

Pasando al programa en Visual Basic, es recomendable el uso de Option Explicit
Para esto tienes dos opciones...
Puedes escribir Option Explicit en la cabecera del programa, o ir al menú Herramientas/Opciones...
Ahí seleccionas "Requerir declaración de variables"
Con esto obligas al compilador a que detecte los tipos de variables no declaradas en el programa.
Y en tu código existen errores por no usar esta sentencia.
Si miras bien tu programa, sobre todo en los bucles For del Timer1, verás que escribes... For y = o To 2
En vez de For y = 0 To 2

listo activado y corregido errores....

Te recomiendo que en vez de usar un timer, uses el evento OnComm del control MSComm32
Así la recepción de datos no estará limitada por la temporización de Timer1, y podrás tener más control.

en principio intente utilizarlo, pero no supe como hacerlo, si me pudieras dar un ejemplo te lo agradecería..

Otra recomendación es que tengas un control sobre los posibles errores que puedan ocurrir.
Por ejemplo... ¿Qué pasaría si tu programa fuera ejecutado en una PC que no tiene puertos seriales?
Obviamente se producirá en error que terminará tu programa abruptamente. Y eso no es deseado.

si tienes razón,pero ni siquiera me había pasado por la mente eso.. y ni idea de como solucionarlo, tocaria seguir indagando.

En cuanto a hacer comparaciones con cadenas de texto, no lo veo funcional.
Solamente puedes guardar un byte dentro de la variable de recepción. Y en tu programa comparas cadenas.
Es mejor que envíes un caractér ó número, y posteriormente lo compares.

listo cambie por letras, que en principio lo tenia asi, pero haciendo pruebas cambio todo. por mi inexperiencia trabajo probando como funciona cada cosa.

También te recomiendo que no diseñes formularios tan grandes, no todos tienen grandes resoluciones de pantalla.
Puedes hacer uso de las API de Windows para saber la resolución de la pantalla, y dar aviso al usuario.
Cuando un programa es mayor en tamaño que la resolución en pixeles de la pantalla, éste se sale.
Se pierde visibilidad de los controles, quedando incomodo para el usuario.
En estos casos lo que se hace, es crear formularios redimensionables que se puedan ajustar a la pantalla.
Trata en lo posible de no usar gráficos pesados, eso hace que tu programa ocupe mucha memoria.
Siempre son buen vistos los programas ligeros, de rápida carga, y menos consumo de recursos.
"Por eso me gustan los programas realizados en ensamblador de 32 bits" MASM32
Nota que tu programa compilado "*.exe" pesa más de 4Mb y no tiene mucho código.
Eso es debido al uso de gráficos que puedes sustituir por mensajes, o imágenes GIF.
Ahora que si te gusta la programación gráfica puedes usar DirectX para VB y verás mejores resultados.

Saludos y suerte.

[/QUOTE]

en eso te refieres al tamaño de la ventana del programa? lo tengo asi ya que queda perfecto en la pantalla de mi pc. que eso donde pienso correrlo.
graficos pesados? te refieres a las imágenes prediseñadas? es lo que consegui ni idea si existe algo parecido.

como funciona el directX para vb??? ya lo descarque pero no encuentro como utilizarlo..?

gracias por tu ayuda amigo..

D@rkbytes · Jun 9, 2013

Saludos nuevamente kano2468

Los fuses que tienes establecidos no están bien, debes usar esta palabra de configuración...
@ Device PIC16F877A
@ Device HS_OSC, WDT_OFF, PWRT_ON
Define OSC 20

Vista de los fuses con WinPIC800. "Es el que uso"

Si el programa en Visual Basic se ve bien en tu PC, y únicamente lo vas a usar tu, puedes dejarlo así.
En cuanto al uso de DirectX en VB6 existen muchos ejemplos en internet.
En la pagina que te mencioné puedes descargar un ejemplo sencillo y explicado, pero está en inglés.
Cómo esto ya se saldría del tema, no creo conveniente seguir explicando su uso.
Pero adjunto un ejemplo para que tengas una idea de lo que se puede hacer con DirectX.
Es la base de muchos juegos y aplicaciones multimedia.

Por ahora que empiezas, y para que no compliques tu programa, es preferible que lo dejes así.
Ya más adelante y cuando te adentres en la programación, podrás mejorarlo.

Lo importante por ahora es que logres realizar la comunicación entre los dispositivos y la PC.

Suerte.

kano2468 · Jun 10, 2013

buenas noches....

Los fuses que tienes establecidos no están bien, debes usar esta palabra de configuración...
@ Device PIC16F877A
@ Device HS_OSC, WDT_OFF, PWRT_ON

cuando los coloco me da error en el compilación... yo utilizo microcode, picbasicpro...
si los activo en el programador igualmente necesito usar esas palabras de configuración?

Define OSC 20

Vista de los fuses con WinPIC800. "Es el que uso"
Ver el archivo adjunto 93956

Si el programa en Visual Basic se ve bien en tu PC, y únicamente lo vas a usar tu, puedes dejarlo así.
En cuanto al uso de DirectX en VB6 existen muchos ejemplos en internet.
En la pagina que te mencioné puedes descargar un ejemplo sencillo y explicado, pero está en inglés.
Cómo esto ya se saldría del tema, no creo conveniente seguir explicando su uso.
Pero adjunto un ejemplo para que tengas una idea de lo que se puede hacer con DirectX.
Es la base de muchos juegos y aplicaciones multimedia.

Por ahora que empiezas, y para que no compliques tu programa, es preferible que lo dejes así.
Ya más adelante y cuando te adentres en la programación, podrás mejorarlo.

ok esta bien..

Lo importante por ahora es que logres realizar la comunicación entre los dispositivos y la PC.

en la simulación funciona espero que cuando lo monte funcione...

una consulta y vuelve me a disculpar por tanta molestia....
en esta parte donde recibo los datos de cada sensor por ejemplo este:
SensorNT1:
LOW PORTD.0
SerOut TX,T9600,["X",I,13,10]
PAUSE 100
SerIn RX,T9600,["si"],SENSORT1
IF SENSORT1 > 40 THEN
SerOut TXPIN,T9600,["M"]
else
SerOut TXPIN,T9600,["N"]
IF SENSORT1 = 0 THEN
SerOut TXPIN,T9600,["O"]
PAUSE 100
ENDIF
HIGH PORTD.0
RETURN

como puedo hacer esta selccion? o para que me envie el carácter que es? por que si SENSORT1es > a 40 ok mandara M la pc, Fino..
si SENSORT1 es < a 40 mandara N OK fino, pero si SENSORT1 es = 0 me manda N Y O juntos.. intente con select case y no pude, o no supe. y aun no lo logro.. me podrias sugerir algo? por favor...

gracias y saludos..

xmagdielx · Jun 10, 2013

Saludos compañeros!, primero quiero agradecer a todos los que aportaron conocimientos que me han ayudado grandemente. Bueno les comento que estoy haciendo una especie de calculadora con teclado y mostrarlo en LCD pero solo las operaciones básicas (suma,resta,multiplicación y division), basándome en el ejemplo del amigo mecatrodatos. Mi problema surge cuando quiero decirle al pic que ya ingrese un numero y que me pida el otro numero ( o los otros) para realizar la operación, me explico?, es decir, ingreso por ejemplo el 6, y que el pic lo reconozca como un primer digito, luego que ingrese por ejemplo el 5, y al presionar la tecla de (sumar) me muestre en el lcd el numero (5+6=11).

aqui tengo el codigo pero por los momentos solo puedo leer la tecla del teclado

Código:

Define  LCD_DREG        PORTD
Define  LCD_DBIT        4
Define  LCD_RSREG       PORTD
Define  LCD_RSBIT       2
Define  LCD_EREG        PORTD
Define  LCD_EBIT        3

TRISA=%00000000
TRISB=%00001111
                  'declaracion de filas y columnas
fila1 VAR portB.0
fila2 VAR portB.1
fila3 VAR portB.2
fila4 VAR portB.3
columna1 VAR portB.4
columna2 VAR portB.5
columna3 VAR portB.6
tecla VAR BYTE         
PAUSE 500

TECLA="@"
LCDOUT $FE, 1
LCDOUT $FE,$0F
lcdout $fe,"Introduzca numero"
inicio:
GOSUB teclado

if tecla<>"@"  then
if tecla="*" or tecla ="#" then
LCDOUT TECLA
LCDOUT $FE,$14
TECLA="@"
PAUSE 10
else
lcdout dec TECLA
LCDOUT $FE,$14
TECLA="@"
PAUSE 10
endif
ENDIF
LCDOUT $FE,$10
GOTO inicio

teclado:  'buscar en el teclado para ver la tecla presionada
HIGH columna1
IF fila1=1 THEN TECLA=1
PAUSE 10
IF fila2=1 THEN TECLA=4
PAUSE 20
IF fila3=1 THEN TECLA=7
PAUSE 20
IF fila4=1 THEN TECLA="*"
PAUSE 20
LOW columna1                  

HIGH columna2
IF fila1=1 THEN TECLA=2
PAUSE 20
IF fila2=1 THEN TECLA=5
PAUSE 20
IF fila3=1 THEN TECLA=8
PAUSE 20
IF fila4=1 THEN TECLA=0
LOW columna2
PAUSE 20

HIGH columna3
IF fila1=1 THEN TECLA=3
PAUSE 20
IF fila2=1 THEN TECLA=6
PAUSE 20
IF fila3=1 THEN TECLA=9
PAUSE 20
IF fila4=1 THEN TECLA="#"
LOW columna3
pause 10

IF TECLA<>"@" THEN
RETURN
ELSE
GOTO TECLADO
ENDIF
end

kano2468 dijo:
buenas noches....

cuando los coloco me da error en el compilación... yo utilizo microcode, picbasicpro...
si los activo en el programador igualmente necesito usar esas palabras de configuración?

ok esta bien..

en la simulación funciona espero que cuando lo monte funcione...

una consulta y vuelve me a disculpar por tanta molestia....
en esta parte donde recibo los datos de cada sensor por ejemplo este:
SensorNT1:
LOW PORTD.0
SerOut TX,T9600,["X",I,13,10]
PAUSE 100
SerIn RX,T9600,["si"],SENSORT1
IF SENSORT1 > 40 THEN
SerOut TXPIN,T9600,["M"]
else
SerOut TXPIN,T9600,["N"]
IF SENSORT1 = 0 THEN
SerOut TXPIN,T9600,["O"]
PAUSE 100
ENDIF
HIGH PORTD.0
RETURN

como puedo hacer esta selccion? o para que me envie el carácter que es? por que si SENSORT1es > a 40 ok mandara M la pc, Fino..
si SENSORT1 es < a 40 mandara N OK fino, pero si SENSORT1 es = 0 me manda N Y O juntos.. intente con select case y no pude, o no supe. y aun no lo logro.. me podrias sugerir algo? por favor...

gracias y saludos..

Saludos amigo kano2468 tu problema cuando SENSORT1=0 te envia N Y O juntos es porque segun tu codigo tienes que cuanod sensor1 es menor que 40 te envia n y cuando sensor1=0 te envia O, entonces se te cumplen las dos condiciones al mismo tiempo es decir 0 es menor que 40 y sensor1 < 40. Entonces trata de hacer lo siguiente: para la parte de sensor1 < 40 colocale otra condicion es decir: if SENSORT1 < 40 and SENSORT1 > 0 then.... me entiendes lo que te quiero decir?
Bueno intenta hacerlo y comenta a ver en que te podemos ayudar, saludos!!!

kano2468 · Jun 10, 2013

xmagdielx dijo:
Saludos compañeros!, primero quiero agradecer a todos los que aportaron conocimientos que me han ayudado grandemente. Bueno les comento que estoy haciendo una especie de calculadora con teclado y mostrarlo en LCD pero solo las operaciones básicas (suma,resta,multiplicación y division), basándome en el ejemplo del amigo mecatrodatos. Mi problema surge cuando quiero decirle al pic que ya ingrese un numero y que me pida el otro numero ( o los otros) para realizar la operación, me explico?, es decir, ingreso por ejemplo el 6, y que el pic lo reconozca como un primer digito, luego que ingrese por ejemplo el 5, y al presionar la tecla de (sumar) me muestre en el lcd el numero (5+6=11).

aqui tengo el codigo pero por los momentos solo puedo leer la tecla del teclado

Código:

Define LCD_DREG PORTD Define LCD_DBIT 4 Define LCD_RSREG PORTD Define LCD_RSBIT 2 Define LCD_EREG PORTD Define LCD_EBIT 3 TRISA=%00000000 TRISB=%00001111 'declaracion de filas y columnas fila1 VAR portB.0 fila2 VAR portB.1 fila3 VAR portB.2 fila4 VAR portB.3 columna1 VAR portB.4 columna2 VAR portB.5 columna3 VAR portB.6 tecla VAR BYTE PAUSE 500 TECLA="@" LCDOUT $FE, 1 LCDOUT $FE,$0F lcdout $fe,"Introduzca numero" inicio: GOSUB teclado if tecla<>"@" then if tecla="*" or tecla ="#" then LCDOUT TECLA LCDOUT $FE,$14 TECLA="@" PAUSE 10 else lcdout dec TECLA LCDOUT $FE,$14 TECLA="@" PAUSE 10 endif ENDIF LCDOUT $FE,$10 GOTO inicio teclado: 'buscar en el teclado para ver la tecla presionada HIGH columna1 IF fila1=1 THEN TECLA=1 PAUSE 10 IF fila2=1 THEN TECLA=4 PAUSE 20 IF fila3=1 THEN TECLA=7 PAUSE 20 IF fila4=1 THEN TECLA="*" PAUSE 20 LOW columna1 HIGH columna2 IF fila1=1 THEN TECLA=2 PAUSE 20 IF fila2=1 THEN TECLA=5 PAUSE 20 IF fila3=1 THEN TECLA=8 PAUSE 20 IF fila4=1 THEN TECLA=0 LOW columna2 PAUSE 20 HIGH columna3 IF fila1=1 THEN TECLA=3 PAUSE 20 IF fila2=1 THEN TECLA=6 PAUSE 20 IF fila3=1 THEN TECLA=9 PAUSE 20 IF fila4=1 THEN TECLA="#" LOW columna3 pause 10 IF TECLA<>"@" THEN RETURN ELSE GOTO TECLADO ENDIF end

Saludos amigo kano2468 tu problema cuando SENSORT1=0 te envia N Y O juntos es porque segun tu codigo tienes que cuanod sensor1 es menor que 40 te envia n y cuando sensor1=0 te envia O, entonces se te cumplen las dos condiciones al mismo tiempo es decir 0 es menor que 40 y sensor1 < 40. Entonces trata de hacer lo siguiente: para la parte de sensor1 < 40 colocale otra condicion es decir: if SENSORT1 < 40 and SENSORT1 > 0 then.... me entiendes lo que te quiero decir?
Bueno intenta hacerlo y comenta a ver en que te podemos ayudar, saludos!!!

Muchas gracias amigo... gracias por tu respuesta. intentare eso y comento.. asi como tu también agradezco por que he recibido gran ayuda para realizar mi proyecto, en especial al sr. Dar@bytes que me ha ayudado bastante y el cual he molestado mucho.

puedo consultarte algo? con respecto a visual basic y el pic???
si puedes ayudarme te lo agradecería..
estoy tratando de enviar a visual basic desde el pic el nivel exacto de cada tanque y que se vea en una progressbar, pero como tengo pocos conocimiento de visual basic, del pic a visual basic solo envio caracteres como "A" "B" "M" y en visual basic según lo que reciba hago algo como por ejemplo:

Código:

Private Sub MSComm1_OnComm()
A = MSComm1.Input 'el dato que ingresa guardarlo en variable A
If A = "M" Then
Text1.Text = " TANQUE 100% LLENO "
ProgressBar1.Value = 100
End If

y asi envio desde el pic:

Código:

Sensor_4:
   Low PORTD.7  'esto es un led, solo para verificar funcionamiento 
   SerOut TX,T9600,["X",h,13,10] 'envía a pic2 conectado con sensores, solicitando info de s4
   Pause 100
   SerIn RX,T9600,["sh"],SENSOR4 'recibe info de s4
   if SENSOR4 > 30 then               'según como sea el valor decide:
   SerOut TXPIN,T9600,["J"]             'ENVIA DATOS POR TXpin A LA PC, A VISUAL BASIC
   else
   SerOut TXPIN,T9600,["K"]
   endif
   if sensor4 = 0 then
   SerOut TXPIN,T9600,["L"]
   endif 
   Pause 1000
   High PORTD.7
   Return

asi lo hago con cada sensor de flujo y nivel, pero como te dije quisiera recibir el valor exacto y mostrarlo en la progressbar de cada tanque. como podría hacer eso?? en realida también quería hacerlo con los sensores de flujo, enviar el valor exacto, y en visual basic decidir que hacer... pero no supe.. soy un novato. te adjunto el programa en visual basic.

gracias.. y un saludo..

kano2468 · Jun 12, 2013

Buenas noches amigos.. informo que ya tengo mi proyecto casi culminado...
lo importante es que ya tengo lo que parecía mas difícil que era la comunicación pic a pic por rf, y pic a pc por rs232. esta ultima la logre con 2 resistencias una de 22k y otra de 1k. y colocando la velocidad dato invertido: N9600 en vez de dato verdadero: T9600, ya que no se esta utilizando el max232 y los datos no pasaran por el inversor que tiene integrado...

en el proyecto aun tengo fallas con el sensor de nivel, estoy utilizanzo el sensor ultrasonico hc-sr04.. el cual pruebo por separado del proyecto y me funciona bien.. pero dentro del proyecto no funciona.. me manda puro 0,

la distancia de los cables influye??? son como 2 o 3 metros el mas largo

estos son los códigos que utilizo en el proyecto:

este es una parte del pic 1 cuando solicita al pic 2 información sobre el nivel en el tanque1

Código:

SensorNT1:
   LOW PORTD.0   'esto es solo son led para identificar el funcionamiento
   LOW PORTD.1
   SerOut TX,T9600,["X",9,13,10]   'envía a pic2 comando solicitando info de sensor tanque1
   PAUSE 500
   SerIn RX,T9600,5000,SensorNT1,["stuno"],SENSORt1       'recibe informacion
   SerOut TXPIN,T9600,[#SENSORT1]       'envía a visual basic, solo para verificar el valor
   PAUSE 2000
   if sensort1 > 81 then SerOut TXPIN,T9600,["M"]    'según sea el valor decide '(vacio)
   IF SENSORT1 < 80 AND SENSORT1 > 61 THEN SerOut TXPIN,T9600,["N"]   '25% lleno
   IF SENSORT1 < 60 AND SENSORT1 > 41 THEN SerOut TXPIN,T9600,["O"]    '50% lleno
   IF SENSORT1 < 40 AND SENSORT1 > 21 THEN SerOut TXPIN,T9600,["P"]    '75 % lleno
   IF SENSORT1 < 20 THEN SerOut TXPIN,T9600,["Q"]               '100% lleno
   PAUSE 3000 
   HIGH PORTD.0     'led solo para verfificar funcionamiento
   HIGH PORTD.1
   RETURN

parte del pic 2 donde recibe solicitud de información del sensor del tanque1

Código:

RecibeRF:  '''''del pic 1
   HIGH PORTD.7
   SERIN RX,T9600,60000,SENSAR,["X"],B0 ' recibe y decide, en este caso seria 9, SENSORNT1
   if B0 = 1 THEN CALL purga1
   IF B0 = 2 THEN CALL purga2
   IF B0 = 3 THEN CALL purga3
   IF B0 = 4 THEN CALL purga4
   IF B0 = 5 THEN CALL SENSORUNO
   IF B0 = 6 THEN CALL SENSORDOS
   IF B0 = 7 THEN CALL SENSORTRES
   IF B0 = 8 THEN CALL SENSORCUATRO
   IF B0 = 9 THEN CALL SENSORNT1
   if B0 = 11 THEN CALL SENSORNT2
   IF B0 = 12 THEN CALL SENSORNT3
   LOW PORTD.7
   RETURN


                                 ''''PRUEBO asi:
SENSORNT1:                'SENSOR TANQUE 1,
   pause 40
   DISPAROT1 = 0          'Inicializa el valor de DISPARO
   PulsOut DISPAROT1,10    'Manda un pùlso de disparo para empezar a medir
   GoSub LEER_ECOST1       'Llamada a funcion para leer el ancho del eco recibido
   RETURN 
   LEER_ECOST1:
   select case SENSORT1
   case 1
   goto LEER_ECOST1
   case 0
   pulsin sensort1,1,NIVELT1
   NIVELST1 = NIVELT1/58
   PAUSE 1000
   SEROUT TX,T9600,["stuno",NIVELST1,13,10]
   END SELECT
   return

                               '''y asi: y no funciona tampoco.. manda 0... 0 0 0
SENSORNT2:                'SENSOR TANQUE 2
   high disparot2
   pauseus 10
   low disparot2
   pulsin sensort2,1,NIVELT2
   NIVELST2 = NIVELT2/58
   PAUSE 1000
   SEROUT TX,T9600,["stdos",NIVELST2,13,10]
   RETURN

Aquí el código donde pruebo el sensor independientemente y funciona bien... no entiendo por que no funciona en el proyecto.

Código:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 03/06/2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
INCLUDE "modedefs.bas"
DEFINE OSC 4
TRISA = %000010
TRISB = %00000110 ' Configuración el Puerto A
TRISD = %00000000
ADCON1 = 6
CMCON = 7
DISPARO VAR PORTA.0
SENSOR VAR PORTA.1
ALARMA  VAR PORTD.0 
CONTADOR VAR WORD
DISTANCIA VAR WORD 
ALARMA = 0

INICIO:
if portb.0 = 1 then call sensornt1
goto inicio
end

sensornt1:
pause 40
disparo = 0          'Inicializa el valor de DISPARO
PulsOut DISPARO,10    'Manda un pùlso de disparo para empezar a medir
GoSub LEER_ECO       'Llamada a funcion para leer el ancho del eco recibido
GoTo INICIO 
LEER_ECO:
select case sensor
case 1
goto LEER_ECO
case 0
pulsin SENSOR,1,DISTANCIA
DISTANCIA = DISTANCIA/58
PAUSE 1000
SEROUT PORTC.6,T9600,[#DISTANCIA]
IF  DISTANCIA < 22 AND DISTANCIA > 10 THEN ALARMA = 0
IF  DISTANCIA < 9 AND DISTANCIA > 1 THEN ALARMA = 1
END select
RETURN

END

adjunto proyecto completo y si alguien me puede ayudar en esta parte se lo agradecería.. es solo los sensores de nivel que me falta para completar el proyecto..

saludos a todos. espero su ayuda amigoos se los agradezco.

digito · Jun 13, 2013

Hola como te va, veo que preguntas sobre la distancia de los cable por la comunicaciòn Uart,

ese problema se puebe soluzionar utilizando simple I.C. como MAX 485, MAX 487 etc.

Encontraras en los Datasheet como utilizarlo sea en TX como en RX.

Espero que te haya dado indicaciones utiles.

* Por el lado de la programaciòn de los PIC no te puedo ayudar tanto (utilizo Mikrobasic Pro)*

Muchos Saludos

Alcocer Garcia Felix Davi · Jun 21, 2013

Hola a todos los participantes de este interesante tema tengo el pic16f628a quiero hacer una ruleta de leds tengo el codigo y el circuito adjuntado. El problema es que a pesar de colocar cmcon=7 para utilizar los puertosa como digitales solo me funcionan hasta el led a3. El problema solo es el puertoa el puertob funciona normal. gracias

D@rkbytes · Jun 21, 2013

Alcocer Garcia Felix Davi dijo:
El problema es que a pesar de colocar cmcon=7 para utilizar los puertosa como digitales solo me funcionan hasta el led a3. El problema solo es el puertoa el puertob funciona normal. gracias

Busca la tabla 3-2 en la hoja de datos y lee las características del pin RA4, ahí encontrarás la respuesta.

Palabra clave: OD

Saludos.

olimatari · Jun 25, 2013

buen dia, disculpe, la falla que tengo es que cuando inserto en el programa
@ device xt_osc ; oscilador externo XT
define osc 4
...
me aparece error, al parecer el error son esas dos lineas, ya que cuando borro los espacios entre ellos, despues de @ borro el espacio y tambien despues de device, el error ya no vuelve aparecer, estaria bien ponerlo en esta forma..

@devicext_osc ; oscilador externo XT
define osc 4

asi no me arroja errores.

kano2468 · Jun 25, 2013

buenas tardes..
aun tengo problemas con los sensores hc-sr04 los tengo conectado al puerto A del pic16f877a, funcionan bien cuando conecto 1 por uno, MUY bien, pero los conecto todos al pic al mismo tiempo y no funcionan, no me me da la lectura.
el trigger de cada uno esta en el porta0, porta1, porta2, respectivamente, y los echo en porta3, porta4, y porta5, respectivamente. los intercambio y nada.. postivio y negativo desde la misma fuente del pic..
que podrá ser.. si alguien tiene una idea se lo agradecería/... por favor ayúdenme..
aquí el código de configuración:

Código:

@ Device PIC16F877A 
@ Device HS_OSC, WDT_OFF, PWRT_ON
INCLUDE "modedefs.bas" 'LIBRERIA PARA COMUNICACION SERIAL
DEFINE OSC 20          'OSCILADOR 20 MHZ
TRISA = %111000   ' Configuración el Puerto A
TRISB = %11111111 ' Configuración el Puerto B
TRISD = %00000000 ' Configuración el Puerto D
TRISC = %10111000 ' Configuración el Puerto C
ADCON1 = 6        'DESAHLILITA CONVERTIDOR A/D
CMCON = 7         'DESAHILITA COMPARADORES ANALOGICOS
TX VAR PORTC.6    ' PUERTO TX
RX VAR PORTC.7    ' PUERTO RX
B0  VAR BYTE         'DECLARACION DE VARIABLES
SENSOR1 VAR BYTE     '  '' 
SENSOR2 VAR BYTE     '  ''
SENSOR3 VAR BYTE     '  ''
SENSOR4 VAR BYTE     '  ''
FRECUENCIA1 VAR BYTE '  ''
FRECUENCIA2 VAR BYTE '  ''
FRECUENCIA3 VAR BYTE '  ''
FRECUENCIA4 VAR BYTE '  ''
NIVELT1 VAR word     '  ''
NIVELT2 VAR word     '  ''
NIVELT3 VAR word     '  ''
DISPAROT1 VAR PORTA.0  'PUERTO DE DISPARO SENSOR TANQUE 1
DISPAROT2 VAR PORTA.1  'PUERTO DE DISPARO SENSOR TANQUE 2
DISPAROT3 VAR PORTA.2  'PUERTO DE DISPARO SENSOR TANQUE 3
SENSORT1 VAR PORTA.3 'PUERTO DE ENTRADA SEÑAL SENSOR TANQUE 1
SENSORT2 VAR PORTA.4 'PUERTO DE ENTRADA SEÑAL SENSOR TANQUE 2
SENSORT3 VAR PORTA.5 'PUERTO DE ENTRADA SEÑAL SENSOR TANQUE 3
PORTA = %000000   ' Inicializa el puerto "A".
PORTD = %00000000 ' Inicializa el puerto "D".
PORTB = %00000000 ' Inicializa el puerto "B".
PORTC = %00000000 ' Inicializa el puerto "C".

kano2468 dijo:

Buenas noches amigos.. informo que ya tengo mi proyecto casi culminado...
lo importante es que ya tengo lo que parecía mas difícil que era la comunicación pic a pic por rf, y pic a pc por rs232. esta ultima la logre con 2 resistencias una de 22k y otra de 1k. y colocando la velocidad dato invertido: N9600 en vez de dato verdadero: T9600, ya que no se esta utilizando el max232 y los datos no pasaran por el inversor que tiene integrado...

en el proyecto aun tengo fallas con el sensor de nivel, estoy utilizanzo el sensor ultrasonico hc-sr04.. el cual pruebo por separado del proyecto y me funciona bien.. pero dentro del proyecto no funciona.. me manda puro 0,

la distancia de los cables influye??? son como 2 o 3 metros el mas largo

estos son los códigos que utilizo en el proyecto:

este es una parte del pic 1 cuando solicita al pic 2 información sobre el nivel en el tanque1

Código:

SensorNT1:
   LOW PORTD.0   'esto es solo son led para identificar el funcionamiento
   LOW PORTD.1
   SerOut TX,T9600,["X",9,13,10]   'envía a pic2 comando solicitando info de sensor tanque1
   PAUSE 500
   SerIn RX,T9600,5000,SensorNT1,["stuno"],SENSORt1       'recibe informacion
   SerOut TXPIN,T9600,[#SENSORT1]       'envía a visual basic, solo para verificar el valor
   PAUSE 2000
   if sensort1 > 81 then SerOut TXPIN,T9600,["M"]    'según sea el valor decide '(vacio)
   IF SENSORT1 < 80 AND SENSORT1 > 61 THEN SerOut TXPIN,T9600,["N"]   '25% lleno
   IF SENSORT1 < 60 AND SENSORT1 > 41 THEN SerOut TXPIN,T9600,["O"]    '50% lleno
   IF SENSORT1 < 40 AND SENSORT1 > 21 THEN SerOut TXPIN,T9600,["P"]    '75 % lleno
   IF SENSORT1 < 20 THEN SerOut TXPIN,T9600,["Q"]               '100% lleno
   PAUSE 3000 
   HIGH PORTD.0     'led solo para verfificar funcionamiento
   HIGH PORTD.1
   RETURN

parte del pic 2 donde recibe solicitud de información del sensor del tanque1

Código:

RecibeRF:  '''''del pic 1
   HIGH PORTD.7
   SERIN RX,T9600,60000,SENSAR,["X"],B0 ' recibe y decide, en este caso seria 9, SENSORNT1
   if B0 = 1 THEN CALL purga1
   IF B0 = 2 THEN CALL purga2
   IF B0 = 3 THEN CALL purga3
   IF B0 = 4 THEN CALL purga4
   IF B0 = 5 THEN CALL SENSORUNO
   IF B0 = 6 THEN CALL SENSORDOS
   IF B0 = 7 THEN CALL SENSORTRES
   IF B0 = 8 THEN CALL SENSORCUATRO
   IF B0 = 9 THEN CALL SENSORNT1
   if B0 = 11 THEN CALL SENSORNT2
   IF B0 = 12 THEN CALL SENSORNT3
   LOW PORTD.7
   RETURN


                                 ''''PRUEBO asi:
SENSORNT1:                'SENSOR TANQUE 1,
   pause 40
   DISPAROT1 = 0          'Inicializa el valor de DISPARO
   PulsOut DISPAROT1,10    'Manda un pùlso de disparo para empezar a medir
   GoSub LEER_ECOST1       'Llamada a funcion para leer el ancho del eco recibido
   RETURN 
   LEER_ECOST1:
   select case SENSORT1
   case 1
   goto LEER_ECOST1
   case 0
   pulsin sensort1,1,NIVELT1
   NIVELST1 = NIVELT1/58
   PAUSE 1000
   SEROUT TX,T9600,["stuno",NIVELST1,13,10]
   END SELECT
   return

                               '''y asi: y no funciona tampoco.. manda 0... 0 0 0
SENSORNT2:                'SENSOR TANQUE 2
   high disparot2
   pauseus 10
   low disparot2
   pulsin sensort2,1,NIVELT2
   NIVELST2 = NIVELT2/58
   PAUSE 1000
   SEROUT TX,T9600,["stdos",NIVELST2,13,10]
   RETURN

Aquí el código donde pruebo el sensor independientemente y funciona bien... no entiendo por que no funciona en el proyecto.

Código:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 03/06/2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
INCLUDE "modedefs.bas"
DEFINE OSC 4
TRISA = %000010
TRISB = %00000110 ' Configuración el Puerto A
TRISD = %00000000
ADCON1 = 6
CMCON = 7
DISPARO VAR PORTA.0
SENSOR VAR PORTA.1
ALARMA  VAR PORTD.0 
CONTADOR VAR WORD
DISTANCIA VAR WORD 
ALARMA = 0

INICIO:
if portb.0 = 1 then call sensornt1
goto inicio
end

sensornt1:
pause 40
disparo = 0          'Inicializa el valor de DISPARO
PulsOut DISPARO,10    'Manda un pùlso de disparo para empezar a medir
GoSub LEER_ECO       'Llamada a funcion para leer el ancho del eco recibido
GoTo INICIO 
LEER_ECO:
select case sensor
case 1
goto LEER_ECO
case 0
pulsin SENSOR,1,DISTANCIA
DISTANCIA = DISTANCIA/58
PAUSE 1000
SEROUT PORTC.6,T9600,[#DISTANCIA]
IF  DISTANCIA < 22 AND DISTANCIA > 10 THEN ALARMA = 0
IF  DISTANCIA < 9 AND DISTANCIA > 1 THEN ALARMA = 1
END select
RETURN

END

adjunto proyecto completo y si alguien me puede ayudar en esta parte se lo agradecería.. es solo los sensores de nivel que me falta para completar el proyecto..

saludos a todos. espero su ayuda amigoos se los agradezco.

D@rkbytes · Jun 26, 2013

kano2468 dijo:
buenas tardes..
aun tengo problemas con los sensores hc-sr04 los tengo conectado al puerto A del pic16f877a, funcionan bien cuando conecto 1 por uno, MUY bien, pero los conecto todos al pic al mismo tiempo y no funcionan, no me me da la lectura.
el trigger de cada uno esta en el porta0, porta1, porta2, respectivamente, y los echo en porta3, porta4, y porta5, respectivamente. los intercambio y nada.. positivo y negativo desde la misma fuente del pic..
que podrá ser.. si alguien tiene una idea se lo agradecería/... por favor ayúdenme.

Saludos kano2468

Es algo complicado seguir el código de tu proyecto por los parámetros de SerIn.
Lo que te recomiendo es que lo hagas por pasos hasta ver en que parte del programa deja de funcionar.
Cuando agregas el uso de SerIn dentro de subrutinas, tienes que esperar a que se reciba algo.
Solamente hasta que se reciba algo, el programa continúa con la siguiente instrucción.
Ya que la instrucción SerIn detiene el programa dentro de un bucle definido por la etiqueta de retorno.
En algunas partes si tomas control pero en otras no, y puede ser que el programa quede en un bucle.

Mencionas que colocas los sensores uno por uno, pero que al colocar todos deja de funcionar.
Repite el proceso, pero fijándote que cada subrutina cumpla con las condiciones para retornar.

Suerte.

kano2468 · Jun 26, 2013

D@rkbytes dijo:
Saludos kano2468

Es algo complicado seguir el código de tu proyecto por los parámetros de SerIn.
Lo que te recomiendo es que lo hagas por pasos hasta ver en que parte del programa deja de funcionar.
Cuando agregas el uso de SerIn dentro de subrutinas, tienes que esperar a que se reciba algo.
Solamente hasta que se reciba algo, el programa continúa con la siguiente instrucción.
Ya que la instrucción SerIn detiene el programa dentro de un bucle definido por la etiqueta de retorno.
En algunas partes si tomas control pero en otras no, y puede ser que el programa quede en un bucle.

Mencionas que colocas los sensores uno por uno, pero que al colocar todos deja de funcionar.
Repite el proceso, pero fijándote que cada subrutina cumpla con las condiciones para retornar.

Suerte.

saludos D@rkbytes gracias por tu respuesta.
no amigo ninguno de los dos pic se quedan en un bucle ya que puedo observar el funcionamiento tanto de los pic (por los leds) como el de las antenas cuando envían y reciben (igual por los leds tx y rx), el problema es cuando conecto 2 o los 3 echo de cada sensor en cada uno de sus puertos (ra3, ra4,ra5) la medida o lectura que me arroja es 0, en todas (los triggers están conectados en ra0, ra1, ra2). si conecto un solo echo de un solo sensor en su puerto, si me da la medida exacta, o aproximada. osea funciona bien.

mi pregunta es si tendre configurados bien el puerto A como entradas/salidas digitales??
es decir con esta configuración funciona bien:

Código:

ADCON1 = 6        'DESAHLILITA CONVERTIDOR A/D
CMCON = 7         'DESAHILITA COMPARADORES ANALOGICOS

he conseguido por internet varias formas de como desactivarlos pero en realidad no se cual es la forma verdadera o si todas funcionan.
una es con este:

Código:

ADCON1 = 7

otra con esta configuración:

Código:

To make portA as normal port, you must declare
CMCON = 7 to shut off the comparators and
ADCON0.0 = 0 to shut off the A/D converter 1
ADCON1.PCFG0 = 0
ADCON1.PCFG1 = 1
ADCON1.PCFG2 = 1
ADCON1.PCFG3 = 0
to shut off the A/D converter 2

cual de estas sera?
con esto deshabilito también los de puertoE?
será que cambio de puerto (dejo los triggers en portA y pongo los echos en portB?)
o tendre que cambiar todo?

gracias por tu ayuda.

D@rkbytes · Jun 26, 2013

kano2468 dijo:
cual de estas sera?
con esto deshabilito también los de puertoE?
será que cambio de puerto (dejo los triggers en portA y pongo los echos en portB?)
o tendre que cambiar todo?

ADCON1 = 6 y ADCON1 = 7, es exactamente lo mismo, mira este post sobre la hoja de datos.
Has lo que te mencioné, ve agregando sensor por sensor hasta que veas cuando dejan de funcionar.
También puedes tener caídas de tensión, ruidos etc.

El problema de no poder ayudarte bien, es que no todos tenemos los sensores.

Saludos.

D@rkbytes · Jun 26, 2013

olimatari dijo:
buen dia, disculpe, la falla que tengo es que cuando inserto en el programa
@ device xt_osc ; oscilador externo XT
define osc 4
...
me aparece error, al parecer el error son esas dos lineas, ya que cuando borro los espacios entre ellos, después de @ borro el espacio y también después de device, el error ya no vuelve aparecer, estaría bien ponerlo en esta forma..

@devicext_osc ; oscilador externo XT
define osc 4

así no me arroja errores.

@devicext_osc ; oscilador externo XT
define osc 4
No te da error porque el compilador lo toma como una etiqueta.
Lo correcto es...
@ Device XT_OSC
El @ "ASM" sirve para decirle al compilador que se escribirá en ensamblador,
y debe ir sin espacios a la izquierda, lo que sigue a continuación de Device, son los Fuses.

Cuando PBP genera errores al escribir la palabra de configuración, es por usar MPASMWIN,
o porque estás usando una versión de PBP anterior a la 2.60, en ese caso actualízalo.

everardors · Jul 1, 2013

buenas, se que van muy avanzados en esto, pero queria pedirles si pueden porner una referencia de como hacer un menu como el que aparece en este video , gracias

ferdy575 · Jul 5, 2013

Alcocer Garcia Felix Davi dijo:
Hola a todos los participantes de este interesante tema tengo el pic16f628a quiero hacer una ruleta de leds tengo el codigo y el circuito adjuntado. El problema es que a pesar de colocar cmcon=7 para utilizar los puertosa como digitales solo me funcionan hasta el led a3. El problema solo es el puertoa el puertob funciona normal. gracias

hola vi tu proyecto y le hice algunas reformas aqui te pongo los archivos para que los veas a ver si te sirve

Alcocer Garcia Felix Davi · Jul 5, 2013

hola a todos los amigos del foro tengo el siguiente esquema en proteus y el siguiente programa pbp creo que el programa es correcto pero solo visualizo 8888 no se por que no conmutan los transistores gracias. Simplemente debo visualizar la palabra "hola".

D@rkbytes · Jul 5, 2013

Alcocer Garcia Felix Davi dijo:
hola a todos los amigos del foro tengo el siguiente esquema en proteus y el siguiente programa pbp creo que el programa es correcto pero solo visualizo 8888 no se por que no conmutan los transistores gracias. Simplemente debo visualizar la palabra "hola".

Para simular tu programa en proteus, sustituye los transistores por inversores, escribe "inverter" en la ventana de selección de componentes, y para crear el PCB usa el esquema con transistores.

También deberías agregar la palabra de configuración a tu programa, y la frecuencia de trabajo.

Saludos.

Alcocer Garcia Felix Davi · Jul 6, 2013

ferdy575 dijo:
hola vi tu proyecto y le hice algunas reformas aqui te pongo los archivos para que los veas a ver si te sirve

Me parecen excelentes tus cambios pero yo quería usar todo el puerto A como salida digital y eso
hasta ahora no lo puedo lograr igual tu aporte estuvo genial.

Curso de programación de PIC en PICBasic Pro

kano2468

Adjuntos

D@rkbytes

Moderador general

Adjuntos

kano2468

xmagdielx

kano2468

Adjuntos

kano2468

Adjuntos

digito

Alcocer Garcia Felix Davi

Adjuntos

D@rkbytes

Moderador general

olimatari

kano2468

D@rkbytes

Moderador general

kano2468

D@rkbytes

Moderador general

D@rkbytes

Moderador general

everardors

ferdy575

Adjuntos

Alcocer Garcia Felix Davi

Adjuntos

D@rkbytes

Moderador general

Alcocer Garcia Felix Davi

Temas similares