advanced search

We Recommend

PIC Basic: Programming and Projects PIC Basic: Programming and Projects
The simplest quickest way to get up and running with microcontrollers. makes the PC accessible to students and enthusiasts. The practicalities of programming and the scope of using a PIC are then explored through 22 wide ranging electronics projects.

Posted By

k2vol on 02/20/07


Tagged

Pic Picbasic temperature UTARC DS18B20


Versions (?)


PicBasic Interfacing 18F PIC with Temperature Sensor Maxim DS18B20

Published in: PicBasic 

URL: http://www.utarc.org/wiki/index.php?title=Source_Code

Displays temperature from DS18B20 in Celsius on hardware serial port


Plain TextExpand 
  1. '****************************************************************

  2. '*  Name    : DS18B20 Temperature sensor reading                                    *

  3. '*  Author  : Daniel Bowen  dbowen1@mac.com                                    *

  4. '*  Notice  : Copyright (c) 2007 UTARC www.utarc.org                         *

  5. '*          : All Rights Reserved                               *

  6. '*  Date    : 2/20/2007                                         *

  7. '*  Version : 1.0                                               *

  8. '*  Notes   : Displays temperature from DS18B20 in Celsius on hardware serial port

  9. '*			: Microcontroller used: PicMicro 18F4620

  10. '*          :                                                   *

  11. '****************************************************************

  12.  
  13. INCLUDE "MODEDEFS.BAS"

  14. DEFINE OSC 20

  15. DEFINE LOADER_USED 1

  16. DEFINE HSER_BAUD 2400

  17. DEFINE ADC_CLOCK 1

  18. DEFINE ADC_BITS 10

  19. DEFINE ADC_SAMPLEUS 50

  20. SYMBOL LF=$0A

  21. CMCON=$07

  22. ADCON1=%00001100

  23. TRISA=%00110111

  24. TRISB=%01111101

  25. TRISC=%10010100

  26. TRISD=%10010100

  27. TRISE=%00000000

  28.  
  29. '*** Pin assignments

  30. TempIn VAR PORTA.4

  31.  
  32. '*** Temp Read Variables ***

  33. char                    VAR     BYTE

  34. TTData VAR BYTE

  35. TSign VAR BIT

  36. TempData VAR WORD

  37. Sign VAR TEMPDATA.15

  38.  
  39.  
  40.  
  41.  
  42.  
  43. START:

  44.  
  45.     GOSUB TEMPINREAD

  46.     LOOKUP TSIGN, ["+","-"], CHAR

  47.     HSEROUT [char,DEC3 TEMPDATA, "C" CR,LF] ' and display it  0=positive, 1=negative

  48.  
  49. GOTO START

  50.  
  51.  
  52. TEMPINREAD:

  53.     OWOUT TEMPIN,1,[$CC,$44]

  54.     HIGH TEMPIN

  55.     PAUSE 10

  56.     OWOUT TEMPIN,1,[$CC,$BE]

  57.     OWIN TEMPIN,0,[TEMPDATA.LowByte,TEMPDATA.HighByte,SKIP 7]

  58.     tSign = SIGN ' save sign bin

  59.     IF TSIGN=1 THEN

  60.         TEMPDATA = $FFFF-TEMPDATA

  61.         TEMPDATA = TEMPDATA + 1

  62.     ENDIF

  63.     TEMPDATA = TEMPDATA/16

  64.     RETURN

Report this snippet 

You need to login to post a comment.