t3.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 long leftlength;

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

static char newtimebuf[8],oldtimebuf[8];
static char str0[18][10]={"F1","定单输入","F2","强制换单","F3","定单保存","F4","定单浏览","F5","定单上载","F6","生产定单","F8","取消换单","+/-","废品计数","ESC","退出系统"};
static char order[300][70],cutlength1[4],prdnumber1[10],leftlength1[10];
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],buf11[40],buf12[4];
static char currentorder[70],oldorder[70],buf2[80],buf3[80],buf4[80],zonglength[6];
static int tmcount,FirstChangeOk,rcvcount,tmcounter,orderok;
static char rcvbuf[80];
static long dDAT;
static char rcvchar,autook;
static int oirec,omaxrec;
static char ibuf1[150],ibuf2[150],ibuf3[150];
static  char stopstart[8],ichangea[2],stopnumberf[2],stopend[8],ontime[8],alltimef[8],offtime[8],allstopt[8];
static  char alllengths1[6],alllengths2[6],average1[6],average2[6];


static int Port,itt;
static int iCOM,iSEL,iADD;
static double dCIR,dANG,dSYN,dMAX,dRAT,dACC;
static unsigned iSEG,iOFF;
static long salllength,alllength;
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,int 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);
void drwbutton(char *phstr,char *str,int x,int y,PixelMode i,int col11);
void disppic(void);
void scanmem(void);

