Publicado por: badtzdizzy en 12 de Mayo de 2004, 12:54:00
Quisiera saber como le puedo hacer para que cuando despliegue mis datos en el listbox, sean de uno en uno y no todos los que se almacenen en el buffer, el codigo que utilizo para el pic es el siguiente:
Codigo:
#include <16f874A.h>
#fuses HS,NOWDT,NOPROTECT,NOPUT,NOBROWNOUT,NOLVP,NOCPD,WRT
#use delay(clock=20000000)
#use rs232(baud=9600, xmit=PIN_C6, rcv=PIN_C7)
main()
{
float value;
float const resoluc = 5.0/256.0;
set_tris_b(0x00);
setup_adc_ports(ALL_ANALOG);
setup_adc(ADC_CLOCK_INTERNAL);
set_adc_channel(0);
while (TRUE)
{
delay_ms(500);
value=read_adc();
value=value*resoluc;
printf (" %1.2f", value);
output_high(PIN_B7);
}
}
y para visual utilizo lo siguiente:
Codigo:
Private Sub cmdRecibir_Click()
Dim buferentrada As String
buferentrada = MSComm1.Input "En esta variable se almacena lo que entra por el puerto serie
List1.AddItem buferentrada
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 "puerto com1
MSComm1.PortOpen = True "se abre el puerto para que funcione
buferentrada = MSComm1.Input "En esta variable se almacena lo que entra por el puerto serie
End Sub
Private Sub MSComm1_OnComm()
MSComm1.Settings = "9600,n,8,1" "configuracion del puerto serie
End Sub
Si me pueden echar la mano se los agradecería bastante
Publicado por: Colores en 14 de Mayo de 2004, 11:08:00
Vos decís que necesitás ver los datos de a uno, bien, que estás viendo con ése código ahora? Te tira cadenas de caracteres y querés ver de a un caracter?
Si fuera así tendrías que darle un valor de 1 a la propiedad InputLen del control MsComm. InputLen define la cantidad de datos que se almacenan en el buffer (esta propiedad es útil para leer datos de máquinas cuyo resultado tiene un formato de bloques de datos de longitud fija). Esta propiedad por default (si no se especifica) está seteada en 0, esto quiere decir que cuando vos leés con Input te va a devolver todos los datos que entraron. Entonces tenés que probar poniendo MSComm1.InputLen = 1 en el Form_Load.
El problema es que me parece que se pueden perder datos... cuándo establecés InputLen = 1 creo que el buffer sólo guarda un caracter. Cuándo entran varios sólo guarda el último. Si esto sucediera podrías hacer 2 cosas: (continúa...)
Publicado por: Colores en 14 de Mayo de 2004, 11:15:00
Podés generar un evento cada vez que entra un dato. O sea que VB llame a una rutina cada vez que se acceda al puerto. Esto se hace con el evento MsComm1.OnComm y ahí podés leer el buffer dentro de esa subrutina. Si InputLen = 1 debería devolverte de a 1 caracter.
2) Podés dejar todo como está y "desarmar" caracter por caracter lo que guardas en la variable del buffer. Por ejemplo: si guardó "encendido" tendrías que descomponer esto en e-n-c-e-n-d-i-d-o y agregar de a uno los caracteres en la lista.
La primera opción quizás esté mejor porque no depende de que el usuario haga click en un boton sinó que se actualiza automáticamente.
Publicado por: Colores en 14 de Mayo de 2004, 11:20:00
En la opción 1) tenés que setear la propiedad RThreshold en 1, para que el control MSComm genere el evento OnComm cada vez que entra 1 carácter en el búfer de recepción.
Publicado por: badtzdizzy en 17 de Mayo de 2004, 11:14:00
Publicado por: Colores en 17 de Mayo de 2004, 18:27:00
Ahora me doy cuenta que quizás no funcionó como yo esperaba porque desde el Pic yo enviaba caracteres ASCII y el control MsComm interpreta valores ANSI (que no son iguales).
Para comprobar si la comunicación funciona podrías probar de enviar un número y que el Pic lo multiplique por 2 y te lo devuelva (esto para probar si la comunicación es exitosa).
Publicado por: Abago en 17 de Mayo de 2004, 23:36:00
Una vez que tengas esto preparado, solo tendrás que leer del buffer del pic, hasta encontrar el caracter de break
me explico...
el buffer que tienes en el pic, por ejemplo tiene almacenada una frase separada por comas, y lo que quieres es que te aparezcan las palabras en el listbox...
Bueno, pues lees caracteres hasta encontrar la coma. En ese momento, poner un listbox.addittem y a ese nuevo ittem, le añades la palabra leida del pic...
y así hasta que termines con el buffer del pic...
Te doy una explicación teorica, porque hace casi un año que no toco el vb, y ya se me olvidan algunas cosillas...
de todos modos, te recomiendo que te pases por la pagina de guille vb... Puedes aprender mucho...
Publicado por: Abago en 17 de Mayo de 2004, 23:41:00
por ejemplo, si pulsas un intro, al pic, le llega el codigo 13
asi, que a bajarte una lista de todos los codigos ascii..
Publicado por: Colores en 18 de Mayo de 2004, 11:12:00
Ahora bien, si esto se puede hacer debería haber una forma de "pedirle" datos al Pic para que este los envíe y ir verificando que no se produzcan errores. Esto se debe hacer con las líneas del RS232 que están aparte de Tx y Rx... Yo en mi caso no uso esas líneas, sólo uso Rx y Tx y la USART hardware del Pic (16F873). En este caso no sé como almacenar en un buffer... solo pretendo enviar un byte cada tanto. Se supone que tengo que hacer un protocolo tipo handshaking entre la Pc y el Pic para verificar que no se pierdan datos? Como uso el buffer en el Pic? Uso una variable como arreglo en un buffer circular por soft?
Publicado por: Abago en 18 de Mayo de 2004, 13:05:00
inicio:
serout2 porta.2,188,["hola",10,13]
pause 2000
goto inicio
con esto estará mandando la cadena hola, un salto de linea, y un retorno de carro cada 2000ms
conectar el circuito al hiperterminal... Y vereis que no hay error...
Los datos siempre llegan
La usart del puerto serie del pc, tiene un buffer bastante bien gestionado.
para gestionar el error de datos, tendríamos que crear un CRC, y si este CRC, no es válido, mandarle al pic, un comando para que reenvie.... poco mas.
Sobre el tema de pedirle los datos al pic, sería haciendo un control de flujo por hardware, usando las lineas DTS/RTS... Pero ya complicais la cosa...
Yo tampoco uso el control de flujo, y todo funciona a las mil maravillas....
para el anterior ejemplo, usando la usart, usaríamos el hserout
Yo para el envio de datos, no uso el buffer, dado que el hserout, gestiona todo....
Para la recepción, cree un buffer fifo de 30 bytes, porque si el pc manda mas datos de los devidos, sin control de flujo, el buffer interno de la usart del pic que tiene 2 bytes, se satura....
Publicado por: badtzdizzy en 21 de Mayo de 2004, 11:43:00
Entonces lo que tengo que hacer es que en el programa que cargo en el pic es donde tengo que hacer la conversion de ascii a decimal o lo que yo necesite verdad ? Con razón no me salia.
Lo que pretendo es controlar el PWM, y pues necesitaba colocar un valor numerico en la varible duty. Pues muchas gracias y seguimos en contacto para ver que va saliendo.
Publicado por: pacalaconcurso en 21 de Mayo de 2004, 16:44:00
Publicado por: badtzdizzy en 22 de Mayo de 2004, 20:00:00
Publicado por: pacalaconcurso en 23 de Mayo de 2004, 06:05:00
de cualquier forma estoy terminando una dll para visual de forma que podremos conectar con el micro sin tener que preocuparnos de configurar nada (la dll incluso controla el puerto por lo que solo tenemos que pasar en numero del puerto serie y la velocidad)
las primeras pruebas funcionan 100%.
mi idea es poner unos ejemplos de como usarla en VB.
a ver si la puedo terminar.
saludos
Publicado por: Abago en 23 de Mayo de 2004, 19:29:00
Te has creado una dll de gestión de comunicaciones ????
Publicado por: badtzdizzy en 23 de Mayo de 2004, 23:23:00
Publicado por: gabotronic en 18 de Agosto de 2004, 21:26:00
Como se hace para que en VB se refresque automaticamente cada cierto tiempo el dato que viene del pic en un textbox, sin que el operador tenga que ejcutar alguna opcion?
Publicado por: Nocturno en 19 de Agosto de 2004, 03:13:00
Este objeto te lanzará un evento, creo recordar que se llama OnInterval, en el que podrás hacer lo que quieras, en tu caso text1.text=xxxx
Publicado por: gabotronic en 19 de Agosto de 2004, 18:44:00