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?
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
What happens?
Bookmarks