int main(void)
{  int ok,ikeycode,i,k;
   char *buf;
   FILE *fpASC,*fpp;
   char far *Ptr;
   int  Seg,flag3,flag4;
   int sendok,maxtm;
   time_t tmstart,tmend;
   long zongmi,speedline;

   int stopcounter,startmath;
  
   int hours,minutes,seconds,allhours,allmin,allseco;
   
   initdata();   
   lmtspeedinit();
   Port=iCOM;
   itt=0;

   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);


   zongmi=0L;
   speedline=0L;
   alllength=1000000L;
   salllength=0L;
   allhours=0;
   allmin=0;
   allseco=0;
   hours=0;
   minutes=0;
   seconds=0;
   flag3=TRUE;
   flag4=TRUE;
   stopcounter=0;
   startmath=0;
   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);
   _strtime(ontime);

   whichvga();
   res800();

   disppic();
   
   drwstr(ontime,90,518,1,1,WHITE,SET);

   for(i=0;i<1;i++)                   /*总长字符串和平均车速字符串给初值*/
    { alllengths1[i]='0';
      alllengths2[i]='0';
      average1[i]='0';
      average2[i]='0';
    }
    alllengths1[2]='\0';
    alllengths2[2]='\0';
    average1[2]='\0';
    average2[2]='\0';  

   drwfillbox(SET,BLUE,252,516,293,536);
   drwstr(average1,256,518,1,1,WHITE,SET);

   _strdate(buf);
   drwstr(buf,400,5,1,2,RED,SET);
   sprintf(stopnumberf,"%2d",stopcounter);
   drwstr(stopnumberf,380,518,1,1,WHITE,SET);

   strcpy(alltimef,"00/00/00");                  /*初始化停机的累计时间*/
   alltimef[8]='\0';
   drwstr(alltimef,504,518,1,1,WHITE,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 */
             drwbutton(str0[0],str0[1],8,545,SET,lGREEN);
             
            if (inputorder(buf)!=9)
             {strupr(buf);
             appendorder(buf);
             dispallorder(irec,maxrec-1);
             }
             drwbutton(str0[0],str0[1],8,545,SET,YELLOW);
             
             break;
            case kbF2: /* Change */
             drwbutton(str0[2],str0[3],88,545,SET,lGREEN);
             
             changeorder();
             dispallorder(irec,maxrec-1);
             drwfillcircle(SET,WHITE,30,50,20);  
             drwbutton(str0[2],str0[3],88,545,SET,YELLOW);
             
             break;
            case kbF3: /* Save */
             drwbutton(str0[4],str0[5],167,545,SET,lGREEN);
             
             saveorder();
             drwbutton(str0[4],str0[5],167,545,SET,YELLOW);
             
             break;
            case kbF4: /* Brow */
             drwbutton(str0[6],str0[7],247,545,SET,lGREEN);
             
             broworder();
             dispallorder(irec,maxrec-1);
             drwbutton(str0[6],str0[7],247,545,SET,YELLOW);
             
             break;
            case kbF5: /* Upload */
             drwbutton(str0[8],str0[9],326,545,SET,lGREEN);
             
             uploadorder();
             dispallorder(irec,maxrec-1);
             drwbutton(str0[8],str0[9],326,545,SET,YELLOW);
             
             break;
            case kbF6: /* History */
             drwbutton(str0[10],str0[11],406,545,SET,lGREEN);
             
             historybrow();
             dispallorder(irec,maxrec-1);
             drwbutton(str0[10],str0[11],406,545,SET,YELLOW);
             
             break;
            case kbF7: /* Auto Order Exchange */
           
             autook=!autook;
             break; 
            case kbF8: /* Cancel Exchange */ 
             drwbutton(str0[12],str0[13],565,545,SET,lGREEN);
             
             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);
              }
             drwbutton(str0[12],str0[13],565,545,SET,YELLOW);
             break;
             case '+':
             drwbutton(str0[14],str0[15],644,545,SET,lGREEN);
             ispeed++;
             badnumber++;
             dispbadnumber();
             drwbutton(str0[14],str0[15],644,545,SET,YELLOW);
             
             break;
            case '-':
             drwbutton(str0[14],str0[15],644,545,SET,lGREEN);
             
             if((badnumber>0)&&(ispeed>0))
               {badnumber--;
                ispeed--;
                dispbadnumber();
               }
             drwbutton(str0[14],str0[15],644,545,SET,YELLOW);
             
             break;
            case ESC:
             drwbutton(str0[16],str0[17],725,545,SET,lGREEN);
             
             strcpy(buf2,"请确认退出系统？");
             i=msgbox(buf2,1,1);
             if((i=='y') || (i=='Y') || (i==ENTER))
              ok=FALSE;
             drwbutton(str0[16],str0[17],725,545,SET,YELLOW);
             
             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';
           for(i=0;i<6;i++)
           zonglength[i]=rcvbuf[16+i];
           zonglength[6]='\0';
           cutlength=atoi(buf3);
           if (setlength==cutlength)
               salllength=prdnumber*cutlength;                    /* 单个定单机器所生产的纸板米数 */

           if (setlength!=cutlength)
                alllength=alllength+salllength;
           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,GREEN,BLACK);
            disporder(1,currentorder,RED,WHITE);
            dispprdnumber();
            displeftnumber();
            dispbadnumber();
           }

          }

         sendok=TRUE;
         tmcounter=maxtm;
         time(&tmstart);
        }
        else if(rcvchar>=' ')
           rcvbuf[rcvcount++]=rcvchar;
      
   
      if ((ispeed<5)&&(flag3==TRUE)&&(startmath>0))              /* 算停车时间 */
         {flag4=TRUE;
          startmath=2;
          stopcounter=stopcounter+1;                             /* 停车次数 */
          _strtime(stopstart);                                
          flag3=FALSE;
         }
         
      if ((ispeed>=5)&&(flag4==TRUE))
         {
          flag4=FALSE;
         
          flag3=TRUE;
          if (startmath>1)
           { _strtime(stopend);
             allseco=atoi(stopend+6)-atoi(stopstart+6)+allseco;
             if (allseco<0)
               {allmin=allmin-1;
                allseco=60+allseco;
               }
               else if (allseco>=60)
                    {
                    allseco=allseco-60;
                    allmin=allmin+1;
                    }      

             allmin=atoi(stopend+3)-atoi(stopstart+3)+allmin;
             if (allmin<0)
               {allhours=allhours-1;
                allmin=60+allmin;
               }
               else if (allmin>=60)
                    {
                    allmin=allmin-60;
                    allhours=allhours+1;
                    }

             allhours=atoi(stopend)-atoi(stopstart)+allhours;

            /*   allseco=(atoi(stopend)*3600+atoi(stopend+3)*60+atoi(stopend+6)-atoi(stopstart)*3600-atoi(stopstart)*60+atoi(stopstart+6))%60;
               allmin=((atoi(stopend)*3600+atoi(stopend+3)*60+atoi(stopend+6)-atoi(stopstart)*3600-atoi(stopstart)*60+atoi(stopstart+6))/60)%60;
               allhours=((atoi(stopend)*3600+atoi(stopend+3)*60+atoi(stopend+6)-atoi(stopstart)*3600-atoi(stopstart)*60+atoi(stopstart+6))/60)/60;  */
               }
           startmath=1;
         }
        if ((allhours==0)&&(allmin==0)&&(allseco==0))   /*显示停车时间*/
           {strcpy(allstopt,"00/00/00");
            if (strncmp(allstopt,alltimef,8)!=0)
              { 
                drwfillbox(SET,BLUE,500,516,580,536);
                drwstr(allstopt,504,518,1,1,WHITE,SET);
              }
            }
            else
             { sprintf(allstopt,"%2d/%2d/%2d",allhours,allmin,allseco);
               if (strncmp(allstopt,alltimef,8)!=0)