📄 yxiao1.c
字号:
#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"
#include "lu.h"
int main(void)
{ int ok,ikeycode,i,k;
char *buf;
FILE *fpASC;
char far *Ptr,name1[10],name2[10];
int Seg;
int sendok,maxtm;
time_t tmstart,tmend;
unsigned char z;
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);
z=0xb;
whichvga();
/* SetDisplayMode(z); */ /* 也是初始化屏幕显示,以800*600,256色显示*/
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 */
strcpy(name1,"F1");
strcpy(name2,"定单输入");
drwbutton(name1,name2,8,545,SET,GREEN);
inputorder(buf);
strupr(buf);
if (flag2==TRUE)
appendorder(buf);
dispallorder(irec,maxrec-1);
drwbutton(name1,name2,8,545,SET,44);
break;
case kbF2: /* Change */
strcpy(name1,"F2");
strcpy(name2,"强制换单");
drwbutton(name1,name2,88,545,SET,GREEN);
changeorder();
dispallorder(irec,maxrec-1);
drwfillcircle(SET,WHITE,30,50,20);
drwbutton(name1,name2,88,545,SET,44);
break;
case kbF3: /* Save */
strcpy(name1,"F3");
strcpy(name2,"定单保存");
drwbutton(name1,name2,167,545,SET,GREEN);
saveorder();
sdelay(5);
drwbutton(name1,name2,167,545,SET,44);
break;
case kbF4: /* Brow */
strcpy(name1,"F4");
strcpy(name2,"定单浏览");
drwbutton(name1,name2,247,545,SET,GREEN);
broworder();
dispallorder(irec,maxrec-1);
drwbutton(name1,name2,247,545,SET,44);
break;
case kbF5: /* Upload */
strcpy(name1,"F5");
strcpy(name2,"定单上载");
drwbutton(name1,name2,326,545,SET,GREEN);
uploadorder();
dispallorder(irec,maxrec-1);
drwbutton(name1,name2,326,545,SET,44);
break;
case kbF6: /* History */
strcpy(name1,"F6");
strcpy(name2,"生产定单");
drwbutton(name1,name2,406,545,SET,GREEN);
historybrow();
dispallorder(irec,maxrec-1);
drwbutton(name1,name2,406,545,SET,44);
break;
case kbF7: /* Auto Order Exchange */
autook=!autook;
break;
case kbF8: /* Cancel Exchange */
strcpy(name1,"F8");
strcpy(name2,"取消换单");
drwbutton(name1,name2,565,545,SET,GREEN);
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);*/
}
drwbutton(name1,name2,565,545,SET,44);
break;
case '+':
strcpy(name1,"+/-");
strcpy(name2,"废品计数");
drwbutton(name1,name2,644,545,SET,GREEN);
badnumber++;
dispbadnumber();
drwbutton(name1,name2,644,545,SET,44);
break;
case '-':
strcpy(name1,"+/-");
strcpy(name2,"废品计数");
drwbutton(name1,name2,644,545,SET,GREEN);
if(badnumber>0)
{badnumber--;
dispbadnumber();
}
drwbutton(name1,name2,644,545,SET,44);
break;
case ESC:
strcpy(name1,"ESC");
strcpy(name2,"退出系统");
drwbutton(name1,name2,725,545,SET,GREEN);
strcpy(buf2,"请确认退出系统？");
i=msgbox(buf2,1,1);
if((i=='y') || (i=='Y') || (i==ENTER))
ok=FALSE;
drwbutton(name1,name2,725,545,SET,44);
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);
}
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++;
}
fclose(fp);
return FALSE;
}
}
void initdata(void)
{ FILE *fpin,*fpout;
long idate,jdate;
int iyear,imonth,iday,m;
int jyear,jmonth,jday;
long ii,jj;
_strdate(buffer);
imonth=atoi(buffer);
iday=atoi(buffer+3);
iyear=atoi(buffer+6);
idate=iyear*365+imonth*30+iday;
if((fpout=fopen("olddata.txt","w")) != NULL)
if((fpin=fopen("prddata.txt","rb"))!=NULL)
{ii=filelength(fileno(fpin));
jj=0L;
while(!feof(fpin))
{fgets(ibuf1,120,fpin);
m=strlen(ibuf1);
jj=jj+m;
if(jj>ii) break;
ibuf1[110]='\n';
ibuf1[111]='\0';
strncpy(ibuf2,ibuf1+70,8);
ibuf2[8]='\0';
jmonth=atoi(ibuf2);
jday=atoi(ibuf2+3);
jyear=atoi(ibuf2+6);
jdate=jyear*365+jmonth*30+jday;
if(labs(jdate-idate)<=DAT)
fputs(ibuf1,fpout);
}
}
fclose(fpin);
fclose(fpout);
remove("prddata.txt");
rename("olddata.txt","prddata.txt");
}
int bcccheck(char *str)
{int i,j,bcc;
i=strlen(str);
bcc=str[0];
for(j=1;j<i-1;j++)
bcc=bcc ^ str[j];
if(bcc<' ') bcc=bcc+' ';
if(bcc==str[i-1])
return TRUE;
else
return FALSE;
}
int bccstr(char *str)
{int i,j,bcc;
i=strlen(str);
bcc=str[0];
for(j=1;j<i;j++)
bcc=bcc ^ str[j];
if(bcc<' ') bcc=bcc+' ';
return bcc;
}
int ErrorCheck(int Code)
{/* trap PCL error codes */
if(Code<0)
{printf("ERROR %d:",Code);
SioError(Code);
SioDone(Port);
exit(1);
}
return(0);
} /* end ErrorCheck */
void dispspeed(void)
{if(oldspeed!=ispeed)
{sprintf(buf3,"%3d",ispeed);
drwfillbox(SET,BLUE,11,154,114,213);
drwstr(buf3,13,156,4,4,WHITE,SET);
oldspeed=ispeed;
}
}
void dispprdnumber(void)
{if(oldprdnumber!=prdnumber)
{sprintf(buf3,"%8ld",prdnumber);
drwfillbox(SET,BLUE,121,154,387,213);
drwstr(buf3,123,156,4,4,WHITE,SET);
oldprdnumber=prdnumber;
displeftnumber();
}
}
void displeftnumber(void)
{leftnumber=setnumber-prdnumber+badnumber;
sprintf(buf3,"%8ld",leftnumber);
drwfillbox(SET,BLUE,394,154,648,213);
drwstr(buf3,396,156,4,4,WHITE,SET);
}
void dispbadnumber(void)
{ sprintf(buf3,"%4d",badnumber%10000);
drwfillbox(SET,RED,655,154,791,213);
drwstr(buf3,657,156,4,4,WHITE,SET);
displeftnumber();
}
void broworder(void)
{int ok;
int i,j,k;
strcpy(buf2,"tt.pcx");
pcxmake(260,101,536,266,buf2);
strcpy(buf2,"menu.pcx");
pcxput(SET,260,101,buf2);
i=irec;
ok=TRUE;
while(ok)
{if(kbhit())
{j=getkey();
switch(j)
{case ESC:
ok=FALSE;
break;
case kbUp:
if(i>irec) i--;
dispallorder(i,maxrec-1);
break;
case kbDn:
if(i<(maxrec-1)) i++;
dispallorder(i,maxrec-1);
break;
case kbHOME:
i=irec;
dispallorder(i,maxrec-1);
break;
case kbEND:
i=maxrec-1;
dispallorder(i,maxrec-1);
break;
case kbPgUp:
if((i-8)>=irec) i=i-8;
dispallorder(i,maxrec-1);
break;
case kbPgDn:
if((i+8)<=(maxrec-1)) i=i+8;
dispallorder(i,maxrec-1);
break;
case kbF1:
/* strcpy(buf2,"tt.pcx");
pcxmake(260,201,536,366,buf2);
strcpy(buf3,"menu.pcx");
pcxput(SET,260,201,buf3);
getch();
pcxput(SET,260,201,buf2);*/
break;
case kbINS:
if(inputorder(buf3))
{strupr(buf3);
appendorder(buf3);
for(k=maxrec-1;k>i;k--)
exchangeorder(k,k-1);
dispallorder(i,maxrec-1);
}
break;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -