Temperatuur uitlezen uc

Device = 16F628A

Config INTRC_OSC_NOCLKOUT, CP_OFF, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF, BODEN_off 
DelayMS 200
ALL_DIGITAL=true

Declare LCD_DTPIN PORTB.4
Declare LCD_RSPIN PORTB.2
Declare LCD_ENPIN PORTB.3
Declare LCD_LINES 2
Cls
Clear

Declare SCL_PIN PORTB.0
Declare SDA_PIN PORTB.1

Dim T As Word
Dim dummy As Byte


BusOut %10010000,172,[1]            ;oneshot mode in t-sensor.
BusOut %10010000,[238]              ;start conversie
;-----------------------------


main:


BusIn %10010001,172,[dummy]                 ;lees config register van T-sensor
If dummy.7=1 Then                           ;1=conversion ready, 0=busy
    BusIn %10010001,170,[T]                 ;lees T-sensor
    BusOut %10010000,[238]                  ;start nieuwe temperatuur conversie
End If

DelayMS 100

If T.HighByte<128 Then           ;positieve temperatuur
    Print At 1,1," "
    Print DEC2 T.HighByte
    If T.LowByte=0 Then
        Print ".0"
    Else
        Print ".5"
    End If
Else                                ;negatieve T
    Print At 1,1,"-"
    If T.LowByte=0 Then
        Print DEC2 256-T.HighByte
        Print ".0"
    Else
        Print DEC2 255-T.HighByte
        Print ".5"
    End If
End If


Print 223,"C"
GoTo main

DEVICE 16F84 
 DECLARE XTAL 4  
 SYMBOL DQ = PORTA.1           ' Place the DS1820 on bit-1 of PORTA  
 DIM Temp AS WORD              ' Holds the temperature value 
 DIM C AS BYTE                 ' Holds the counts remaining value 
 DIM CPerD AS BYTE             ' Holds the Counts per degree C value  
 CLS                           ' Clear the LCD before we start 
Again: 
 OWRITE DQ, 1, [$CC, $44]      ' Send Calculate Temperature command 
 REPEAT 
 DELAYMS 25                    ' Wait until conversion is complete 
 OREAD DQ, 4, [C]              ' Keep reading low pulses until
 UNTIL C <> 0                  ' the DS1820 is finished.
 OWRITE DQ, 1, [$CC, $BE]      ' Send Read ScratchPad command
 OREAD DQ, 2,[Temp.LOWBYTE,Temp.HIGHBYTE, C, C, C, C, C, CPerD]
 ' Calculate the temperature in degrees Centigrade
 Temp = (((Temp >> 1) * 100) - 25) + (((CPerD - C) * 100) / CPerD)
 PRINT AT 1,1, DEC Temp / 100, ".", DEC2 Temp," ", AT 1,8,"C"
 GOTO Again

BusOut %10010000,172,[1]            ;oneshot mode in t-sensor.
BusOut %10010000,[238]              ;start conversie

BusIn %10010001,172,[dummy]                 ;lees config register van T-sensor
If dummy.7=1 Then                           ;1=conversion ready, 0=busy
    BusIn %10010001,170,[T]                 ;lees T-sensor
    BusOut %10010000,[238]                  ;start nieuwe temperatuur conversie
End If

Device 16F628A                                                                   ;PIC
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF                 ;Configuratie
ALL_DIGITAL TRUE                                                                 ;Alles digitaal

Symbol SDA PORTa.1                                                               ;Symbolen
Symbol SCL Porta.0                                                               ;Symbolen

Dim RTCYear    as byte                                                           ;Variabel
Dim RTCMonth   as byte                                                           ;Variabel
Dim RTCDate    as byte                                                           ;Variabel
Dim RTCDay     as byte                                                           ;Variabel
Dim RTCHour    as byte                                                           ;Variabel
Dim RTCMinute  as byte                                                           ;Variabel
Dim RTCSecond  as byte                                                           ;Variabel
Dim RTCCtrl    as byte                                                           ;Variabel
Dim TheTime    as Word

RTCYear    = $07                                                                 ;Variabel instellen
RTCMonth   = $09                                                                  ;Variabel instellen
RTCDay     = $16                                                                  ;Variabel instellen
RTCHour    = $13                                                                 ;Variabel instellen
RTCMinute  = $30                                                                   ;Variabel instellen
RTCSecond  = $45                                                                   ;Variabel instellen
RTCCtrl    = $0                                                                  ;Variabel instellen
                                                                     
Gosub settime		                                                                 ;Subroutine settime
Goto start

settime:
 busOut SDA, 0, [RTCYear, RTCMonth, RTCDate, RTCDay, RTCHour, RTCMinute, RTCSecond, RTCCtrl]
return

gettime:
 busIn SDA, 0, [RTCYear, RTCMonth, RTCDate, RTCDay, RTCHour, RTCMinute, RTCSecond, RTCCtrl]
return

DelayMS 500                                                                      ;LCD Opstarten

start:
gosub gettime

	print $fe, 1, hex2 RTCMonth, "/", hex2 RTCDate, "/" , hex2 RTCYear,_
  "  ", hex2 RTCHour, ":", hex2 RTCMinute, ":", hex2 RTCSecond

	delayms 500

goto start