pcom.cpp

公路站超载检测系统上位机软件系统源程序!

             ret=sio_putch (com1,0xAA);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Chk);
            }
            while(ret!=1);
         }
         else
         if(Kenn2 ==0x11 )                //修改
          {
          if (changPkt==true)
          {
                       //不改模拟值
          }
          else
          {
           if(rewritPkt==true && ParForm->A1->Text!="")
           KalAnalog[0]=StrToInt(ParForm->A1->Text);
           else
           KalAnalog[0]=493;

           if(rewritPkt==true && ParForm->A2->Text!="")
           KalAnalog[1]=StrToInt(ParForm->A2->Text);
           else
           KalAnalog[1]=986;

           if(rewritPkt==true && ParForm->A3->Text!="")
           KalAnalog[2]=StrToInt(ParForm->A3->Text);
           else
           KalAnalog[2]=1479;

           if(rewritPkt==true && ParForm->A4->Text!="")
           KalAnalog[3]=StrToInt(ParForm->A4->Text);
           else
           KalAnalog[3]=1972;

           if(rewritPkt==true && ParForm->A5->Text!="")
           KalAnalog[4]=StrToInt(ParForm->A5->Text);
           else
           KalAnalog[4]=2465;

           if(rewritPkt==true && ParForm->A6->Text!="")
           KalAnalog[5]=StrToInt(ParForm->A6->Text);
           else
           KalAnalog[5]=3698;

           if(rewritPkt==true && ParForm->A7->Text!="")
           KalAnalog[6]=StrToInt(ParForm->A7->Text);
           else
           KalAnalog[6]=6163;

           if(rewritPkt==true && ParForm->A8->Text!="")
           KalAnalog[7]=StrToInt(ParForm->A8->Text);
           else
           KalAnalog[7]=7395;

           if(rewritPkt==true && ParForm->A9->Text!="")
           KalAnalog[8]=StrToInt(ParForm->A9->Text);
           else
           KalAnalog[8]=9860;

           if(rewritPkt==true && ParForm->A10->Text!="")
           KalAnalog[9]=StrToInt(ParForm->A10->Text);
           else
           KalAnalog[9]=12325;
          }//
           if (changPkt==true)
           {
            KalPunkte[ParForm->ListBox2->ItemIndex]=StrToInt(ParForm->Edit4->Text); //改变校准点
           }
           else
           {
           if (rewritPkt==true && ParForm->P1->Text!="")
           KalPunkte[0]=StrToInt(ParForm->P1->Text);
           else
           KalPunkte[0]=1000;

           if (rewritPkt==true && ParForm->P2->Text!="")
           KalPunkte[1]=StrToInt(ParForm->P2->Text);
           else
           KalPunkte[1]=2000;

           if (rewritPkt==true && ParForm->P3->Text!="")
           KalPunkte[2]=StrToInt(ParForm->P3->Text);
           else
           KalPunkte[2]=3000;

           if (rewritPkt==true && ParForm->P4->Text!="")
           KalPunkte[3]=StrToInt(ParForm->P4->Text);
           else
           KalPunkte[3]=4000;

           if (rewritPkt==true && ParForm->P5->Text!="")
           KalPunkte[4]=StrToInt(ParForm->P5->Text);
           else
           KalPunkte[4]=5000;

           if (rewritPkt==true && ParForm->P6->Text!="")
           KalPunkte[5]=StrToInt(ParForm->P6->Text);
           else
           KalPunkte[5]=7500;

           if (rewritPkt==true && ParForm->P7->Text!="")
           KalPunkte[6]=StrToInt(ParForm->P7->Text);
           else
           KalPunkte[6]=10000;

           if (rewritPkt==true && ParForm->P8->Text!="")
           KalPunkte[7]=StrToInt(ParForm->P8->Text);
           else
           KalPunkte[7]=15000;

           if (rewritPkt==true && ParForm->P9->Text!="")
           KalPunkte[8]=StrToInt(ParForm->P9->Text);
           else
           KalPunkte[8]=20000;

           if (rewritPkt==true && ParForm->P10->Text!="")
           KalPunkte[9]=StrToInt(ParForm->P10->Text);
           else
           KalPunkte[9]=25000;
           }

           Chk = Byte( -( 0x55 + Kenn1 + Kenn2 + 0x28 + 0xAA ));
           do
           {
             ret=sio_putch (com1,0x55);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn1);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0x28);
            }
            while(ret!=1);
           for(I=0;I<10;I++)
           {
            Chk=Byte(Chk -( KalAnalog[I]/256 ));
            do
            {
             ret=sio_putch (com1,KalAnalog[I]/256);
            }
            while(ret!=1);
            Chk=Byte(Chk-( KalAnalog[I]%256 ));
            do
             {
             ret=sio_putch (com1,KalAnalog[I]%256);
             }
             while(ret!=1);
            }

            for(I=0;I<10;I++)
            {
             Chk=Byte(Chk-(KalPunkte[I]/256 ));
             do
             {
              ret=sio_putch (com1,KalPunkte[I]/256 );
             }
              while(ret!=1);
             Chk = Byte(Chk-( KalPunkte[I]%256 ));
             do
             {
              ret=sio_putch (com1,KalPunkte[I]%256 );
              }
              while(ret!=1);
            }

            do
            {
             ret=sio_putch(com1,0xAA);
            }
            while(ret!=1);
            do
            {
             ret=sio_putch (com1,Chk);
            }
            while(ret!=1);
          }
          break;
     case KalPkt_T :
          Chk=Byte(-(0x55 + Kenn1 + Tel_Einmal + 0x01 + Kenn2 + 0xAA ));
           do
           {
             ret=sio_putch (com1,0x55);
            }
           while(ret!=1);
           do
           {
             ret=sio_putch (com1,Kenn1);
            }
           while(ret!=1);
           do{
             ret=sio_putch (com1,Tel_Einmal);
            }
           while(ret!=1);
           do
           {
             ret=sio_putch (com1,0x01);
            }
           while(ret!=1);
           do{
             ret=sio_putch (com1,Kenn2);
            }
           while(ret!=1);
           do
           {
             ret=sio_putch (com1,0xAA);
            }
           while(ret!=1);
           do
           {
             ret=sio_putch (com1,Chk);
            }
           while(ret!=1);

          break;

     case Param_T :                       //系统参数
        if(Kenn2==0x01 )
        {
          // KalDat_OK =false;
           Chk =Byte(-(0x55+Kenn1+Kenn2+0xAA));
           do
           {
             ret=sio_putch (com1,0x55);
           }
            while(ret!=1);

           do
            {
             ret=sio_putch (com1,Kenn1);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0x00);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0xAA);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Chk);
            }
            while(ret!=1);
         }
         else
         if(Kenn2 ==0x11 ) //更改参数
          { 
           Chk = Byte( -( 0x55 + Kenn1 + Kenn2 + 0x32 + 0xAA ));
           do
           {
             ret=sio_putch (com1,0x55);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn1);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0x32);
            }
            while(ret!=1);
           

           for(I=0;I<25;I++)
           {
            Sleep(10);
            Chk=Byte(Chk -( SysParameter[I]/256 ));
            do
            {
             ret=sio_putch (com1,SysParameter[I]/256);
            }
            while(ret!=1);
            Chk=Byte(Chk-( SysParameter[I]%256 ));
            do
             {
             ret=sio_putch (com1,SysParameter[I]%256);
             }
             while(ret!=1);
            }

            do
            {
             ret=sio_putch(com1,0xAA);
            }
            while(ret!=1);
            do
            {
             ret=sio_putch (com1,Chk);
            }
            while(ret!=1);
          }
          break;

      case CLW_P_T :                       //系统参数
        if(Kenn2==0x01 )
        {
          // KalDat_OK =false;
           Chk =Byte(-(0x55+Kenn1+Kenn2+0xAA));
           do
           {
             ret=sio_putch (com1,0x55);
           }
            while(ret!=1);

           do
            {
             ret=sio_putch (com1,Kenn1);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0x00);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0xAA);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Chk);
            }
            while(ret!=1);
         }
         else
         if(Kenn2 ==0x11 ) //更改参数
          {
           Chk = Byte( -( 0x55 + Kenn1 + Kenn2 + 0x18 + 0xAA ));
           do
           {
             ret=sio_putch (com1,0x55);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn1);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);

           do
           {
             ret=sio_putch (com1,0x18);
            }
           while(ret!=1);

           for(I=0;I<12;I++)
           {
            Chk=Byte(Chk -( SysFactor[I]/256 ));
            do
            {
             ret=sio_putch (com1,SysFactor[I]/256);
            }
            while(ret!=1);
            Chk=Byte(Chk-( SysFactor[I]%256 ));
            do
             {
             ret=sio_putch (com1,SysFactor[I]%256);
             }
             while(ret!=1);
            }

            do
            {
             ret=sio_putch(com1,0xAA);
            }
            while(ret!=1);
            do
            {
             ret=sio_putch (com1,Chk);
            }
            while(ret!=1);
          }
          break;


      case  Digout_T :
            Chk = Byte( -(0x55 + Kenn1 + Kenn2 +0x02 +0xAA ));
            do
            {
             ret=sio_putch (com1,0x55);
            }
            while(ret!=1);
            do
            {
             ret=sio_putch (com1,Kenn1);
            }
           while(ret!=1);
            do
            {
             ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);
             do
             {
             ret=sio_putch (com1,0x02);
            }
           while(ret!=1);
            do
            {
             ret=sio_putch (com1,DigOutByte);
            }
           while(ret!=1);
           Chk=Byte(Chk-DigOutByte);
            do
            {
             ret=sio_putch (com1,DigOutByte2);
            }
           while(ret!=1);
           Chk=Byte(Chk-DigOutByte2);
            do
            {
             ret=sio_putch (com1,0xAA);
            }
           while(ret!=1);
            do
            {
             ret=sio_putch (com1,Chk);
            }
           while(ret!=1);

           break;

          case Cominit_T:
            Chk=Byte(-(0x55 + Kenn1 + Kenn2 + 0x04 +0xAA ));
             do
             {
             ret=sio_putch (com1,0x55);
            }
             while(ret!=1);
              do
              {
             ret=sio_putch (com1,Kenn1);
            }
            while(ret!=1);
            do
            {
            ret=sio_putch (com1,Kenn2);
            }
            while(ret!=1);