Well, since those buttons seemed to work out so well (refer to post #20 and post #34), do you want to humour me a little bit more?
What happens?Code:Define LCD_DREG PORTB Define LCD_DBIT 0 Define LCD_RSREG PORTB Define LCD_RSBIT 5 Define LCD_EREG PORTB Define LCD_EBIT 4 DEFINE LCD_BITS 4 DEFINE LCD_LINES 2 keyin var byte : adval var word : tempc var word : trisa=1 : trisc=$1f highled var porta.1 : lowled var porta.2 : adcon1=$f2 : adcon0=$c1 pause 1000 : lcdout $fe,1 : goto main main: adcon0.2=1 : pause 1 checkadc: highled=1:if adcon0.2 = 1 then checkadc highled=0:adval.highbyte=adresh : adval.lowbyte=adresl : tempc=(50*adval)/100 pause 50 : keyin = portc : temp = temp + 1 : lowled=temp.3 lcdout $fe,1,"T=",DEC5 tempc,$DF,"C",$fe,$c0,BIN8 keyin : goto main end




Bookmarks