ct0322.c

在以前公司DOS环境下

#include<io.h>
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<conio.h>
#include<graph.h>
#include<time.h>
#include<dos.h>
#include<fcntl.h>
#include<malloc.h>
#include<share.h>
#include<math.h>

#include "svgacc.h"      
#include "pcl4c.h"


char RxBuffer[1024+16];
char TxBuffer[512+16];

int ErrorCheck(int);
int bcccheck(char *str);

#define TRUE 1
#define FALSE 0

#define STX 2
#define ETX 3
#define EOT 4
#define ENQ 5
#define ACK 6
#define BS  8
#define NAK 21

#define ESC 27
#define BACKSPACE 8
#define ENTER 13
#define kbF1 187
#define kbF2 188
#define kbF3 189
#define kbF4 190
#define kbF5 191
#define kbF6 192
#define kbF7 193
#define kbF8 194
#define kbF9 195

#define kbUp 200
#define kbDn 208
#define kbPgUp 201
#define kbPgDn 209
#define kbEND 207
#define kbHOME 199
#define kbINS 210
#define kbDEL 211

#define BLACK 0
#define lBLUE 1
#define lGREEN 2
#define lCYAN 3
#define lRED 4
#define lPINK 5
#define lYELLOW 6
#define lWHITE 7
#define GRAY 8
#define BLUE 9
#define GREEN 10
#define CYAN 11
#define RED 12
#define PINK 13
#define YELLOW 14
#define WHITE 15

static int ispeed,lmtspeed,badnumber;
static long setnumber,prdnumber,totallength,leftnumber;
static int setlength,cutlength,cuterror;

static int oldspeed,autoct,leftct;
static long oldprdnumber;

static char newtimebuf[8],oldtimebuf[8];

static char order[300][70];
static int irec,maxrec;

static char ASC16[4096];
static int xorder[7]={74,117,171,552,595,638,750};
static int xnorder[7]={115,169,550,593,636,748,791};
static char buffer[80],tmpbuf[80],buf1[80],tmp1[20],readbuf[2];
static char currentorder[70],oldorder[70],buf2[80],buf3[80],buf4[80];
static int tmcount,FirstChangeOk,rcvcount,tmcounter,orderok;
static char rcvbuf[80];
static long DAT;
static char rcvchar,autook;
static int oirec,omaxrec;
static char ibuf1[150],ibuf2[150],ibuf3[150];

static int Port;
static int iCOM;
static double dCIR,dANG,dSYN,dMAX,dRAT,dACC;

int maxpredrec(void);
void lmtspeedinit(void);
int drwhzstr(char *s,int x,int y,int m,int n,int col,int mode);
void drwstr(char *s,int x,int y,int m,int n,int col,int mode);
int getkey(void);
int readstr(int x,int y,int maxlen,char *str);
int msgbox(char *msg,int ikey,int hzok);
int inputorder(char *str);
void disporder(int loc,char *str,int icolor,int fcolor);
void appendorder(char *str);
void dispallorder(int startrec,int endrec);
void showtime(void);
void changeorder(void);
void saveorder(void);
void uploadorder(void);
void broworder(void);
void exchangeorder(int i,int j);
void historybrow(void);
void dispbadnumber(void);
void dispspeed(void);
void dispprdnumber(void);
void displeftnumber(void);
int sendorderok(int tmplen,long tmpnumber);
void waitbox(char *msg,int ikey,int hzok);
int bccstr(char *str);
int lmtspeedcal(int ilen);
void scandata(int istart,int iend);
void initdata(void);
int scanbuf(int istart,char *istr);


int main(void)
{  int ok,ikeycode,i,k;
   char *buf;
   FILE *fpASC,*fpp;
   char far *Ptr;
   int  Seg;
   int sendok,maxtm;
   time_t tmstart,tmend;
   
   initdata();   
   lmtspeedinit();
   Port=iCOM;

   Ptr = (char far *)RxBuffer;
   Seg = FP_SEG(Ptr) + ((FP_OFF(Ptr)+15)>>4);
   ErrorCheck(SioRxBuf(Port,Seg,Size1024));

   Ptr = (char far *)TxBuffer;
   Seg = FP_SEG(Ptr) + ((FP_OFF(Ptr)+15)>>4);
   ErrorCheck( SioTxBuf(Port,Seg,Size512) );
   ErrorCheck( SioParms(Port,NoParity,OneStopBit,WordLength8) );
   ErrorCheck( SioReset(Port,Baud9600) );
   i = SioFIFO(Port,LEVEL_4TH);



   if((fpASC=fopen("asc16","rb"))==0)
     {printf("Error: ASC16 can't open.\n");
      return FALSE;
     }

   if(fgets(ASC16,4096,fpASC)==NULL)
     {printf("ERROR:ASC16 Read Error.\n");
      fclose(fpASC);
      return FALSE;
     }

   fclose(fpASC);

   setlength=935;
   setnumber=0L;
   lmtspeed=184;
   cutlength=0;
   cuterror=0;
   prdnumber=0L;
   ispeed=0;
   badnumber=0;
   oldspeed=0;
   oldprdnumber=0L;
   leftnumber=0L;
   rcvcount=0;
   maxtm=1500;
   autook=FALSE;

   FirstChangeOk=TRUE;
   omaxrec=0;
   irec=0;
   maxrec=0;
   tmcounter=0;

   buf=(char *)calloc(1,80);
  
   _strtime(oldtimebuf);

   whichvga();
   res800();

   strcpy(buf,"h.pcx");
   pcxput(SET,0,0,buf); 
   
   _strdate(buf);
   drwstr(buf,400,5,1,2,RED,SET);

   ok=TRUE;
   sendok=TRUE;
   orderok=FALSE;
   autoct=0;
   leftct=0;
   while(ok)
    {if((sendok) && (orderok))
      {buf3[0]='1';
       buf3[1]=ENTER;
       buf3[2]='\0';
       SioRTS(Port,'S');
       SioPuts(Port,buf3,2);
       SioEmpty(Port);
       SioRTS(Port,'C');
       sendok=FALSE;
       tmcounter=0;
       time(&tmstart);
      }

     if(kbhit())
        {ikeycode=getkey();
         switch(ikeycode)
          { case kbF1: /* Input */
             inputorder(buf);
             strupr(buf);
             appendorder(buf);
             dispallorder(irec,maxrec-1);
             break;
            case kbF2: /* Change */
             changeorder();
             dispallorder(irec,maxrec-1);
             drwfillcircle(SET,WHITE,30,50,20);  
             break;
            case kbF3: /* Save */
             saveorder();
             break;
            case kbF4: /* Brow */
             broworder();
             dispallorder(irec,maxrec-1);
             break;
            case kbF5: /* Upload */
             uploadorder();
             dispallorder(irec,maxrec-1);
             break;
            case kbF6: /* History */
             historybrow();
             dispallorder(irec,maxrec-1);
             break;
            case kbF7: /* Auto Order Exchange */
             autook=!autook;
             break; 
            case kbF8: /* Cancel Exchange */ 
             strcpy(buf2,"请确认是否需要取消换单？");
             i=msgbox(buf2,1,1);
             if((i=='y') || (i=='Y') || (i==ENTER))
              {strncpy(buf3,currentorder,70);
               appendorder(buf3);
           
               for(k=maxrec-1;k>irec;k--)
                 exchangeorder(k,k-1);
               
               strncpy(buf3,oldorder,70);
               appendorder(buf3);
           
               for(k=maxrec-1;k>irec;k--)
                 exchangeorder(k,k-1);
               
               changeorder();
               dispallorder(irec,maxrec-1);
             /*drwfillcircle(SET,WHITE,730,50,20);*/  
              }
              break;
             
            case '+':
             badnumber++;
             dispbadnumber();
             break;
            case '-':
             if(badnumber>0)
               {badnumber--;
                dispbadnumber();
               }
             break;
            case ESC:
             strcpy(buf2,"请确认退出系统？");
             i=msgbox(buf2,1,1);
             if((i=='y') || (i=='Y') || (i==ENTER))
              ok=FALSE;
             break;
          }
         tmcounter=maxtm;
         time(&tmstart);
        
        }
      
      showtime();
      dispspeed();
      dispprdnumber();

      rcvchar= (char)SioGetc(Port,0);
      if(rcvchar==STX)
       rcvcount=0;
      else if(rcvchar==ENTER)
        {rcvbuf[rcvcount]='\0';
         if(bcccheck(rcvbuf))
          {for(i=0;i<3;i++)
            buf3[i]=rcvbuf[i];
           buf3[3]='\0';
           ispeed=atoi(buf3);
           for(i=0;i<6;i++)
            buf3[i]=rcvbuf[3+i];
           buf3[6]='\0';
           prdnumber=atol(buf3);
           for(i=0;i<4;i++)
            buf3[i]=rcvbuf[9+i];
           buf3[4]='\0';
           cutlength=atoi(buf3);
           if(setlength != cutlength)
            {strcpy(buf2,"prddata.txt");
             if((fpp=fopen(buf2,"a+")) != NULL)
              {fwrite(currentorder,sizeof(char),70,fpp);
               buf2[0]='\0';
               _strdate(buf3);
               strcat(buf2,buf3);
              _strtime(buf3);
              strcat(buf2,buf3);
              sprintf(buf3,"%10ld%10ld%4d\n",prdnumber,leftnumber,badnumber);
              strcat(buf2,buf3);
              i=strlen(buf2);
              fwrite(buf2,sizeof(char),i,fpp);

              fclose(fpp);
             }
      
            setlength=cutlength;
            setnumber=0;
            lmtspeed=lmtspeedcal(setlength);

            prdnumber=0;
            badnumber=0;

            for(i=0;i<70;i++)
             {oldorder[i]=currentorder[i];
              currentorder[i]=' ';
             }
            sprintf(buf3,"%04d",cutlength);
            for(i=0;i<4;i++)
             currentorder[56+i]=buf3[i];

            oldorder[70]='\0';
            currentorder[70]='\0';

            orderok=TRUE;

            disporder(0,oldorder,RED,WHITE);
            disporder(1,currentorder,GREEN,WHITE);
            dispprdnumber();
            displeftnumber();
            dispbadnumber();
           }

          }

         sendok=TRUE;
         tmcounter=maxtm;
         time(&tmstart);
        }
      else if(rcvchar>=' ')
        rcvbuf[rcvcount++]=rcvchar;
      
      if(!sendok)
       {time(&tmend);
        tmcounter++;
        if(fabs(difftime(tmend,tmstart))>=5.0)
          {sendok=TRUE;
           strcpy(buf2,"通信超时错误！");   
           waitbox(buf2,0,1);
           time(&tmstart);
          } 
        else if(tmcounter>=maxtm)
         { sendok=TRUE;
           tmcounter=0;
           time(&tmstart);
         }
       }

      leftnumber=setnumber-prdnumber+badnumber;
      if(leftnumber<20L)
       {if(leftct==0)
          drwfillcircle(XOR,GREEN,30,50,20);
        leftct++;
        if(leftct>500) leftct=0;
       }
      if((autook) && (leftnumber<=1) && (orderok))
        {changeorder();
         dispallorder(irec,maxrec-1);
         drwfillcircle(SET,WHITE,30,50,20); 
        }
  
      if(autook)
       {if(autoct==0)
         drwfillcircle(XOR,CYAN,515,570,5);
        autoct++;
        if(autoct>800) autoct=0;
        if(irec>maxrec-1) autook=FALSE;
       }
      else
       drwfillcircle(SET,YELLOW,515,570,5);

      lmtspeed=lmtspeedcal(setlength);
      if((ispeed>lmtspeed) && orderok)
        { strcpy(buf2,"生产速度超过极速！不能保证正常生产！");
          waitbox(buf2,0,1);
        }       
  

    }
    
   restext();
   SioDone(Port);

   free(buf);
     
   return 1;
}

int maxprdrec(void)
{FILE *fp;
 long i;
 
 i=0L;
 if((fp=fopen("prddata.txt","r")) != NULL)
  {i=filelength(fileno(fp));
   fclose(fp);
  }

 return (int)(i/112L);
}


void scandata(int istart,int iend)
{FILE *fp;
 int i,j,k,m;
 long ii,jj;

 i=0;
 j=0;
 k=2;
 if((fp=fopen("prddata.txt","r")) != NULL)
  {ii=filelength(fileno(fp));
   jj=0L;
   
   while(!feof(fp))
    {fgets(ibuf1,130,fp);
     m=strlen(ibuf1);
     jj=jj+m;
     if (jj>ii) break;

     if(i>=istart)
      {k=i-istart+2;
       if((k>=2) && (k<=9))
         {strncpy(ibuf2,ibuf1,70);
          ibuf2[70]='\0';
          disporder(k,ibuf2,GREEN,RED);
         }
       j++;
      }
     if(j>iend) break;
     i++;
    }
   if(k<=9)
    {strncpy(ibuf2,ibuf1,70);
    ibuf2[70]='\0';
    disporder(k,ibuf2,GREEN,RED);
    }

   memset(ibuf2,' ',70);
   ibuf2[70]='\0';
   for(i=k+1;i<10;i++)
    disporder(i,ibuf2,GREEN,RED);

   fclose(fp);
  }
}

int scanbuf(int istart,char *istr)
{FILE *fp;
 int i,j,k,m;
 long ii,jj;

 i=0;
 j=0;
 k=0;
 if((fp=fopen("prddata.txt","r")) != NULL)
  {ii=filelength(fileno(fp));
   jj=0L;
   while(!feof(fp))
    {fgets(ibuf1,120,fp);
     m=strlen(ibuf1);
     jj=jj+m;
     if(jj>=ii) break;

     if(i==istart)
      {strncpy(istr,ibuf1,70);
       istr[70]='\0';
       fclose(fp);
       return TRUE;
      }
     i++;
    }