Показано с 1 по 2 из 2

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

  1. #1

    По умолчанию как программно обнулить си-30

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

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

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

    Access violation address 00000000. Read of address 00000000.

  2. #2

    По умолчанию

    решение найдено:

    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

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •