batarya okuma lcd de gösterme

[proje]

12V luk bir batarya için ekranda batarya süresini veya herhangi bir şekilde dolu-boş özelliğini nasıl yansıtabilirim. Basit bir örnek olsa geliştirebilirim, fikir verme açısından

Link veya kod verirseniz sevinirim.

[ibrsel]

Gerilim bölücü direnç kullanarak 12V u pic'e 5 v olarak okutabilirsin..Elde edeceğin +5 V u micro denetleyicinin Analog girişinden okutup değerlendirebilirsin..pproteus dosyasını eklemeyi beceremedim..
RA0 ucuna 5K lık pot bağlayıp üst ucunu +5 a ,alt ucunuda şaseye bağlayarak deneyebilirsin..

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
'-------------------------------------------------------------------------------
DEFINE  ADC_BITS 8               'A/D çevirim sonucu kaç bit olacak
DEFINE  ADC_CLOCK 3                 'Clock kaynağı (3=rc)
DEFINE  ADC_SAMPLEUS 50               'Şarj  zamanı mikro saniye cinsinden.
'-------------------------------------------------------------------------------
ADCON1=%00001110 '7. bit 1 yapıldı 10 bit sonuç almak için.  8 bit işlem için 7 biti 0 yap
'-------------------------------------------------------------------------------
ham  VAR WORD
volt var word
onda var word
'-------------------------------------------------------------------------------
pause 1000
LCDOut $FE,1                  
pause 200                            
'-------------------------------------------------------------------------------

BASLA:
     ADCIN 0,HAM  
     lcdout $FE,1,"HAM =",#ham,"     "
     ham=(ham * 195)
     volt=ham/10000
     onda=ham//10000
     lcdout $fe,192,"volt=",#volt,".",#onda:pause 100
goto basla

[POWER]

Belki bu örnek uygulama işine yarar.
http://rapidshare.de/files/27135929/ADC.rar.html