Leer valor de un potenciometro!!!

[Abago]

Hola a todos!!!
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...

[khasistos]

Hola Abago
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