CRONOMETRO PARA EVALUAR EVENTOS.


INTRODUCCIÓN


El objetivo de este proyecto es poder evaluar el tiempo que tarda un evento como es la caída de un objeto. Gracias a este proyecto podré realizar nuevos ensayos dedicada a la física.

CIRCUITO



PROGRAMA:

INCLUDE "modedefs.bas"
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFine ADC_BITS 10
x var word
cs var word
cont var byte
ANSEL = %00010000
ADCON1 = %10000000
OSCCON = $60
pause 1000
high portb.0
pause 1000
low portb.0
pause 1000
inicio:
cs=0
pause 150
lcdout $fe,1,"Intro inicio"
lcdout $fe,$c0,"contador"
if porta.3=0 then inicio1
goto inicio
inicio1:
for cont=1 to 40 step 1
pulsout portb.2,220 ' izquierda ?
next ' Do it again until count = 40
goto inicio2
inicio2
pauseus 5860 ' aquí ajustamos el tiempo
adcin 4, x
if x >100 then registra
cs=cs+1
lcdout $FE,1,"T=", DEC cs
goto inicio2
registra:
lcdout $FE,1," cs=", DEC cs
lcdout $fe,$c0,"intro= inicio"
for cont=1 to 40 step 1
pulsout portb.2,80 ' derecha?
pauseus 9920 ' Timing delay
next ' Do it again until count = 40
if porta.3=0 then inicio
pause 150
goto registra
end


EXPLICACIÓN DEL PROYECTO.                                

Para el proyecto he utilizado un piezoeléctrico gracias a su sensibilidad podré detectar fácilmente la caída de un objeto, además aprovecho la exactitud del pic como contador de tiempo.

 

 

 

PREGUNTAS Y SUGERENCIAS.

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