Добавлено: 18 мар 2011, 12:45
каким образом считывать prevHardCounter ?Михаил Поляков писал(а):hardCounter - текущее значение data = UpdateData_LIR
prevHardCounter - предыдущее значение data
Официальный форум ОАО "СКБИС"
https://forum.skbis.ru/
каким образом считывать prevHardCounter ?Михаил Поляков писал(а):hardCounter - текущее значение data = UpdateData_LIR
prevHardCounter - предыдущее значение data
Код: Выделить всё
var
// Глобальные переменные
relativeCounter, prevHardCounterX, d, ReferentPoint:Integer;
const
MaxCounter=16777216; // = 1 shl 24 = 2^24
procedure TForm1.Timer1Timer(Sender: TObject);
var
StateByte, Ident : Byte;
hardCounterX, d,:Integer;
hardCounterX:= UpdateData_LIR (hFile, 2, ident, statebyte);
d:= hardCounterX - prevHardCounterX;
prevHardCounterX:= hardCounterX
if Abs(d) > (MaxCounter/2) then d:=d-sign(d)*MaxCounter;
RelativeCounter = RelativeCounter + d; // программно-аппаратный знаковый счетчик
if Ident=2 then begin
ReferentPoint = RelativeCounter; // координата референтной метки
end;
dLabel.Caption:=inttostr(RelativeCounter);
end;