TorpedoBruno Monitorizar datos en Excel
CeroLab, Zona de pruebas - Inventos Varios de electónica y robótica

Monitorizar valores de una fotorresistencia desde Excel
Volver


OBJETIVO:

La idea es mostrar los valores de la luz que llega a una fotorresistencia, enviando los datos capturados desde el BS2 al PC vía serie.

La recepción de los datos en el PC, se hace mediante el software gratuito “StampDAQ”, de parallax.

Creando un gráfico Excel en tiempo real, con los datos recibidos.

El circuito es sencillo, en una placa de pruebas montamos el fotodiodo con una resistencia de 100 ohmios y un condensador de 0,01 Mf.

Dentro de un bucle se puede medir los milisegundos que tarda en descargarse elcondensador mediante el comando RCTIME.

Al circuito le añado un led, en P1 para ver si está conectado.


Excel trazando el gráfico en tiempo real


HARDWARE:

  • Esquema de conexión del fotodiodo, con una resistencia de 100 Ohm. y un condensador de 0,01Mf.
  • Esquema de la conexión del led.
  • Placa de pruebas con el fotodiodo y el LED, conectado el micro con el PC por el puerto de programación, via RS232
  • El PC capturando datos gracias al Stamp DAQ y Excel muestra el gráfico con el tiempo de descarga del condensador en tiempo real.


SOFTWARE:

'{$STAMP BS2}
'****************************************************
' Debuguear el valor de una fotoresistencia en P1 para capturarla en EXCEL
' Hard:
' P0 - Led
' P1 - Fotoresistencia con un condensador
'****************************************************

x VAR Word
conta VAR Word
rct VAR Word 'variable para medir el tiempo de sescarga
sPin CON 16 'Pin - P16, Puerto de rogramación
Baud CON 84 'Baud mode for a rate of 9600, 8-N-1
'BS2P, BS2SX utiliza 240 para 9600, 8-N-1

LOW 0 'Encender el LED en P0
HIGH 1 'Descarga el condensador

PAUSE 1000 'Un segundo de espera para estabilizar cominicación
SEROUT sPin,Baud,[CR] 'Enviamos un CR suelto al StampDAQ para lipiar el buffer

'**************************************************************
SEROUT sPin,Baud,[CR,"LABEL,,Contador,Valor",CR] 'Etiquetas en la primera fila de EXCEL
SEROUT sPin,Baud,["CLEARDATA",CR] 'Limpiamos las columnas de datos (A-J) en Excel

Main:
FOR conta=1 TO 360 ' Grupos de 360 lecturas
x=x+1 ' Contador de lecturas
RCTIME 1,1,rct ' Tiempo de carga del condensador
HIGH 1 ' Descargar el condensador
IF rct=0 THEN Main ' No luz, RCtime overflows
SEROUT sPin,Baud,["DATA,,",DEC x,",",DEC rct,CR] ' Enviar datos
NEXT
PAUSE 250
SEROUT sPin,Baud,["CLEARDATA",CR]
SEROUT sPin,Baud,["MSG, Lectura ",CR]
GOTO Main


DOWNLOADS:


Saludos, Bruno Barangé.
Contacta conmigo:
Formulario - bruno.akun@gmail.com

IP's