Exemplo n.º 1
0
time2   ReadTimeDateP_Short(void)
{
  QueryOpenP();

  if (ElsInput(1) != SER_GOODCHECK) return GetTime2Error();


  DelayOff();
  QueryModeP();

  if (ElsInput(0) != SER_GOODCHECK) return GetTime2Error();


  DelayOff();
  QueryPasswordP();

  if (ElsInput(2) != SER_GOODCHECK) return GetTime2Error();


  DelayOff();
  QueryTimeP();

  if (ElsInput(0) != SER_GOODCHECK) return GetTime2Error();


  QueryCloseP();

  return GetTime2(ReadTimeP(), true);
}
Exemplo n.º 2
0
bool    ReadTimeDateD_Short(void)
{
  DelayOff();
  QueryOpenD();

  if (ExtInput() != SER_GOODCHECK) return(0);


  DelayOff();
  QueryPasswordD();

  if (ExtInput() != SER_GOODCHECK) return(0);

  if (InBuff(2) != 0) return(0);


  DelayOff();
  QueryTimeD();

  if (ExtInput() != SER_GOODCHECK) return(0);


  ReadTimeD();

  QueryCloseD(0);

  return(1);
}
Exemplo n.º 3
0
// чтение вснй накопленной энергии для счётчиков ABB Альфа
bool    ReadAllEnergyD(void)
{
uchar   i;

  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryEnergyD();

    if (ExtInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(75);

  ibMinor = 0;
  ReadEnergyD();


  while (ibMinor < GetEnergyBlocksD())
  {
    for (i=0; i<bMINORREPEATS; i++)
    {
      DelayOff();
      QueryContinueD();

      if (ExtInput() == SER_GOODCHECK) break;
      if (fKey == true) return(0);
    }

    if (i == bMINORREPEATS) return(0);
    ShowPercent(76 + ibMinor);

    ReadEnergyD();
  }


  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryStopD();

    if (ExtInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(100);

  ReadQuadrantsD();


  return(1);
}
Exemplo n.º 4
0
// чтение коэффициентов для счётчика Меркурий-230
bool    ReadKoeffDeviceB_Special(void)
{
uchar   i;

  if (QueryOpenB_Full(25) == 0) return(0);


  for (i=0; i<bMINORREPEATS; i++)
  {
    InitPush(0);
    PushChar(diCurr.bAddress);
    PushChar(8);
    PushChar(2);                        // чтение коэффициентов

    DelayOff();
    QueryIO(1+4+2, 2+1+2);

    if (Input() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(50);


 // K трансформации
  dbKtrans = (InBuff(1)*0x100 + InBuff(2)) * (InBuff(3)*0x100 + InBuff(4));

  // K преобразования
  dbKpulse = 2000;

  return(1);
}
Exemplo n.º 5
0
bool    AutomaticP(void)
{
  Clear();
  if (OpenDeviceP() == 0) return(0);


  uchar i;
  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryTransP();

    if (ElsInput(0) == SER_GOODCHECK) break;
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(50);

  ReadTransP();                         // K трансформации
  QueryCloseP();


  dbKpulse = 5000;                      // K преобразования
  SetCanalsAll();

  return(1);
}
Exemplo n.º 6
0
double2 ReadTrans31_Full(void)
{
  if (QueryOpen31_Full(25) == false) return GetDouble2Error();


  uchar r;
  for (r=0; r<MaxRepeats(); r++)
  {
    DelayOff();
    QueryTrans31();

    if (Input31() == SER_GOODCHECK) break;
    if (fKey == true) return GetDouble2Error();
  }

  if (r == MaxRepeats()) return GetDouble2Error();
  ShowPercent(50);


  InitPop(3+4+4+1);

  double dbTransU = PopDouble31();
  double dbTransI = PopDouble31();

  return GetDouble2(dbTransU*dbTransI, true);
}
Exemplo n.º 7
0
time2   ReadTimeDateB_Short(void)
{
  DelayOff();
  QueryOpenB();

  if (Input() != SER_GOODCHECK) return GetTime2Error();


  DelayOff();
  QueryTimeB();

  if (Input() != SER_GOODCHECK) return GetTime2Error();


  return GetTime2(ReadTimeB(), true);
}
Exemplo n.º 8
0
// открытие канала для счётчиков Elster A1140
bool    OpenDeviceP(void)
{
uchar   i;

  for (i=0; i<bMINORREPEATS; i++)
  {
    QueryOpenP();

    if (ElsInput(1) == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(20);


  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryModeP();

    if (ElsInput(0) == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(30);


  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryPasswordP();

    if (ElsInput(2) == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(40);


  return(1);
}
Exemplo n.º 9
0
time2   ReadTimeDateC_Short(void)
{
  DelayOff();
  QueryTimeC();

  if (RevInput() != SER_GOODCHECK) return GetTime2Error();


  return GetTime2(ReadTimeC(), true);
}
Exemplo n.º 10
0
bool    ReadKoeffDeviceG(void)
{
uchar   i;

  for (i=0; i<bMINORREPEATS; i++)
  {
    QueryOpenG();

    if (CodInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);

  if (ReadOpenG() == 0) return(0);


  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    InitPushCod();

    PushChar(0x7E);
    PushChar(0x03);
    PushChar(0x06);

    PushCharCod(0x03);
    PushCharCod(0x00);
    PushCharCod(0x00);

    CodQueryIO(3+25+1, 3+3+1);

    if (CodInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(50);


  InitPop(3);
  for (i=0; i<9; i++) PopChar();

  if (ExtVersionCod()) PopRealExt_G(); else PopRealBCD_G();
  dbKtrans = reBuffA;

  if (ExtVersionCod()) PopRealExt_G(); else PopRealBCD_G();
  dbKtrans *= reBuffA;                  // K трансформации

  reBuffA = 10000;                      // K преобразования

  return(1);
}
Exemplo n.º 11
0
bool    ReadTimeDateZ_Short(void)
{
  DelayOff();
  QueryTimeZ();

  if (ZetInput() != SER_GOODCHECK) return(0);


  ReadTimeAltZ();

  return(1);
}
Exemplo n.º 12
0
bool    ReadTimeDateT_Short(void)
{
  DelayOff();
  QueryTimeT();

  if (TxtInput() != SER_GOODCHECK) return(0);


  ReadTimeAltT();

  return(1);
}
Exemplo n.º 13
0
bool    ReadModemQuality(void)
{
  uchar i;
  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryModemBaud(0);

    if (ModInputOK(1) == 1) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) ;

  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryModemCommon(0);

    if (ModInputOK(1) == 1) break;
    if (fKey == true) return(0);
    sprintf(szLo+15, "%1u", i+1);
  }

  if (i == bMINORREPEATS) return(0);

  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryModemQuality();

    if (ModQualityOK(1) == 1) break;
    if (fKey == true) return(0);
    sprintf(szLo+15, "%1u", i+1);
  }

  return(1);
}
Exemplo n.º 14
0
// открытие канала для счётчиков ABB Альфа
bool    OpenDeviceD(void)
{
uchar   i;

  for (i=0; i<bMAJORREPEATS; i++)
  {
    ShowPercent(i);

    DelayOff();
    QueryOpenD();

    if (ExtInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMAJORREPEATS) return(0);
  ShowPercent(48);


  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryPasswordD();

    if (ExtInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(49);

  if (InBuff(2) != 0) return(0);
  ShowPercent(50);


  return(1);
}
Exemplo n.º 15
0
time2   QueryTimeC_Full(void)
{
  uchar i;
  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryTimeC();

    if (RevInput() == SER_GOODCHECK) break;
    if (fKey == true) return GetTime2Error();
  }

  if (i == bMINORREPEATS) return GetTime2Error();

  return GetTime2(ReadTimeC(), true);
}
Exemplo n.º 16
0
time2   QueryTimeS_Full(uchar  bPercent)
{
  uchar i;
  for (i=0; i<MaxRepeats(); i++)
  {
    DelayOff();
    QueryTimeS();

    if (InputS() == SER_GOODCHECK) break;
    if (fKey == true) return GetTime2Error();
  }

  if (i == MaxRepeats()) return GetTime2Error();
  ShowPercent(bPercent);

  return GetTime2(ReadTimeS(), true);
}
Exemplo n.º 17
0
ulong2  ReadSerialCanC(uchar  ibCan)
{
  uchar r;
  for (r=0; r<MaxRepeats(); r++)
  {
    DelayOff();
    QueryOpenC();

    if (RevInput() == SER_GOODCHECK) break;
    if (fKey == true) return GetLong2Error();
  }

  if (r == MaxRepeats()) return GetLong2Error();
  ShowPercent(25);

  return QuerySerialC_Full(ibCan);
}
Exemplo n.º 18
0
time2   QueryTime31_Full(uchar  bPercent)
{
  uchar r;
  for (r=0; r<MaxRepeats(); r++)
  {
    DelayOff();
    QueryTime31();

    if (Input31() == SER_GOODCHECK) break;
    if (fKey == true) return GetTime2Error();
  }

  if (r == MaxRepeats()) return GetTime2Error();
  ShowPercent(bPercent);

  return GetTime2(ReadTime31(), true);
}
Exemplo n.º 19
0
bool    QueryEventA_Full(uchar  ibEvent, uchar  j, uchar  bPercent)
{
  uchar i;
  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryEventA(ibEvent,j);

    if (Input() == SER_GOODCHECK) break;  
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(bPercent+j);

  return(1);
}
Exemplo n.º 20
0
// задание параметров для счётчиков СС-301
bool    AutomaticC(void)
{
  if (ReadKoeffDeviceC() == 0) return(0);


  SetCanalsAll();                       // сохранение К преобразования и К трасформации

  DelayOff();
  QueryEnergyAbsC();                    // чтение накопленной энергии

  if (RevInput() != SER_GOODCHECK) return(0);
  ShowPercent(100);
/*
  ReadEnergyC();
  SetEnergyAll();                       // сохранение показаний счётчиков
*/
  return(1);
}
Exemplo n.º 21
0
bool    QueryConfigS_Full(uchar  bPercent)
{
  uchar i;
  for (i=0; i<MaxRepeats(); i++)
  {
    DelayOff();
    QueryConfigS();

    if (InputS() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == MaxRepeats()) return(0);
  ShowPercent(bPercent);

  ReadConfigS();
  return(1);
}
Exemplo n.º 22
0
bool    QueryEngMonS_Full(uchar  bTime, uchar  bPercent)
{
  uchar i;
  for (i=0; i<MaxRepeats(); i++)
  {
    DelayOff();
    QueryEngMonS(bTime);

    if (InputS() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == MaxRepeats()) return(0);
  ShowPercent(bPercent);

  ReadEnergyS();
  return(1);
}
Exemplo n.º 23
0
bool    ReadTimeDateH_Short(void)
{
  QueryOpenH();

  if (CodInput() != SER_GOODCHECK) return(0);

  if (ReadOpenH() == 0) return(0);


  DelayOff();
  QueryTimeH();

  if (CodInput() != SER_GOODCHECK) return(0);


  ReadTimeAltH();

  return(1);
}
Exemplo n.º 24
0
bool    QueryEngAbs31_Full(uchar  bPercent)
{
  uchar r;
  for (r=0; r<MaxRepeats(); r++)
  {
    DelayOff();
    QueryEngAbs31();

    if (Input31() == SER_GOODCHECK) break;
    if (fKey == true) return false;
  }

  if (r == MaxRepeats()) return false;
  ShowPercent(bPercent);

  ReadEng31();

  return true;
}
Exemplo n.º 25
0
bool    ReadKoeffDeviceP(void)
{
uchar   i;

  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryRegisterP();

    if (ElsInput(0) != SER_GOODCHECK) continue; else break;
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(60);

  ReadRegisterP();

  return(1);
}
Exemplo n.º 26
0
bool    QueryEnergyAbsC_Full2(uchar  bPercent)
{
  uchar i;
  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryEnergyAbsC();

    if (RevInput() == SER_GOODCHECK) break;
    if (fKey == true) return false;

    if (QueryIdC_Full() == 0) return false;
  }

  if (i == bMINORREPEATS) return false;
  ShowPercent(bPercent);

  ReadEnergyC();
  return(1);
}
Exemplo n.º 27
0
bool    QueryIdC_Full(void)
{
  uchar i;
  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryIdC();

    if ((RevInput() == SER_GOODCHECK) && (ReadIdC() == 1)) break;
    if (fKey == true) return false;

    ShowLo(szFailure20); Delay(1000);
    mpcwFailure2[ibDig]++;
  }

  Clear();
  if (i == bMINORREPEATS) return false;

  return(1);
}
Exemplo n.º 28
0
bool    QueryOpen31_Full(uchar  bPercent)
{
  Clear();

  uchar r;
  for (r=0; r<MaxRepeats(); r++)
  {
    DelayOff();
    QueryOpen31();

    if (Input31() == SER_GOODCHECK) break;
    if (fKey == true) return false;
  }

  if (r == MaxRepeats()) return false;
  ShowPercent(bPercent);

  if (ReadOpen31() == false) return false;

  return true;
}
Exemplo n.º 29
0
// задание параметров для счётчиков ABB Альфа
bool    AutomaticD(void)
{
uchar   i;

  if (OpenDeviceD() == 0) return(0);


  for (i=0; i<bMINORREPEATS; i++)
  {
    DelayOff();
    QueryConfigD();

    if (ExtInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(51);

  if (InBuff(2) != 0) return(0);
  ShowPercent(52);

  ReadConfigD();


  if (ReadAllEnergyD() == 0) return(0);

  QueryCloseD(0);


  MakeEnergyD();

  SetCanReal(mpreCount,ibDig);

  return(1);
}
Exemplo n.º 30
0
// задание параметров для сумматора СЭМ-2
bool    AutomaticE(void)
{
uchar   i;

  if (OpenDeviceE() == 0) return(0);


  for (i=0; i<bMINORREPEATS; i++)
  {
    InitPush(0);
    PushChar(0x1B);
    PushChar('w');

    Query(300+1, 2, 1);

    if (EscInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(75);


  InitPop((uint)132 + diCurr.ibLine*3);// K трансформации
  PopRealBCD();

  dbKtrans = reBuffA;


  InitPop((uint)180 + diCurr.ibLine*3); // K преобразования
  PopRealBCD();

  SetCanalsAll();                        // сохранение К преобразования и К трасформации


  DelayOff();

  for (i=0; i<bMINORREPEATS; i++)       // чтение накопленной энергии
  {
    InitPush(0);
    PushChar(0x1B);
    PushChar('S');

    Query(64+1, 2, 1);

    if (EscInput() == SER_GOODCHECK) break;
    if (fKey == true) return(0);
  }

  if (i == bMINORREPEATS) return(0);
  ShowPercent(100);


  InitPop(diCurr.ibLine*4);

  coFloat.mpbBuff[0] = PopChar();
  coFloat.mpbBuff[1] = PopChar();
  coFloat.mpbBuff[2] = PopChar();
  coFloat.mpbBuff[3] = PopChar();

  ToReal();
  SetCanReal(mpreCount,ibDig);            // сохранение показаний счётчиков


  return(1);
}