Monitorizar valores de una fotorresistencia desde Excel
Bruno Barangé (bruno.akun@gmail.com)
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.
 |
LISTADO DEL CÓDIGO
'{$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
|
