'****************************************************
'*             WIRELESS THERMOMETER                 *
'*             WITH CIRCULAR BUFFER                 *
'*                RECEIVER PART                     *
'*              niveasoft@tlen.pl                   *
'*                 2017-01-20                       *
'****************************************************

'-DESCRIPTION-
' Code receive incomming data in interrupt background mode.
' If special Tail byte is detected then this byte is the last in whole frame.
' Circular buffer size is calculated to hold only 14 bytes.
' So if Tail is detected then rest of buffer must be previous data.
' In this way preamble is rejected and you have only data bytes.
' These are coded im Manchester six bytes. First two contains data from DS18B20
' Second two bytes contains ADC value readed from node battery terminals.
' Fifth byte is a Node number so you can have more of them and recognize.
' Sixth byte is a CRC from provious five bytes.

'****************************************************
'*             WIRELESS THERMOMETER                 *
'*             WITH CIRCULAR BUFFER                 *
'*               TRANSMITTER PART                   *
'*              niveasoft@tlen.pl                   *
'*                 2017-01-20                       *
'****************************************************

'-DESCRIPTION-
' For energy saving device is in Powerdown Mode most of the time.
' It weakup after Watchdog Restart every ~8s
' SRAM is not cleared so even after Reset variable Count holds seconds counter
' So every ~8s x Period_const device read Raw data from DS18B20 and measure battery voltage.
' If no error has occured then it packed data, own number and calculated CRC is coded
' into Manchester and send via radio.
' Also for energy saving voltage divider is enabled only for measure time.
' Schematic and PCB design can be found at http://bart-projects.cba.pl
 

Dim Volt As String * 10
Voltage = Makeint(bytes(3) , Bytes(4))           'Word ADC value from sensor
          Shift Voltage , Right , 1
           Volt = Str(voltage)
            Volt = Format(volt , "0.00") + "V"

'-[MANCHESTER]-  '1 become "01" and 0 become "10" so longest break in TX is "1001"
Function Code(byref Temp As Byte) As Word                   'we use target variable instead local

   Multip = 8
   Do
      Shift Code , Left , 2
      Decr Multip
      If Temp.multip = 1 Then
         Code = Code + 1                                    '01
      Else
         Code = Code + 2                                    '10
      End If
   Loop Until Multip = 0

End Function