суббота, 30 января 2016 г.

И о замене Lcd_Out (MikroPascal)

Обещанный код для замены:

// Lcd_Out_N – замена штатной процедуры Lcd_Out библиотеки Lcd
// row - номер строки
// column - номер позиции в строке
// msg - строка как символьный массив [0..255]
// max_len - максимальная длина строки (для формата 0..x, т.е. для string[4] будет не 5, а 4
procedure Lcd_Out_N(row,column:byte; msg:^byte; max_len:byte);
var
 i : byte;
begin
 i := 0;
 while (msg^ <> 0) and (i < max_len) do
 begin
  if i = 0 then Lcd_Chr(row,column+i,msg^) else Lcd_Chr_CP(msg^);
  inc(msg);
  inc(i);
 end;
end;

// Lcd_Out_NC – замена штатной процедуры Lcd_Out библиотеки Lcd для констант
// row - номер строки
// column - номер позиции в строке
// msg - строка как символьный массив [0..255]
// max_len - максимальная длина строки (для формата 0..x, т.е. для string[4] будет не 5, а 4
procedure Lcd_Out_NC(row,column:byte; const msg:^byte; max_len:byte);
var
 i : byte;
begin
 i := 0;
 while (msg^ <> 0) and (i < max_len) do
 begin
  if i = 0 then Lcd_Chr(row,column+i,msg^) else Lcd_Chr_CP(msg^);
  inc(msg);
  inc(i);
 end;
end;

Комментариев нет:

Отправить комментарий

Ваш комментарий откроется после проверки и подтверждения.
Благодарю за понимание необходимости проверки!