Микроконтроллеры Процессоры, проекты, программирование

program Termo1;
const TEMP_RESOLUTION : byte = 12;
      home : byte = 5; // номер пина домашнего термометра
      street : byte = 2; // номер пина уличного термометра
var port_array: array[3] of Byte;
    temp_home : word;
    temp_street : word;
    temp1 : byte;
    temp2 : byte;
    i : byte;function mask(num: word): byte;   //преобразование в коды индикатора
begin
  case num of    //fgabpcde
     0 : result:= %10110111;
     1 : result:= %00010100;
     2 : result:= %01110011;
     3 : result:= %01110110;
     4 : result:= %11010100;
     5 : result:= %11100110;
     6 : result:= %11100111;
     7 : result:= %00110100;
     8 : result:= %11110111;
     9 : result:= %11110110;
   end; //case end
end;//~

procedure get_temp;           // чтение температуры из термометра

begin
    Ow_Reset(GPIO,home);            		  // сброс шины
    Ow_Write(GPIO,home,$CC);       // команда SKIP_ROM
    Ow_Write(GPIO,home,$44);       // команда CONVERT_T
 
    Ow_Reset(GPIO,street);            		  // сброс шины
    Ow_Write(GPIO,street,$CC);       // команда SKIP_ROM
    Ow_Write(GPIO,street,$44);       // команда CONVERT_T
 
    Delay_ms(600);                        // задержка на время преобразования
 
    Ow_Reset(GPIO,home);                 // сброс шины
    Ow_Write(GPIO,home,$CC);       // команда SKIP_ROM
    Ow_Write(GPIO,home,$BE);       // команда READ_SCRATCHPAD
    temp1 := Ow_Read(GPIO,home);         // чтение первого байта
    temp2 := Ow_Read(GPIO,home);         // чтение второго байта
    temp_home := temp1;                        // преобразование в слово
    temp_home := (temp2 shl 8) + temp_home;
 
    Ow_Reset(GPIO,street);                 // сброс шины
    Ow_Write(GPIO,street,$CC);       // команда SKIP_ROM
    Ow_Write(GPIO,street,$BE);       // команда READ_SCRATCHPAD
    temp1 := Ow_Read(GPIO,street);         // чтение первого байта
    temp2 := Ow_Read(GPIO,street);         // чтение второго байта
    temp_street := temp1;                        // преобразование в слово
    temp_street:= (temp2 shl 8) + temp_street;
 end;

procedure Calc_Temperature(temp2write: Word;str: Boolean);// преобразование температуры
const RES_SHIFT : byte = 4;
var temp_whole : byte;
    temp_fraction : Word;
    dig : Word;
    dig1 : byte;
begin
  port_array[0]:=0;
  if (temp2write and $8000) = 0x8000 then
  begin
     temp2write := not temp2write + 1;
     port_array[0]:=8;
  end;
  temp_whole := temp2write shr RES_SHIFT ;
  dig:=(temp_whole/10) mod 10;
  port_array[0] := port_array[0] + mask(dig);
  dig:=temp_whole mod 10;
  port_array[1] := mask(dig)+8;
  temp_fraction  := temp2write shl (4-RES_SHIFT);
  temp_fraction  := temp_fraction and $000F;
  temp_fraction := temp_fraction * 625;
  dig:=temp_fraction/1000;
  port_array[2] := mask(dig);
  if str then port_array[2]:=port_array[2]+8;
end; //~
procedure show_temp;          // отображение температуры
var digit_show : byte;
    dig_buf : byte;
begin
for digit_show:=0 to 2 do
    begin
      dig_buf := port_array[digit_show];  // запись в буфер отображения
      for i:=1 to 8 do
        begin
          if testbit(dig_buf,0) then setbit(GPIO,0) else clearbit(GPIO,0);
          setbit(GPIO,1);            // включить тактовую линию
          dig_buf:=dig_buf shr 1;  // сдвиг символа в буфере отображения
          clearbit(GPIO,1);        // отключить тактовую линию
          Delay_ms(75);            // задержка для красоты
        end;
    end;
end;
begin
GPIO:=0;
CMCON:=7;
TRISIO := %00001000;
  while TRUE do                   // основной цикл
  begin
    setbit(GPIO,4);
    Delay_ms(10);
    get_temp;              // чтение домашней температуры
    clearbit(GPIO,4);
    Calc_Temperature(temp_home,0);       // преобразование температуры
    show_temp;                   // индикация температуры
    Delay_ms(5000);
    Calc_Temperature(temp_street,1);       // преобразование температуры
    show_temp;                   // индикация температуры
    Delay_ms(5000);
  end;
end.