Según Wikipedia el sismómetro o sismógrafo es un instrumento creado por John Milne para medir terremotos para la sismología o pequeños temblores provocados, en el caso de la sismología de exploración.
Este aparato, en sus inicios, consistía en un péndulo que por su masa permanecía inmóvil debido a la inercia, mientras todo a su alrededor se movía; dicho péndulo llevaba un punzón que iba escribiendo sobre un rodillo de papel pautado en tiempo, de modo que al empezar la vibración se registraba el movimiento en el papel, constituyendo esta representación gráfica el denominado sismograma.
En este proyecto el sismógrafo registrará los movimientos verticales, no obstante también es posible añadir los otros dos ejes, usando otras entradas ADC, del pic. Además de registrar este Sismografo tiene la facultad de alertar de un movimiento sísmico del grado que nosotros seleccionemos.

CIRCUITO

DIAGRAMA LABVIEW

PROGRAMA PARA EL PIC 16f88

INCLUDE "modedefs.bas"
define LCD_RSREG    PORTB  
define LCD_RSBIT    4      
DEFine ADC_BITS     10     
x var word
y var word  
z var word
pluma var word
margen var word  
ANSEL = %01010000          
ADCON1 = %10000000                
OSCCON = $60     
pause 1000                 
high portb.0
pause 1000
low portb.0
pause 1000
lcdout $FE,1,"Proyecto"
lcdout $FE,$c0,"Sismografo"
pause 3000
lcdout $FE,1,"Por favor"
lcdout $FE,$c0,"indique el nº"
pause 3000
lcdout $FE,1,"maximo para"
lcdout $FE,$c0,"activar alarma."
pause 3000
adcin 4, x             
adcin 6, z                             
lcdout $FE,1,"tienes 10sg"
lcdout $FE,$c0,"Alarma en:",DEC z
pause 10000
lcdout $FE,1,"equilibrando"
lcdout $FE,$c0,"Ok"
pause 3000     
y=x
inicio:                      
adcin 4, x                
x=x-y
if x >2000 then x=0
adcin 6, z                             
lcdout $FE,1,"Pluma", DEC x
lcdout $FE,$c0,"Alarma en:",DEC z
pluma=x+10000
margen=z+10000
if pluma >10005 then registra
if x>z then suena
pause 50                  
goto inicio
registra:
SEROUT PORTb.2,N2400,[#pluma,#margen]
goto inicio
suena:
sound portb.1,[100,100,50,100]
high portb.0
pause 1000
low portb.0
pause 1000
lcdout $FE,1,"ALARMA "
lcdout $FE,$c0,"TERREMOTO"
pause 3000
sound portb.1,[100,100,50,100]
lcdout $FE,1,"SALGA"
lcdout $FE,$c0,"INMEDIATAMENTE"
pause 3000
goto suena
end

EXPLICACIÓN DEL PROYECTO.                                
Para dicho proyecto he utilizado un PIC 16f88 con reloj interno, un LCD 16x2 y un CNY70.
El fin del dispositivo es que registre, y alerte sobre un movimiento sísmico a una intensidad que seleccionemos.
Para la pluma sea empleado la aguja de un disco duro, ya que tiene unos rodamientos muy optimizados, comunicando estupendamente los movimientos mecánicos de un seísmo.

En el caso del amortiguador sea emplea imanes de neodimio, enfrentado con la misma polaridad, ello hace que la amortiguación de la aguja se realice sin fricción.

Y el sensor es un CNY70, donde se enfrenta a una plancha de cartón blanco. Se recomienda cerrar el sistema con una caja para evitar interferencia de luz, aire, etc. Que pueda interferir en las lecturas.

En cuanto el programa decir que finalmente sea vuelto a modificar para que  registre en labview solo cuando realmente exista un movimiento significativo ya que al ser tan sensible y por no ser estanco el sistema existía una molesta vibración.
Como veréis el circuito no tiene un 7805, no obstante es muy recomendable, yo casi siempre lo empleo ya que podemos usar un rango de tensión muy grande y siempre nos dará 5v estable idear como voltaje de ref. en el ADC. De hecho empleo una pila de 9V.
El circuito y el programa por supuesto es mejorable, como añadir los otros dos ejes, colocar un amplificador para la alarma activándolo con un triac sensible de 5v, y un largo etc..
Además se puede simplificar el circuito aun más para dejarlo como una alarma sin LCD.
Espero que el circuito pueda ser empleado sobre todo por todos aquellos que viváis en zonas peligrosas de posibles seísmos.

PRECAUCIONES Y CONDICIONES DE USO
Al tratarse de un experimento eléctrico y térmico por soldaduras, hay tomar las debidas precauciones, para evitar quemaduras, calambres, etc..
No me hago responsable de que las técnicas descritas en este documento sean seguras ni tan siquiera adecuadas, ni que cumplan ningún tipo de requisito de seguridad de ninguna índole. No me hago responsable de la falta de veracidad o exactitud que los datos expuestos ni de los efectos secundarios que provoque el seguir las indicaciones e explicadas.
Todo lo que hagas será bajo tu entera responsabilidad, entendiendo que algunos de los procedimientos explicados son peligrosos y pueden provocar daños físicos o intoxicaciones debido a que en ellos se utilizan herramientas y maquinaria que necesitan de cierta pericia para su manejo y el seguimiento de unas normas básicas de seguridad que deberías conocer, así como elementos químicos que pueden provocar irritaciones, quemaduras, explosiones o intoxicaciones graves si no se tratan adecuadamente.
Este contenido es meramente informativo y no me hago responsable de la veracidad legal de esta información. Así mismo, tampoco me hago responsable del uso que haga cada usuario del contenido de esta web
PREGUNTAS Y SUGERENCIAS.

Para cualquier pregunta puedes realizármela al correo joliva68@ono.com master@picpc.es