The snapshot is a plot of eight DS1820 temperature thermometers hooked up to David Andersonís ( www.phanderson.com ) serial temperature device. He sells several different kinds now, this was one of his early ones. Quite frankly I had given up on having any kind of graphic display after looking over some programming languages. I have used Quickbasic, QuickC and RapidQ but the effort of learning to program for a modern windows operating system was more than I wanted to expend. I just wanted to make a reasonably simple plot. Then I read about StampPlot on David Andersonís web site (a great site) and gave it try. I was so impressed that ten minutes later I paid for a registered copy.

AnywaysÖ The DS1820ís are hooked up to my coldframe (really a hotframe now, growing tomatoes six weeks ahead of season), my freezer (you know how important that is if you have ever lost the entire contents of one because you had no alarm system on it), my computer room and various other odds and ends. Note that the min/max temps are not working as well as could be, I donít think they are being reset properly. Ah well, itís not a priority right now. Getting it on the web is my priority. This way I can check on my tomatoes while I am at work. Itís not on the web although I have set up snapshot to capture at every update, not every ten minutes as I was more concerned with getting the point count down, it will be something Iíll work on soon.

Mike


INIT:
!JPGQ 50
!PORT COM 2,2400,8,N,1,2000, 0, 0, 0
!RSET
!NPSU OFF
!NEWP
!DEFS (ME)
!USED ON
!USEA OFF
!PARS ON
!PCHR
!INTT 30
!USET ON
!USEC ON
!ASNP ON
!AUTT
!QSIZ 2000
!SPAN -25, 45
!TMAX 86400
!XLBL Time
!RTIM ON
!TDIV 3600
!PNTS 50000
!MAXT
!TITL
!GRID 24,70
!DISP D9 G2 A0 S0 B15 R
!MACR .DCONST
!RSET
!CONN ON
!PLOT ON
ENDMAC

DCONST:

DEFAULT:
ENDMAC

TIMER:
!PLOT ON
!LOGD (PARSE1),(PARSE2),(PARSE3),(PARSE4),(PARSE5),(PARSE6),(PARSE7),(PARSE0)
~FREC 0a,101a,79a,113a,15
~TEXT 1a,111a,1,1,MIN:(AINMIN1)
~TEXT 1a,107a,1,1,COLDFRAME
~TEXT 1a,103a,1,1,MAX:(AINMAX1)
~TEXT 13a,111a,1,2,MIN:(AINMIN2)
~TEXT 13a,107a,1,2,CLOCHE
~TEXT 13a,103a,1,2,MAX:(AINMAX2)
~TEXT 25a,111a,1,3,MIN:(AINMIN3)
~TEXT 25a,107a,1,3,GROUND
~TEXT 25a,103a,1,3,MAX:(AINMAX3)
~TEXT 37a,111a,1,4,MIN:(AINMIN4)
~TEXT 37a,107a,1,4,SHED
~TEXT 37a,103a,1,4,MAX:(AINMAX4)
~TEXT 49a,111a,1,5,MIN:(AINMIN5)
~TEXT 49a,107a,1,5,OUTSIDE
~TEXT 49a,103a,1,5,MAX:(AINMAX5)
~TEXT 61a,111a,1,6,MIN:(AINMIN6)
~TEXT 61a,107a,1,6,COMPROOM
~TEXT 61a,103a,1,6,MAX:(AINMAX6)
~TEXT 73a,111a,1,7,MIN:(AINMIN7)
~TEXT 73a,107a,1,7,MOVEABLE
~TEXT 73a,103a,1,7,MAX:(AINMAX7)
~TEXT 85a,111a,1,0,MIN:(AINMIN0)
~TEXT 85a,107a,1,0,FREEZER
~TEXT 85a,103a,1,0,MAX:(AINMAX0)
!APDT OFF
!SNAP c:\sendtoweb\temps
!APDT ON
!SEND A
ENDMAC

DBLCLICK:
ENDMAC

ASave05-12_at_09-28-57.jpg (135127 bytes) Click to enlarge


Notes from SelmaWare:

  • Great example using drawing instructions and a non-standard source.  The data acquisition system sent data with space-delimited analog data.  The !PCHR and !PARS ON were used to define this format.
  • The text drawing could have been simplified slightly using a '\n' in the code for a new line such as:
    ~TEXT 61a,107a,1,6,COMPROOM\nMAX:(AINMAX6)\nMIN:(AINMIN7)
    for 
    ~TEXT 61a,107a,1,6,COMPROOM
    ~TEXT 61a,103a,1,6,MAX:(AINMAX6)
    ~TEXT 73a,111a,1,7,MIN:(AINMIN7)
  • Thanks Mike for the feedback and great example!
 

Website and software copyright 2009, SelmaWare Solutions
BASIC Stamp is a registered trademark of Parallax, Inc
XBee is a registered trademark of Digi International
Excel is a registered trademark of Microsoft, Corp.


EST Student Project
Earn your BS in 
Electronic Systems Technologies at  Southern Illinois University Carbondale  Click Here!