Publicado por: Abago en 02 de Mayo de 2004, 00:58:00
Hoy he tenido una nueva idea, pero tengo que empezar por algo, y es lo que me pierde!!!
La idea:
Leer el valor de un potenciometro lineal, pero con una precisión considerable...
Bueno, os cuento.
Yo tengo un bar de copas, y desde hace años, solo trabajamos con musica digital...
Hace años, temía que irme corriendo a la cabina del pincha, a bajar la musica a mano...
Actualmente, tengo montado un sistema de escritorio remoto, y cambio el volumen, con el ratón...con el ordenador que gestiona la caja registradora...
Pero esta noche, pensando, pensando!!!!
y porque no me hago un simulador de potenciometro master??
y lo pongo en la barra???
según el valor que tenga el potenciometro, el pic, lo lea, y trasnmita datos por rf, a un receptor colocado en la cabina.
Luego con un programita, que tambien me tocará desarrollarme, aunque creo que va a ser muy sencillo... controlaré el volumen PC que tengo en la cabina del pincha...
Alguna idea???
TNKS
PD: Como siga haciendo trastos, al final no voy a tener un bar de copas, sinó una nave espacial...
Publicado por: khasistos en 02 de Mayo de 2004, 01:35:00
aqui te mando un sencillo para f877 o cualquiera con ad te lee el valor de un pote conectado entre masa y 5 volts es para plus
Cualquier duda avisame
Saludos
khasistos
" Read channel 0 of on-board ADC and display the results
DEVICE = 16F877
XTAL = 20
LCD_DTPIN = PORTD.4
LCD_RSPIN = PORTE.0
LCD_ENPIN = PORTE.1
LCD_INTERFACE = 4 " 4-bit Interface
LCD_LINES = 2
LCD_TYPE = 0
ADIN_RES 10 " Set the resolution to 10
ADIN_TAD FRC " Choose the RC osc for ADC samples
ADIN_STIME 100 " Allow 100us for charge time
Dim Raw as Word
Dim Value as Word
Dim Volts as Byte
Dim Millivolts as Word
Delayms 500 " Wait for PICmicro to stabilise
Cls " Clear the LCD
TRISA.0 = 1
TRISB.1= 1 " Setup bit-0 of PortA as an input
ADCON1 = %10000010 " Set PORTA analog and right justify result
Again: Raw = ADIN 0 " Read the ADC
Print at 2,1,"RAW= ",@Raw," " " Display the RAW data
Value = 489 *(Raw / 10) " Quantasize the result
Volts = Value / 10000
Millivolts = (Value // 10000) / 100
Print at 1,1,Dec1 Volts,".",Dec2 Millivolts,"V" " Display the result
Delayms 1000
Goto Again " Do it