http://www.youtube.com/watch?v=e_FICQ_F2MI

Swech
Kod: Markera allt
'-----------------------------------------------------
'-- IIC SEND BUFFER TO SAA1064 ----
'-----------------------------------------------------
FUNCTION SENDBUF(BRIGHT as byte,DIGIT1 as byte,DIGIT2 as byte,DIGIT3 as byte,DIGIT4 as byte)
IIC.INIT
IIC.START
IIC.SEND 118 'WRITE ADDRESS
IIC.SEND 0
IIC.SEND BRIGHT
IIC.SEND DIGIT1
IIC.SEND DIGIT2
IIC.SEND DIGIT3
IIC.SEND DIGIT4
IIC.STOP
IIC.OFF
END FUNCTION
'----------------------------------------------------
' SPLIT VALUE INTO DIGITS
'----------------------------------------------------
FUNCTION SPLIT_DIGITS(VALUE as word)
TAUSENDER=VALUE/1000
HUNDERTER=(VALUE-(TAUSENDER*1000))/100
ZEHNER=(VALUE-(TAUSENDER*1000)-(HUNDERTER*100))/10
EINER=VALUE-TAUSENDER*1000-HUNDERTER*100-ZEHNER*10
END FUNCTION
Kod: Markera allt
define TEMP as word
DS1631RESET(DS1631)
DS1631SET_STATUS(DS1631,1)
'-------------------------------------------------------------
'----- LOOP READING TEMPERATURE ---
'-------------------------------------------------------------
#LOOP
pause 5
DS1631CONVERT(DS1631)
DS1631WAIT_READY(DS1631)
TEMP=DS1631GET_TEMP(DS1631)
TEMP=TEMP SHR 7
if (TEMP and 0100h) = 0100h then TEMP=(TEMP or FE00h)
SPLIT_DIGITS(temp/2)
SENDBUF(BRIGHT1,DECODE(EINER),DECODE(ZEHNER),0,0)
lcd.init switchonly
lcd.clear
LCD.PRINT "TEMP: " & TEMP/2 & "." & (TEMP and 1)*5 & " C "
LCD.OFF
goto LOOP
kort och koncis ibland bara ...> Jag vet inte men varför upplever jag att sodjan alltid är så spydig och elak?
Kod: Markera allt
lcd.init switchonly
lcd.clear
LCD.PRINT "TEMP: " & TEMP/2 & "." & DECIMAL & " C " // HÄR BYTTE JAG UT (TEMP and 1)*5 MOT DECIMAL.
LCD.OFF
goto LOOP