onlyDS18S20.bas

Go to the documentation of this file.

#INCLUDE ONCE "BBB/pruio.bi" ' header for mandatroy libpruio
#INCLUDE ONCE "BBB/pruio_pins.bi" ' libruio pin numbering
'#INCLUDE ONCE "BBB/pruw1.bi" ' library header (after `make install`)
#INCLUDE ONCE "../bas/pruw1.bi" ' library header

VAR io = NEW PruIo() 
DO
  IF io->Errr THEN       ?"io CTOR failed (" & *io->Errr & ")" : EXIT DO

  ' uncomment the following lines in order to use function PruW1::getIn()
  'IF io->config() THEN _
               'PRINT "libpruio config failed (" & *.Errr & ")" : exit do

  
  VAR w1 = NEW PruW1(io, P9_15)
  DO : WITH *w1
    IF .Errr THEN _
          ?"w1 CTOR failed (" & *.Errr & "/" & *io->Errr & ")" : EXIT DO
    ' Scan the bus for device IDs
    ?"trying to scan bus ..."
    IF .scanBus() THEN  PRINT"scanBus failed (" & *.Errr & ")" : EXIT DO
    ? ' print them out
    FOR i AS INTEGER = 0 TO UBOUND(.Slots) ' output slot# and sensor IDs
      ?"found device " & i & ", ID: " & HEX(.Slots(i), 16)
    NEXT

    VAR res = CAST(UBYTE PTR, @.DRam[4]) 
    ' Perform some measurements
    FOR i AS INTEGER = 0 TO 10 '                output 11 blocks of data
      ' Start measurement, send the presense pulse (0 = OK).
      IF .resetBus() THEN                        ?"no devices" : EXIT DO
      .sendByte(&hCC)            ' SKIP_ROM command -> broadcast message
      .sendByte(&h44)       ' convert T command -> all sensors triggered
      SLEEP 750 : ?                              ' wait for conversation
      ' Fetch the data from sensor scratch pads
      FOR s AS INTEGER = 0 TO UBOUND(.Slots)
        IF PEEK(UBYTE, @.Slots(s)) <> &h10 THEN CONTINUE FOR ' series 10 only

        ' Start reading, send the presense pulse (0 = OK).
        IF .resetBus() THEN                     ?"no devices" : EXIT FOR 
        .sendByte(&h55)      ' ROM_MATCH command -> adress single sensor
        .sendRom(.Slots(s))            ' send sensor ID -> select sensor
        .sendByte(&hBE) 'READ_SCRATCH command -> sensor sends scratchpad
        .recvBlock(9) ' read data block (64 bit scratchpad and CRC byte)

        ' output result
        VAR crc = .calcCrc(9) 
        ?"sensor " & HEX(.Slots(s), 16) & " --> CRC ";

        IF crc THEN ?"error!" _
               ELSE ?"OK: " & T_fam10(res) / 256 & " °C"
      NEXT
    NEXT
  END WITH : LOOP UNTIL 1
  DELETE w1                         '   destroy w1 UDT
LOOP UNTIL 1
DELETE io                         '   destroy libpruio UDT