Pascalite hardware: Temperature Monitoring

Temperature Monitoring

program IntTutTTure;
{For positive temperatures, without using the fractional degree information}
var bHi,bLo,bTmpG:byte;

procedure NumToLCD(bDisp:byte);
(as fro IntTut4)
end; {of procedure}

begin
def_out(d0,d1,d2,d3);
write(LCD,255); {clears LCD}
repeat
write(i2c,start);
write(i2c,159);
delay(80);         {minimal delay: 80 ms}
read(i2c,bHi,bLo);
write(i2c,stop);
NumToLCD(bHi);
bTmpG:=bHi Mod 10;{This line for people without LCD displays}
bTmpG:=bTmpG+48;{This line for people without LCD displays}
write(portd,bTmpG);{This line for people without LCD displays}
delay(100);
until 4=5;
end.

program IntTutTTure2;
{For positive temperatures, without using the fractional degree information}
var bHi,bLo,bTmpG:byte;

procedure NumToLCD(bDisp:byte);
(as fro IntTut4)
end; {of procedure}

procedure GetTture(var bGTHi,bGTlo:byte);
begin
write(i2c,start);
write(i2c,159);
delay(80);         {minimal delay: 80 ms}
read(i2c,bGTHi,bGTLo);
write(i2c,stop);
end;

begin
def_out(d0,d1,d2,d3);
write(LCD,255); {clears LCD}
repeat
GetTTure(bHi,bLo);
NumToLCD(bHi);
bTmpG:=bHi Mod 10;{This line for people without LCD displays}
bTmpG:=bTmpG+48;{This line for people without LCD displays}
write(portd,bTmpG);{This line for people without LCD displays}
delay(100);
until 4=5;
end.

gotoxy(3,0){assuming degrees displayed in the first three character positions of the first line}
if (bLo and 192)=192 then then write(LCD,".75 degrees C");
if (bLo and 192)=128 then then write(LCD,".50 degrees C");
if (bLo and 192)= 64 then then write(LCD,".25 degrees C");
if bLo<64 then write(LCD,".00 degrees C");

program IntTutTTur3;
{Version: 17 Mar 03}
{By: TK Boyd, http://sheepdogsoftware.co.uk
Displays negative and positive ttures, and quarter degrees
Analog Devices sensor number 7416 returns the temperature
as a 10 bit twos complement number. The most significant 8 bits are
returned to bHi MSB in bHi(7) in the following, the LSB in bit 6
of bLo, and the remaining bit in bLo(7)}

var bHi,bLo,bTmpG:byte;

procedure NumToLCD(bTmp:byte);
var bTens,bTmp2:byte;
begin
gotoxy(1,0);{It appears that the parameters of GOTOXY cannot be variables.}
write(LCD,"      ");{6 spaces}
gotoxy(1,0);
if bTmp>199 then begin
  write(LCD,"2");
  bTmp:=bTmp-200;
  end {was>199} else
    if bTmp>99 then begin
      write(LCD,"1");
      bTmp:=bTmp-100;
      end {was >99} else write(LCD," ");
{100's digit now done}
if bTmp>9 then begin
         bTens:=bTmp DIV 10;
  bTmp2:=bTens*10;
  bTmp:=bTmp-bTmp2;
  bTens:=bTens+48;
  write(LCD,bTens);
  end else write(LCD," ");
{10's digit now done}
bTmp:=bTmp+48;
write(LCD,bTmp);{And finally: Write units digit}
end; {of procedure}

procedure GetTture(var bGTHi,bGTlo:byte);
begin
write(i2c,start);
write(i2c,159);
delay(80);         {minimal delay: 80 ms}
read(i2c,bGTHi,bGTLo);
write(i2c,stop);
end;

begin
write(LCD,255); {clears LCD}
settime(0,0,0,0);
repeat
GetTture(bHi,bLo);
{Here begins code to interpret bHi, bLo as
 10 bit 2s complement...
 If the number is positive, the contents of bHi
 and bLo arrive at the "write" statements unchanged.
 If the number is negative, the contents of bHi and
 bLo are concerted to the positive equivalent. E.g.,
 if the temperature is -12.25, then by the time the
 "write" statement is reached, bHi holds 12, and bLo
 holds just what was in the 2 MS bits of bLo. (e.g.
 10xx xxxx will have become 0000 0010}
gotoxy(0,0);
write(LCD,"+");{provisionally}
bLo:=bLo DIV 64; {shift top two bits to right-hand end}
if bHi>127 then begin {number is negative}
  gotoxy(0,0);
  write(LCD,"-");
  bHi:=bHi XOR 255; {complement}
  bTmpG:=bLo;
  {following crude... but works! (I hope!)}
  bLo:=0;{to avoid begin..end with first if below}
  if bTmpG=0 then inc(bHi);{bLo can stay zero}
  if bTmpG=1 then bLo:=3;{no need to inc(bHi)}
  if bTmpG=2 then bLo:=2;{no need to inc(bHi)}
  if bTmpG=3 then bLo:=1;{no need to inc(bHi)}
  end;
NumToLCD(bHi);
if bLo=0 then write(LCD,".00 degrees C");
if bLo=1 then write(LCD,".25 degrees C");
if bLo=2 then write(LCD,".50 degrees C");
if bLo=3 then write(LCD,".75 degrees C");
if bLo>3 then write(LCD,"ERROR IN TTure CODE!");
delay(100);
until 4=5;
end.

Ad from page's editor: Yes.. I do enjoy compiling these things for you... hope they are helpful. However.. this doesn't pay my bills!!! If you find this stuff useful, (and you run an MS-DOS or Windows pc) please visit my freeware and shareware page, download something, and circulate it for me? Links on your page to this page would also be appreciated!