Codigo Para Teclado Analogico

Páginas: 2 (309 palabras) Publicado: 31 de marzo de 2012
//*************************************

// Ana Ivette Figueroa M.
// Ing. Mecatrónica CETI

//*************************************

#include
void Timer(long longespera) // espera = tiempo deseado / 2us
{
while(espera>0)
{
Nop();
espera--;
}
}
void Init(void)
{
PORTB=0;
TRISB=0x00; //puerto B salida
}
unsigned short ADC_AN1()
{ADCON0 = 0x07; //001 11 AN1 activado y ADON iniciado
ADCON1 = 0x09; //(Vss y Vdd) puertos analogicos
ADCON2 = 0xBE; //Justificado a la derecha, 20TAD y 64Tosc->48MHz
ADCON0bits.GO = 1; //iniciaconversión
while(ADCON0bits.GO); //se cicla hasta q se termine la conversión
return (unsigned short)((ADRESH*256)+ADRESL);
}
int Teclado_ADC(int tecla)
{
float volts= 0;
int bits = 0;int FLANCO=1;
if(ADC_AN1()>100)
{
if(bits4.0) return tecla=1;
else if(volts>3.40) return tecla=4;
else if(volts>3.30) return tecla=2;
else if(volts>3.00) return tecla=7;
elseif(volts>2.90) return tecla=5;
else if(volts>2.68) return tecla=14;
else if(volts>2.60) return tecla=8;
else if(volts>2.30) return tecla=16;
else if(volts>2.20) return tecla=3;else if(volts>2.00) return tecla=6;
else if(volts>1.89) return tecla=9;
else if(volts>1.75) return tecla=15;
else if(volts>1.69) return tecla=10;
else if(volts>1.55) return tecla=11;else if(volts>1.45) return tecla=12;
else if(volts>1.35) return tecla=13;

FLANCO=1; //para esperar el siguiente pulso
bits=0;
}
else return tecla;
}
void main(void)
{
intteclaResp,i=0;
Init();
while(1)
{
teclaResp=Teclado_ADC(0); //todo el tiempo se reviza si se ha pulsado [*]
if(teclaResp==14)
{
PORTB=teclaResp;
Timer(500000);
teclaResp=0;//inicio de menu
while(teclaResp!=14){
teclaResp=Teclado_ADC(0);
PORTB=teclaResp;
Timer(500000);
} //se rebizan los numeros del teclado,lo cual significa q
//se...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • codigos del teclado de una computadora
  • Combinaciones De Teclas Pára Excel
  • Atajos de teclado para word
  • Combinaciones de teclas para windows
  • combinaciones de teclas para el windons
  • Para Que Sirven Las Teclas De Función
  • Orientacion analogica de un par fotogrametrico
  • Manual del teclado para pc

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS