PDA

Просмотр полной версии : как программно обнулить си-30



vligm
04.08.2010, 11:44
Какой командой из состава библиоеки owen_io.dll можно выполнить сброс счетчика импульсов СИ-30?
Пробовал -

WriteByte(16,0,'rStC',1,-1);
WriteWord(16,0,'rStC',1,-1);

выдает ошибку:

Access violation address 00000000. Read of address 00000000.

vligm
24.01.2012, 13:50
решение найдено:

procedure ResetCounters;
var
us0:array [0..3] of char;
i:integer;
begin
//сброс СИ-30 (счетчик, уставки)
Owen_WriteByte(16,0,'rStC',1,-1);//сброс счетчика
us0[0]:=#0;
us0[1]:=#0;
us0[2]:=#0;
us0[3]:=#0;
p_sz:=4;
Owen_OwenIO(16,0,0,'U1',us0,p_sz);//сброс уставки 1
Owen_OwenIO(16,0,0,'U2',us0,p_sz);//сброс уставки 2
//сброс счетчиков МВ110-8ДФ
for i := 1 to 8 do
Owen_WriteWord(48+(i-1),0,'r.Cou',0,-1);
//сброс счетчика аппаратных ошибок
for i := 0 to 4 do
ErrRS485[i]:=0;
end;// procedure ResetCounters