Publicado por: loverman24 en 27 de Septiembre de 2005, 05:34:00
Tengo que monitorizar los datos q me envia mi pic por pc, y pensaba hacerlo por VB, que es, dentro de lo q cabe, lo mas sencillo. Mi problema es q no tengo ni idea de VB.
Tengo un pic q me envia los datos obtenidos a traves del ADC, el envio lo hago (uso CCS), lo he probado usando el Hyperterminal de windows y va bien, pero lo que quiero poder hacer es decirle al pic cuando quiero q envie y decirle q canal del ADC tiene q activar para obtener los datos. He mirado en el primer post de este foro (el de rs-232 q es lo q voy a utilizar), pero no lo entiendo demasiado bien.
Bueno, si alguien hizo alguna vez algo parecido o sabe de algun sitio donde pueda encontrar mas informacion sobre el control de pic´s mediante VB se lo agradeceria.
Muchas gracias
Un saludo
Publicado por: LordLafebre en 27 de Septiembre de 2005, 10:32:00
Recientemente Artifox coloco un ejemplo de envio y recepcion de datos en VB para el puerto serie:
http://miarroba.com/foros/ver.php?foroid=348538&temaid=3607620&do=prevtopic
Suerte......!!!
Publicado por: loverman24 en 28 de Septiembre de 2005, 12:03:00
De momento esta es mi duda, mas adelante seguramente preguntare mas, siento ser pesado.
Un saludo
Publicado por: Colores en 28 de Septiembre de 2005, 12:34:00
TxtRecibir.Text = TxtRecibir.Text & StrConv(MSComm1.Input, vbUnicode) & vbCrLf
probá con:
TxtRecibir.Text = TxtRecibir.Text & StrConv(MSComm1.Input, vbUnicode)
o tal vez quieras esto:
TxtRecibir.Text = StrConv(MSComm1.Input, vbUnicode)
Publicado por: LordLafebre en 28 de Septiembre de 2005, 13:06:00
Si no te llegara a funcionar cambia el codigo del pic y envia los datos sin retorno de carro...!
Publicado por: loverman24 en 29 de Septiembre de 2005, 04:24:00
Gracias
Un saludo
Publicado por: loverman24 en 04 de Octubre de 2005, 07:01:00
¿como puedo hacer q visual basic me reconozca q le envio una variable en concreto? me explico:
yo le envio a visual basic una serie de datos q salen del convertidor adc del pic, esto no es problema, soy capaz de enviarlos y q vb me los muestre por pantalla; pero resulta q tengo q cambiar de canal adc y enviar otros datos a otra textbox de vb, no a la misma de antes, por lo q tengo q decirle a vb q he cambiado de canal adc y por tanto de textbox, es decir, vb me tiene q ser capaz de segun el canal de adc q tengo activado mostrarme los datos en una determinada textbox, por lo tanto me tiene q distinguir entre unos datos (lo q quiero enviar) y otros (los canales adc).
os pego el codigo en c de lo q tengo:
//Programa que realiza una conversion de un potenciometro
#include <16f877A.h>
#device adc=10
#fuses XT, NOPROTECT, NOPUT, NOWDT, NOBROWNOUT, NOLVP, NOCPD
//wrt
#use delay (clock= 4000000)
#use rs232(BAUD=19200, BITS=8, PARITY=N, XMIT=PIN_C6, RCV=PIN_C7)
void main() {
float const resoluc= 4.90/1024.00; //Resolución del convertidor (4.90 es la tension de alimentacion
//q se usa como referencia
float corriente= (2*4.90)/11400.00;
float tension; //Valor tension sacada
float valor; //Numero de pasos de la medida
float v_ohmico, v_ohmicom, v_ohmicot; //Valor ohmico del potenciometro
int i,j; //Indices que vamos a utilizar
setup_adc_ports (ALL_ANALOG); //Todas las entradas del covertidor son analogicas
setup_adc (ADC_CLOCK_INTERNAL); //Selecciono reloj interno del pic
for (;
{ //Bucle infinitofor (i= 0; i<4; i++) { //Hace las medidas alternando entre pot
v_ohmicom= 0;
v_ohmicot= 0;
putchar(i); //Envia el numero del canal q vamos a usar
set_adc_channel (i); //Elige el canal segun valor de i
for (j= 1; j<101; j++) { //Bucle que va obteniendo 100 valores de tension
delay_us(20); //Retardo para que de tiempo de cargarse el condensador del adc
valor= read_adc(); //Obtiene el valor del adc
tension= valor*resoluc; //Calcula la tension
v_ohmico= (2*tension)/corriente; //Calculo valor ohmico de los potenciometros
v_ohmicot= (v_ohmicot+v_ohmico); //Va sumando los valores ohmicos de los 100 datos
}
v_ohmicom= v_ohmicot/100; //Media del valor ohmico
printf ("%1.2f", v_ohmicom); //Saca a hyperterminal valor ohmico
delay_ms(20); //Retraso de 20ms y vuelta a empezar
}
}
}
Haber si podeis aclarme esa duda por favor.
Gracias
Un saludo
Publicado por: LordLafebre en 04 de Octubre de 2005, 10:23:00
Pues yo creo que debes avisar a Visual cuando has cambiado de canal, porque a visual lo que le llega es datos enviados del pic... por ejemplo si le envias algun caracter en especifico para indicar que canal estas utilizando Visual entenderia y mostraria los datos en el Text que corresponda....
Publicado por: Colores en 04 de Octubre de 2005, 10:50:00
http://miarroba.com/foros/ver.php?foroid=64652&temaid=172512&pag=3
el usuario hhpp tenía un problema similar al tuyo, fijate las respuestas que le doy y seguí el hilo de el thread que te vas a dar cuenta como funciona el sistema que propuse. Cualquier cosa fijate en las páginas anteriores y posteriores del thread donde también hay otras explicaciones.
Espero que te sirve, probalo y seguimos conversando.
Salu2.
Publicado por: loverman24 en 06 de Octubre de 2005, 10:05:00
A7.4521
B.4.2565
C.3.5478
D.10.1254
y otra vez a empezar. Pero aunq comprendo lo q tengo q hacer en vb, no se muy bien como hacerlo.
Se que tengo q hacer la comunicacion por eventos, cada vez q aparezca el retorno de carro, y luego de ese trozo de informacion quedarme con los datos y deshechar la letra. Como dije, he mirado el codigo q hay en ese post, lo entiendo, pero no se muy bien como aplicarlo luego para que en diferentes textbox o label´s salgan los datos.
Lo tengo ahi delante pero no doy con la tecla. Si me podeis ayudar un poco mas os lo agradeceria.
Gracias
Un saludo
Publicado por: loverman24 en 07 de Octubre de 2005, 05:50:00
Option Explicit
Private buffer As String
Private canal As String
Private lectura As String
Private Sub Form_Load()
"Dim CommPort As String, Handshaking As String, Settings As String
"Dim buferentrada As String
MSComm1.CommPort = 1 "puerto com1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.InputLen > 8 Then
MSComm1.PortOpen = False
MSComm1.PortOpen = True
Exit Sub
End If
buffer = MSComm1.Input
If buffer = " " Then Exit Sub
canal = Left$(buffer, 1)
lectura = Mid$(buffer, 2, 7)
Select Case canal
Case "A"
LblPot1.Caption = lectura
Case "B"
LblPot2.Caption = lectura
Case "C"
LblPot3.Caption = lectura
Case "D"
LblPot4.Caption = lectura
End Select
End Sub
Private Sub cmdFinalizar_Click()
Hide
End Sub
Me he basado en lo q habia puesto en el otro post. Cogi un pokito de alli y otro de alla y parece q funciona.
Lo q si tengo q pedir es q alguien me confirme q este bien, o mejor, q me lo "depure" un poco. Sigo con problema de fluctuacion, tendre q poner un condensador de mas capacidad, pq ya hago la media de 100 valores.
Tengo q agradecer a Lordlafebre y a Colores2 su ayuda. Gracias
Un saludo
Publicado por: Colores en 08 de Octubre de 2005, 15:28:00
Pero de cualquier manera no es deseable.
Solución 1:
Ponele un capacitor cerámico al potenciometro que querés medir, creo que 100nf te va a funcionar bien.
Solución 2:
Hacé en el pic una rutina que sólo envíe datos si el nuevo valor es diferente y sólo mayor al anterior en 1 o 2 unidades.
Ejemplo con un algoritmo:
Leer valor ADC y guardarlo en ADCvalor
Si ADCvalor <> ADCvalorAnterior y ADCvalor <> ADCvalorAnterior + 1 entonces
***Enviar ADCvalor
***ADCvalorAnterior = ADCvalor
Entonces esto es igual a decir que solo va a transmitir el dato si el valor es diferente en al menos una unidad. Por ejemplo si tenemos la secuencia:
232 - 233 - 236 - 236 - 237 - 236 - 250 solo va a transmitir:
232 - 236 - 250.
Con esto se solucionan la mayoría de los problemas de este tipo, si a esto le agregamos que vos usas una escala de 0 a 100 y para esto tenés que dividir por 2,54 se desprende que no perdés exactitud al ignorar una unidad de cambio en la escala de 255 del ADC (2,5 unidades del ADC corresponden a 1 en la escala 0-100)
La aplicación de las 2 soluciones me funcionaron perfectamente a mi.
Salu2.
Publicado por: loverman24 en 20 de Octubre de 2005, 06:29:00
//Programa que realiza una conversion de un potenciometro
#include <16f877A.h>
#device adc=10
#fuses XT, NOPROTECT, NOPUT, NOWDT, NOBROWNOUT, NOLVP, NOCPD
#use delay (clock= 4000000)
#use rs232(BAUD=19200, BITS=8, PARITY=N, XMIT=PIN_C6, RCV=PIN_C7)
void main() {
float const resoluc= 5.00/1024.00; //Resoluci�n del convertidor (4.90 es la tension de alimentacion
//q se usa como referencia
float corriente= (2*5.00)/11400.00; //Cuidado aqui para medir la resistencia REAL, esto conlleva fallos
float tension, tensionm, tensiont; //Valor tension sacada
float valor[]; //Numero de pasos de la medida
float v_ohmico, v_ohmicom, v_ohmicot; //Valor ohmico del potenciometro
int m, j, k;
char canal, modo;
setup_adc_ports (ALL_ANALOG); //Todas las entradas del covertidor son analogicas
setup_adc (ADC_CLOCK_INTERNAL); //Selecciono reloj interno del pic
for (;
{j= 0;
k= 0;
for (k= 0; k<2; k++) {
switch (k) {
case 0: modo= "a"; break;
case 1: modo= "b"; break;
}
for (j= 0; j<4; j++) {
valor[0]= 0;
tensionm= 0;
tensiont= 0;
v_ohmicom= 0;
v_ohmicot= 0;
set_adc_channel (j);
switch (j) {
case 0: canal= "A"; break;
case 1: canal= "B"; break;
case 2: canal= "C"; break;
case 3: canal= "D"; break;
}
for (m= 1; m<101; m++) { //Bucle que va obteniendo 100 valores de tension
delay_us(20); //Retardo para que de tiempo de cargarse el condensador del adc
valor[m]= read_adc(); //Obtiene el valor del adc
if ((valor[m]!=valor[m-1])&&(valor[m]!=valor[m-1]+1))
tension= valor[m]*resoluc; //Calcula la tension
v_ohmico= (2*tension)/corriente; //Calculo valor ohmico de los potenciometros
v_ohmicot= (v_ohmicot+v_ohmico); //Va sumando los valores ohmicos de los 100 datos
tensiont= (tensiont+tension);
}
v_ohmicom= v_ohmicot/100; //Media del valor ohmico
tensionm= tensiont/100;
if (modo="a")
printf ("%c%c%1.2f
",modo, canal, tensionm);
if (modo= "b")
printf ("%c%c%1.2f
", modo, canal, v_ohmicom);
delay_ms(20); //Retraso de 20ms y vuelta a empezar
}
}
}
}
Creo q esta bien implementado en c tu algoritmo, creo q deberia funcionar. Espero vuestra ayuda.
Muchas gracias
Un saludo
Publicado por: Colores en 20 de Octubre de 2005, 12:05:00
Publicado por: loverman24 en 20 de Octubre de 2005, 15:34:00
No creo q sea por eso, pq envia perfectamente sin el "if" q me dijiste. Ademas envia a al puerto serie por el "printf" asi q eso no creo q sea. Tiene q haber algun problema con la variable valor[], q este mal definido el array o algo asi, no lo se. La verdad es q creo q esta bien declarada, y en teoria de beria funcionar, no lo se. Haber si alguien sabe q puede ser, pq yo la verdad no se q pasa.
Muchas gracias colores2 por tu ayuda, gracias.
Un saludo