标题: 控制惠普公司的电容检测仪器采集抽检样品后做质量分析图表 [打印本页]

---

作者: ee51523    时间: 2017-10-23 14:08
标题: 控制惠普公司的电容检测仪器采集抽检样品后做质量分析图表
HP美国惠普公司的HP4278电容测量仪后面有串口接口和GPIB接口等，都可以与PC机连接采集到实时测量到的电容数据，本程序自动收到数据后，进行正态分布分析，可以及时地给生产线抽检人员快速提供质检报告。

源程序如下：

1. /* ======================================================================= */
   
2. /*   SQCC.C :                                                              */
   
3. /*                                                                         */
   
4. /*   Copyright (c) 1994,95 Yingte Instruments. All rights reserved.        */
   
5. /*                                                 10-3-1993  by BXY       */
   
6. /* ======================================================================= */
   
7. #include <ctype.h>
   
8. #include <conio.h>
   
9. #include <dos.h>
   
10. #include <io.h>
    
11. #include <memory.h>
    
12. #include <malloc.h>
    
13. #include <math.h>
    
14. #include <stdio.h>
    
15. #include <string.h>
    
16. #include <stdlib.h>
    
17. #include <stdarg.h>
    
18. #include <time.h>
    
19. #include <sys/types.h>
    
20. #include <sys/stat.h>
    
21. #define ANSI                /* Delete for UNIX version. */
    
22. 
    
23. #include <graph.h>
    
24. #include <process.h>
    
25. #include <errno.h>
    
26. 
    
27. #include "sgwindow.h"
    
28. #include <mouse.h>
    
29. #include <guass.h>
    
30. #include "yp.h"
    
31. #include <gpibc.h>
    
32. 
    
33. int compcode;     /*  Completion code for reporting problems. This is set */
    
34.                   /*   by the routines below & tested in calling program. */
    
35. 
    
36. #define MAXSTR 100
    
37. 
    
38. char cnumbuf[MAXSTR] = { MAXSTR + 2, 0 };
    
39. char tmpbuf[MAXSTR];
    
40. 
    
41. #define MaxWidth 5
    
42. #define MaxLength 22
    
43. 
    
44. void    YpGl(void);
    
45. void    ChpGl(void);
    
46. void STATISRESULT(char *Fname);
    
47. 
    
48. unsigned long LocateFrame(POPUPWINDOW *wnd,char *Fname);
    
49. int  SelectYpFile(char *Fname);
    
50. void DataYpProcess(char *Fname);
    
51. long    MaxFrame=110;
    
52. void DisplayTM(int x,int y);
    
53. int autoaq(char *Fname);
    
54. int y_n(char *Fname);
    
55. 
    
56. main()
    
57. {
    
58. PRESSBUTTON PressButton[3];
    
59. unsigned int    exit_code;
    
60. int             i;
    
61. int             CurrPressButton,OldPressButton,Pressing;
    
62. static long old_color_table[] = {0x000000l,0x2a0000l,0x002a00l,0x2a2a00l,
    
63.                                  0x00002al,0x2a002al,0x00152al,0x2a2a2al,
    
64.                                  0x151515l,0x3f1515l,0x153f15l,0x3f3f15l,
    
65.                                  0x15153fl,0x3f153fl,0x153f3fl,0x3f3f3fl};
    
66. 
    
67.   if(!InitGwindow())
    
68.   {
    
69.     printf("ERROR  :  System initialize error !");
    
70.     exit(1);
    
71.   }
    
72. 
    
73.   mouse_off(1);
    
74.   _setcolor(VGA_BLACK);
    
75.   line(0,35,639,35);
    
76.   DisplayTM(10,3);
    
77.   ccprintf(250,10,VGA_BLUE,"生  产  过  程  质  量  检  验");
    
78. 
    
79.   for( i = 0;i < 3; i ++)
    
80.   {
    
81.     PressButton[i].left = 210;
    
82.     PressButton[i].top = 120+i*80;
    
83.     PressButton[i].width = 200;
    
84.     PressButton[i].height = 40;
    
85.   }
    
86.   PressButton[0].label = "银 片 质 量 检 验";
    
87.   PressButton[1].label = "成品生产过程质量检验";
    
88.   PressButton[2].label = "退     出";
    
89. 
    
90.   for( i = 0;i < 3;i ++)
    
91.     DisplayPressButton(&PressButton[i],0);
    
92. 
    
93.   mouse_on(1);
    
94. 
    
95.   exit_code = 0;
    
96. 
    
97.   button_press(0);
    
98.   button_release(0);
    
99. 
    
100.   do
     
101.   {
     
102. 
     
103.     OldPressButton = 3;
     
104.     Pressing = 0;
     
105. 
     
106.     while(button_state() & 0x01)   /* left button is being pressed */
     
107.     {
     
108.       /* Pressing pressbutton ? */
     
109.       CurrPressButton = 3;
     
110.       for(i = 0; i < 3; i ++)
     
111.       {
     
112.         if(mouse_in_box(1,PressButton[i].left,
     
113.                           PressButton[i].top,
     
114.                           PressButton[i].left+PressButton[i].width-1,
     
115.                           PressButton[i].top+PressButton[i].height-1))
     
116.          { /* Press a press button */
     
117.            CurrPressButton = i;
     
118.            break;
     
119.          }
     
120.       }
     
121. 
     
122.       if((CurrPressButton != 3)
     
123.        &&(!Pressing)
     
124.        &&(OldPressButton != CurrPressButton) )
     
125.       {
     
126.         /* Display Pressed button */
     
127.         DisplayPressButton(&PressButton[CurrPressButton],1);
     
128. 
     
129.         OldPressButton = CurrPressButton;
     
130.         Pressing = 1;
     
131.         continue;
     
132.       }
     
133. 
     
134.       if( Pressing
     
135.        &&(OldPressButton != CurrPressButton) )
     
136.       {
     
137.         /* Recover old press button */
     
138.         DisplayPressButton(&PressButton[OldPressButton],0);
     
139. 
     
140.         if(CurrPressButton != 3)
     
141.         {
     
142.           /* Display Pressed button ---- */
     
143.           DisplayPressButton(&PressButton[CurrPressButton],1);
     
144.           OldPressButton = CurrPressButton;
     
145.           Pressing = 1;
     
146.           continue;
     
147.         }
     
148.         else
     
149.         {
     
150.           Pressing = 0;
     
151.           OldPressButton = 3;
     
152.           continue;
     
153.         }
     
154.       } /* End  Pressing && OldPressButton != CurrPressButton */
     
155. 
     
156.       if( Pressing && (OldPressButton == CurrPressButton))
     
157.       {
     
158.         continue;
     
159.       }
     
160. 
     
161.     } /* end left button is being pressed */
     
162. 
     
163.     /* Recover old press button */
     
164.     if(Pressing)
     
165.     {
     
166.       DisplayPressButton(&PressButton[OldPressButton],0);
     
167.       Pressing = 0;
     
168. 
     
169.       /* Press Pressbutton */
     
170.       if(CurrPressButton < 3)
     
171.       {
     
172.         switch(CurrPressButton)
     
173.         {
     
174.         case 0:
     
175.                   YpGl();
     
176.                   break;
     
177.         case 1:
     
178.                   ChpGl();
     
179.                   mouse_off(1);
     
180.                   _setcolor(VGA_LIGHTGRAY);
     
181.                   _rectangle(_GFILLINTERIOR,0,0,639,479);
     
182.                   _setcolor(VGA_BLACK);
     
183.                   line(0,35,639,35);
     
184.                   DisplayTM(10,3);
     
185.                   ccprintf(250,10,VGA_BLUE,"生  产  过  程  质  量  检  验");
     
186.                   for( i = 0;i < 3;i ++)
     
187.                    DisplayPressButton(&PressButton[i],0);
     
188.                   mouse_on(1);
     
189.                   break;
     
190.         case 2:
     
191.                   exit_code = 1;
     
192.                   break;
     
193.         default:
     
194.                   break;
     
195.         }
     
196. /*      move_mouse(320,240);  */
     
197.       } /* End of Press Pressbutton  */
     
198.       continue;
     
199.     } /* End of Pressing */
     
200.   }while(exit_code == 0);
     
201. 
     
202.   _remapallpalette(old_color_table);
     
203.   _setvideomode(_TEXTC80);                /* Return the system to text mode       */
     
204.   _unregisterfonts();
     
205. 
     
206. }
     
207. 
     
208. void YpGl(void)
     
209. {
     
210. char            buffer[_MAX_PATH];
     
211. char            drive[_MAX_DRIVE],dir[_MAX_DIR],file[_MAX_FNAME],ext[_MAX_EXT];
     
212. struct find_t   fileinfo;
     
213. YpHead          Yhead;
     
214. FILE            *data_pointer,*data1_pointer;
     
215. long            SampleNumb;
     
216. 
     
217. 
     
218.   _fstrcpy(buffer,"*.YP");
     
219. 
     
220.   if(!OpenFile(buffer,"选 择 银 片 抽 检 数 据 文 件","选 定(O)"))
     
221.     return;
     
222. 
     
223.   _splitpath(buffer,drive,dir,file,ext);
     
224. 
     
225.   ext[0] = '.';
     
226.   ext[1] = 'Y';
     
227.   ext[2] = 'P';
     
228.   ext[3] = 0;
     
229.   _makepath(buffer,drive,dir,file,ext);
     
230. 
     
231. /*if(_dos_findfirst(buffer,_A_VOLID,&fileinfo) != 0)  */
     
232.   if((data_pointer = fopen(buffer,"rb")) == NULL)
     
233.   {
     
234.   if((data1_pointer=fopen(buffer,"wb"))==NULL)
     
235.   {
     
236.   ErrorMessage(" 打不开数据文件 ");
     
237.   return;
     
238.   }
     
239.   Yhead.password = 0x4347;
     
240.   Yhead.label[0] = 0;
     
241.   strcpy(Yhead.time,"950619/8:30");
     
242.   Yhead.NNumb = 100000;
     
243.   Yhead.material[0] = 0;
     
244.   Yhead.standard = 1;
     
245.   Yhead.delta = 3;
     
246.   strcpy(Yhead.Unit,"pF");
     
247.   strcpy(Yhead.sob,"电容");
     
248.   Yhead.Temp = 0.0;
     
249.   Yhead.Requ = 0.0;
     
250.   SampleNumb = 0;
     
251.   fseek(data1_pointer,0l,SEEK_SET);
     
252.   fwrite(&Yhead,sizeof(YpHead),1,data1_pointer);
     
253.   fwrite(&SampleNumb,4,1,data1_pointer);
     
254.   fclose(data1_pointer);
     
255. 
     
256.   if(SelectYpFile(buffer)!=0)
     
257.   return;
     
258.   }
     
259.   else
     
260.        fclose(data_pointer);
     
261. 
     
262.   data_pointer = fopen(buffer,"rb");
     
263.   fseek(data_pointer,0l,SEEK_SET);
     
264.   fread(&Yhead,sizeof(YpHead),1,data_pointer);
     
265.   fclose(data_pointer);
     
266.   if(Yhead.password!=0x4347)
     
267.   {
     
268.     ErrorMessage(" 不是银片数据文件 ");
     
269.     return;
     
270.   }
     
271. 
     
272.   DataYpProcess(buffer);
     
273. 
     
274.   return;
     
275. 
     
276. }
     
277. 
     
278. int SelectYpFile(char *Fname)
     
279. {
     
280. char            buffer[_MAX_PATH];
     
281. char            drive[_MAX_DRIVE],dir[_MAX_DIR],file[_MAX_FNAME],ext[_MAX_EXT];
     
282. FILE            *data_pointer,*data1_pointer;
     
283. POPUPWINDOW     *wnd;
     
284. int             Classid,id,Selected,CursorX,CursorY;
     
285. long            return_lpara;
     
286. int             i;
     
287. long            SampleNumb;
     
288. char            ch10[20],ch11[20],ch12[20];
     
289. YpHead          Yhead;
     
290. unsigned long   FrameX,FrameY;
     
291. int             reasonnumber,refusenumber;
     
292. 
     
293.   if( (data_pointer = fopen(Fname,"rb")) == NULL)
     
294.   {
     
295.     ErrorMessage(" 打不开银片数据文件 ");
     
296.     return(1);
     
297.   }
     
298. 
     
299.   /* Read default data file name */
     
300.   fseek(data_pointer,0l,SEEK_SET);
     
301.   fread(&Yhead,sizeof(YpHead),1,data_pointer);
     
302.   fread(&SampleNumb,4,1,data_pointer);
     
303.   fclose(data_pointer);
     
304. if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
     
305. {
     
306. ErrorMessage("标准错误!");
     
307. return(1);
     
308. }
     
309. 
     
310.   sprintf(ch10,"%ld",Yhead.NNumb);
     
311.   sprintf(ch11,"%.3f",Yhead.Requ);
     
312.   sprintf(ch12,"%.2f",Yhead.Temp);
     
313.   mouse_off(1);
     
314.   _setviewport(0,0,639,479);
     
315.   /*
     
316.   wnd = EstablishPopupWindow(120,110,400,360,VGA_WHITE,1);
     
317.    */
     
318.   wnd = EstablishPopupWindow(120,60,400,360,VGA_WHITE,1);
     
319.   SetTitle(wnd,"银 片 抽 检 数 据 文 件");
     
320.   ccwprintf(wnd,16,6,VGA_BLACK,"应输入样品个数 : %d",reasonnumber);
     
321.   ccwprintf(wnd,16,24,VGA_BLACK,"已输入样品个数 : %d",SampleNumb);
     
322.   EstablishPressButton(wnd,250,16,120,38,"设置正确(O)",ID_OK,0xff18);
     
323.   EstablishPressButton(wnd,250,160,120,30,"取 消(C)",ID_CANCEL,0xff2e);
     
324.   EstablishPressButton(wnd,250,92,120,30,"选择文件(T)",2,0xff14);
     
325. 
     
326. /*EstablishEntryField(wnd,16,41,116,22,"批      号(L):",STRING,Yhead.label,NULL,NULL,10,0xff26);*/
     
327.   EstablishEntryField(wnd,16,41,116,22,"首检日期  (L):",STRING,Yhead.time,NULL,NULL,10,0xff26);
     
328.   EstablishEntryField(wnd,16,66,116,22,"总  数  量(N):",LONG,ch10,NULL,NULL,11,0xff31);
     
329.   EstablishEntryField(wnd,16,91,116,22,"规      格(M):",STRING,Yhead.material,NULL,NULL,12,0xff32);
     
330.   EstablishEntryField(wnd,16,116,116,22,"单      位(U):",STRING,Yhead.Unit,NULL,NULL,13,0xff16);
     
331.   EstablishEntryField(wnd,16,141,116,22,"质量特性名(B):",STRING,Yhead.sob,NULL,NULL,14,NONEKEY);
     
332.   EstablishEntryField(wnd,16,166,116,22,"等效电阻值(R):",FLOAT,ch11,NULL,NULL,15,0xff13);
     
333.   EstablishEntryField(wnd,16,300,116,22,"温度 ℃ =:",FLOAT,ch12,NULL,NULL,16,0xff13);
     
334. 
     
335.   ccwprintf(wnd,16,186,VGA_BLACK,"检验标准AQL:");
     
336.   EstablishFrame(wnd,16,204,350,25,21,NONEKEY);
     
337.   for(i = 0;i < 4; i++)
     
338.   {
     
339.     DisplaySwitch(wnd->left+22+80*i,wnd->top+226,0);
     
340.   }
     
341.   DisplaySwitch(wnd->left+22+(Yhead.standard-1)*80,wnd->top+226,1);
     
342.   ccwprintf(wnd,40,206,VGA_BLACK,"0.65");
     
343.   ccwprintf(wnd,40+80,206,VGA_BLACK,"1.0");
     
344.   ccwprintf(wnd,40+160,206,VGA_BLACK,"1.5");
     
345.   ccwprintf(wnd,40+240,206,VGA_BLACK,"其它");
     
346. 
     
347.   ccwprintf(wnd,16,250,VGA_BLACK,"偏差调节系数:");
     
348.   EstablishFrame(wnd,16,268,350,25,22,NONEKEY);
     
349.   for(i = 0;i < 4; i++)
     
350.   {
     
351.     DisplaySwitch(wnd->left+22+80*i,wnd->top+290,0);
     
352.   }
     
353.   switch(Yhead.delta)
     
354.   {
     
355.     case 3:
     
356.     case 4:
     
357.         DisplaySwitch(wnd->left+22+(Yhead.delta-3)*80,wnd->top+290,1);
     
358.         break;
     
359.     case 6:
     
360.     case 8:
     
361.         DisplaySwitch(wnd->left+22+(Yhead.delta/2-3)*80,wnd->top+290,1);
     
362.         break;
     
363.     default:
     
364.         break;
     
365.   }
     
366.   ccwprintf(wnd,40,270,VGA_BLACK,"3");
     
367.   ccwprintf(wnd,40+80,270,VGA_BLACK,"4");
     
368.   ccwprintf(wnd,40+160,270,VGA_BLACK,"6");
     
369.   ccwprintf(wnd,40+240,270,VGA_BLACK,"8");
     
370. 
     
371.   mouse_on(1);
     
372.   move_mouse(320,240);
     
373.   Selected = 0; /* Not Selected */
     
374.   do
     
375.   {
     
376.     Dialog(wnd,
     
377.           &Selected,
     
378.           &CursorX,
     
379.           &CursorY,
     
380.           &Classid,
     
381.           &id,
     
382.           &return_lpara);
     
383. 
     
384. 
     
385. 
     
386.     /* Process dialoge message */
     
387.     switch(Classid)
     
388.     {
     
389.       case 1:
     
390.         switch(id)
     
391.         {
     
392.         case ID_CANCEL:
     
393.               DeletePopupWindow(wnd);
     
394.               return(1);
     
395.         case ID_OK:
     
396. 
     
397.               sscanf(ch10,"%ld",&Yhead.NNumb);
     
398.               sscanf(ch11,"%f",&Yhead.Requ);
     
399.               sscanf(ch12,"%f",&Yhead.Temp);
     
400.               if( (data_pointer = fopen(Fname,"r+b")) == NULL)
     
401.               {
     
402.                 ErrorMessage(" 没打开银片数据文件 ");
     
403.                 DeletePopupWindow(wnd);
     
404.                 return(1);
     
405.               }
     
406. 
     
407.               /* Read default data file name */
     
408.               fseek(data_pointer,0l,SEEK_SET);
     
409.               fwrite(&Yhead,sizeof(YpHead),1,data_pointer);
     
410.               fclose(data_pointer);
     
411.               DeletePopupWindow(wnd);
     
412.               return(0);
     
413. 
     
414.         case 2:
     
415.               _fstrcpy(buffer,"*.YP");
     
416. 
     
417.               if(!OpenFile(buffer,"选 择 银 片 抽 检 数 据 文 件","选 定(O)"))
     
418.                 break;
     
419. 
     
420.               if((data_pointer=fopen(buffer,"rb"))!=NULL)
     
421.               {
     
422.               fseek(data_pointer,0l,SEEK_SET);
     
423.               fread(&Yhead,2,1,data_pointer);
     
424.               fclose(data_pointer);
     
425.               if(Yhead.password!=0x4347)
     
426.               {
     
427.                 ErrorMessage(" 不是银片数据文件 ");
     
428.                 break;
     
429.               }
     
430.               }
     
431. 
     
432.               _splitpath(buffer,drive,dir,file,ext);
     
433. 
     
434.                 ext[0] = '.';
     
435.                 ext[1] = 'Y';
     
436.                 ext[2] = 'P';
     
437.                 ext[3] = 0;
     
438.                 _makepath(buffer,drive,dir,file,ext);
     
439. 
     
440.               if((data_pointer=fopen(buffer,"rb"))==NULL)
     
441.               {
     
442.               if((data1_pointer=fopen(buffer,"wb"))==NULL)
     
443.               {
     
444.               ErrorMessage(" 未打开银片数据文件 ");
     
445.               return(1);
     
446.               }
     
447.               Yhead.password = 0x4347;
     
448.               Yhead.label[0] = 0;
     
449.               Yhead.NNumb = 10000;
     
450.               Yhead.material[0] = 0;
     
451.               Yhead.standard = 1;
     
452.               Yhead.delta = 3;
     
453.               strcpy(Yhead.Unit,"pF");
     
454.               strcpy(Yhead.sob,"电容");
     
455.               Yhead.Temp = 0.0;
     
456.               Yhead.Requ = 0.0;
     
457.               SampleNumb = 0;
     
458.               fseek(data1_pointer,0l,SEEK_SET);
     
459.               fwrite(&Yhead,sizeof(YpHead),1,data1_pointer);
     
460.               fwrite(&SampleNumb,4,1,data1_pointer);
     
461.               fclose(data1_pointer);
     
462.               }
     
463.               else
     
464.               {
     
465.               fseek(data_pointer,0l,SEEK_SET);
     
466.               fread(&Yhead,sizeof(YpHead),1,data_pointer);
     
467.               fread(&SampleNumb,4,1,data_pointer);
     
468.               fclose(data_pointer);
     
469.               }
     
470. 
     
471.        if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
     
472.        {
     
473.        ErrorMessage("标准错误!");
     
474.        return(1);
     
475.        }
     
476.                         strcpy(Fname,buffer);
     
477.                         ClearWindowRect(wnd,16,8,234,32);
     
478.         ccwprintf(wnd,16,6,VGA_BLACK,"应输入样品个数 : %d",reasonnumber);
     
479.         ccwprintf(wnd,16,24,VGA_BLACK,"已输入样品个数 : %d",SampleNumb);
     
480.                         sprintf(ch10,"%ld",Yhead.NNumb);
     
481.                         sprintf(ch11,"%.3f",Yhead.Requ);
     
482.                         sprintf(ch12,"%.2f",Yhead.Temp);
     
483. /*                      ModifyDataEntry(wnd,10,Yhead.label);   */
     
484.                         ModifyDataEntry(wnd,11,ch10);
     
485.                         ModifyDataEntry(wnd,12,Yhead.material);
     
486.                         ModifyDataEntry(wnd,13,Yhead.Unit);
     
487.                         ModifyDataEntry(wnd,14,Yhead.sob);
     
488.                         ModifyDataEntry(wnd,15,ch11);
     
489.                         ModifyDataEntry(wnd,16,ch12);
     
490.                         ModifyFrameSwitch(wnd,21,Yhead.standard);
     
491.                         switch(Yhead.delta)
     
492.                         {
     
493.                           case 3:
     
494.                              ModifyFrameSwitch(wnd,22,1);
     
495.                              break;
     
496.                           case 4:
     
497.                              ModifyFrameSwitch(wnd,22,2);
     
498.                              break;
     
499.                           case 6:
     
500.                              ModifyFrameSwitch(wnd,22,3);
     
501.                              break;
     
502.                           case 8:
     
503.                              ModifyFrameSwitch(wnd,22,4);
     
504.                              break;
     
505.                           default:
     
506.                              break;
     
507.                         }
     
508.                         break;
     
509.                       default:
     
510.                         break;
     
511.                   }
     
512.                 break;
     
513.          case 6:
     
514.                wait_button_release();
     
515.                FrameX = return_lpara&0x0000ffff;
     
516.                FrameY = (return_lpara&0xffff0000)>>16;
     
517.                switch(id)
     
518.                  {
     
519.                    case 21:
     
520.                        if((FrameX>=6)&&(FrameX<=22)&&(FrameY>=5)&&(FrameY<=21))
     
521.                         {
     
522.                           Yhead.standard = 1;
     
523.                           DisplaySwitch(wnd->left+22,wnd->top+226,1);
     
524.                           for(i = 1;i < 4; i++)
     
525.                           {
     
526.                            DisplaySwitch(wnd->left+22+80*i,wnd->top+226,0);
     
527.                           }
     
528.                         }
     
529.                        if((FrameX>=86)&&(FrameX<=102)&&(FrameY>=5)&&(FrameY<=21))
     
530.                         {
     
531.                           Yhead.standard = 2;
     
532.                           DisplaySwitch(wnd->left+22,wnd->top+226,0);
     
533.                           DisplaySwitch(wnd->left+22+80,wnd->top+226,1);
     
534.                           DisplaySwitch(wnd->left+22+160,wnd->top+226,0);
     
535.                           DisplaySwitch(wnd->left+22+240,wnd->top+226,0);
     
536.                         }
     
537.                        if((FrameX>=166)&&(FrameX<=182)&&(FrameY>=5)&&(FrameY<=21))
     
538.                         {
     
539.                           Yhead.standard = 3;
     
540.                           DisplaySwitch(wnd->left+22,wnd->top+226,0);
     
541.                           DisplaySwitch(wnd->left+22+80,wnd->top+226,0);
     
542.                           DisplaySwitch(wnd->left+22+160,wnd->top+226,1);
     
543.                           DisplaySwitch(wnd->left+22+240,wnd->top+226,0);
     
544.                         }
     
545.                        if((FrameX>=246)&&(FrameX<=262)&&(FrameY>=5)&&(FrameY<=21))
     
546.                         {
     
547.                           Yhead.standard = 4;
     
548.                           DisplaySwitch(wnd->left+22,wnd->top+226,0);
     
549.                           DisplaySwitch(wnd->left+22+80,wnd->top+226,0);
     
550.                           DisplaySwitch(wnd->left+22+160,wnd->top+226,0);
     
551.                           DisplaySwitch(wnd->left+22+240,wnd->top+226,1);
     
552.                         }
     
553.                        break;
     
554.                    case 22:
     
555.                        if((FrameX>=6)&&(FrameX<=22)&&(FrameY>=5)&&(FrameY<=21))
     
556.                         {
     
557.                           Yhead.delta = 3;
     
558.                           DisplaySwitch(wnd->left+22,wnd->top+290,1);
     
559.                           for(i = 1;i < 4; i++)
     
560.                           {
     
561.                            DisplaySwitch(wnd->left+22+80*i,wnd->top+290,0);
     
562.                           }
     
563.                         }
     
564.                        if((FrameX>=86)&&(FrameX<=102)&&(FrameY>=5)&&(FrameY<=21))
     
565.                         {
     
566.                           Yhead.delta = 4;
     
567.                           DisplaySwitch(wnd->left+22,wnd->top+290,0);
     
568.                           DisplaySwitch(wnd->left+22+80,wnd->top+290,1);
     
569.                           DisplaySwitch(wnd->left+22+160,wnd->top+290,0);
     
570.                           DisplaySwitch(wnd->left+22+240,wnd->top+290,0);
     
571.                         }
     
572.                        if((FrameX>=166)&&(FrameX<=182)&&(FrameY>=5)&&(FrameY<=21))
     
573.                         {
     
574.                           Yhead.delta = 6;
     
575.                           DisplaySwitch(wnd->left+22,wnd->top+290,0);
     
576.                           DisplaySwitch(wnd->left+22+80,wnd->top+290,0);
     
577.                           DisplaySwitch(wnd->left+22+160,wnd->top+290,1);
     
578.                           DisplaySwitch(wnd->left+22+240,wnd->top+290,0);
     
579.                         }
     
580.                        if((FrameX>=246)&&(FrameX<=262)&&(FrameY>=5)&&(FrameY<=21))
     
581.                         {
     
582.                           Yhead.delta = 8;
     
583.                           DisplaySwitch(wnd->left+22,wnd->top+290,0);
     
584.                           DisplaySwitch(wnd->left+22+80,wnd->top+290,0);
     
585.                           DisplaySwitch(wnd->left+22+160,wnd->top+290,0);
     
586.                           DisplaySwitch(wnd->left+22+240,wnd->top+290,1);
     
587.                         }
     
588.                    break;
     
589.                  default:
     
590.                    break;
     
591.                  }
     
592.            break;
     
593.          case 2:
     
594.             switch(id)
     
595.                 {
     
596.                 case 11:
     
597.                         sscanf(ch10,"%ld",&Yhead.NNumb);
     
598.        if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
     
599.        {
     
600.        ErrorMessage("标准错误!");
     
601.        return(1);
     
602.        }
     
603.         ClearWindowRect(wnd,16,8,234,16);
     
604.         ccwprintf(wnd,16,6,VGA_BLACK,"应输入样品个数 : %d",reasonnumber);
     
605.                     break;
     
606.                 default:
     
607.                     break;
     
608.                 }
     
609.             break;
     
610.          default:
     
611.            break;
     
612.          }
     
613.     }while(1);
     
614. }
     
615. 
     
616. 
     
617. 
     
618. void DataYpProcess(char *Fname)
     
619. {
     
620. POPUPWINDOW *wnd;
     
621. int Selected,CursorX,CursorY,Classid,id;
     
622. FILE    *fp;
     
623. long    SampleNumb;
     
624. float   value[110];
     
625. char    ch[110][15];
     
626. long    startnumb,i,lbuf,lpara;
     
627. YpHead  Yhead;
     
628. int     return_value;
     
629. int     row,col;
     
630. int     reasonnumber,refusenumber;
     
631. 
     
632.   mouse_off(1);
     
633.   wnd=EstablishPopupWindow(0,0,640,480,VGA_WHITE,1);
     
634.   _setviewport(0,0,639,479);
     
635.   _setcolor(VGA_LIGHTGRAY);
     
636.   _rectangle(_GFILLINTERIOR,1,20,149,473);
     
637.   _setcolor(VGA_BLACK);
     
638.   _rectangle(_GFILLINTERIOR,633,0,639,6);
     
639.   _rectangle(_GFILLINTERIOR,0,460,639,479);
     
640.   _moveto(150,20);
     
641.   _lineto(150,479);
     
642. 
     
643.   SetTitle(wnd,"半 成 品 、成 品 质 量 管 理");
     
644.   EstablishPressButton(wnd,20,50,80,32,"文 件(F)",1,0xff21);
     
645.   EstablishPressButton(wnd,20,120,80,32,"编 辑(E)",2,0xff12);
     
646.   EstablishPressButton(wnd,20,190,80,32,"采 集(A)",3,0xff1e);
     
647.   EstablishPressButton(wnd,20,260,80,32,"统 计(S)",4,0xff1f);
     
648.   EstablishPressButton(wnd,20,330,80,80,"退 出(X)",ID_CANCEL,0xff2d);
     
649. 
     
650.   if((fp = fopen(Fname,"rb"))==NULL)
     
651.   {
     
652.     ErrorMessage("没有数据文件!");
     
653.     return;
     
654.   }
     
655.   fseek(fp,0l,SEEK_SET);
     
656.   fread(&Yhead,sizeof(YpHead),1,fp);
     
657.   if(Yhead.password != 0x4347)
     
658.    {
     
659.   ErrorMessage("数据文件格式错误!");
     
660.   fclose(fp);
     
661.   return;
     
662.   }
     
663. 
     
664.   for(i = 0;i < MaxFrame;i++) /* clear ch[] */
     
665.   ch[i][0] = 0;
     
666. 
     
667.   fread(&SampleNumb,4,1,fp);
     
668.   if(SampleNumb != 0)
     
669.   fread(value,4,min(SampleNumb*2,MaxFrame),fp);
     
670.   fclose(fp);
     
671. 
     
672.   if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
     
673.   {
     
674.   ErrorMessage("AQL规格错误!");
     
675.   return;
     
676.   }
     
677.   for(i = 0;i < min(SampleNumb*2,MaxFrame);i+=2)
     
678.   sprintf(ch[i],"%.3f",value[i]);
     
679. 
     
680.   for(i = 1;i < min(SampleNumb*2,MaxFrame);i+=2)
     
681.   sprintf(ch[i],"%.5f",value[i]);
     
682. 
     
683.   startnumb = 0;
     
684.   for(row = 0;row < MaxFrame/10;row ++)
     
685.   {
     
686.     ccwprintf(wnd,152,row*20*2,VGA_RED,"%6d",row*5+1);
     
687.     ccwprintf(wnd,176,(row*2+1)*20,VGA_RED,"1/Q");
     
688.     for(col = 0;col < 5;col++)
     
689.     {
     
690.     EstablishEntryField(wnd,202+col*83,row*20*2,84,21,"",FLOAT,ch[row*10+col*2],NULL,NULL,100+row*10+col*2,NONEKEY);
     
691.     EstablishEntryField(wnd,202+col*83,row*20*2+20,84,21,"",FLOAT,ch[row*10+col*2+1],NULL,NULL,100+row*10+col*2+1,NONEKEY);
     
692.     }
     
693.   }
     
694.   EstablishVScrollBar(wnd,618,0,MaxLength*20,0,max(10,(long)(SampleNumb*2)),0,1,110,10,NONEKEY,NONEKEY,0xff49,0xff51);
     
695. 
     
696.   mouse_on(1);
     
697.   move_mouse(320,240);
     
698.   Selected = 0;
     
699.   do
     
700.   {
     
701.     Dialog(wnd,
     
702.           &Selected,
     
703.           &CursorX,
     
704.           &CursorY,
     
705.           &Classid,
     
706.           &id,
     
707.           &lpara);
     
708. 
     
709.           switch(Classid)
     
710.           {
     
711.             case 1:
     
712.               switch(id)
     
713.               {
     
714.                   case ID_CANCEL:
     
715.                         break;
     
716.                   case 1:
     
717.                         return_value = SelectYpFile(Fname);
     
718.   if((fp = fopen(Fname,"rb"))==NULL)
     
719.   {
     
720.     ErrorMessage("没有数据文件!");
     
721.     DeletePopupWindow(wnd);
     
722.     return;
     
723.   }
     
724.   fseek(fp,0l,SEEK_SET);
     
725.   fread(&Yhead,sizeof(YpHead),1,fp);
     
726.   if(Yhead.password != 0x4347)
     
727.    {
     
728.   ErrorMessage("数据文件格式错误!");
     
729.   fclose(fp);
     
730.     DeletePopupWindow(wnd);
     
731.     return;
     
732.   }
     
733. 
     
734.   for(i = 0;i < MaxFrame;i++)
     
735.   ch[i][0] = 0;
     
736.   fread(&SampleNumb,4,1,fp);
     
737.   if(SampleNumb != 0)
     
738.   fread(value,4,min(SampleNumb*2,MaxFrame),fp);
     
739.   fclose(fp);
     
740. 
     
741. if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
     
742. {
     
743. ErrorMessage("规格错误!");
     
744. return;
     
745. }
     
746. for(i = 0;i < min(SampleNumb*2,MaxFrame);i+=2)
     
747. sprintf(ch[i],"%.3f",value[i]);
     
748. 
     
749. for(i = 1;i < min(SampleNumb*2,MaxFrame);i+=2)
     
750. sprintf(ch[i],"%.5f",value[i]);
     
751. 
     
752. startnumb = 0;
     
753. ClearWindowRect(wnd,152,0,50,439);
     
754. for(row = 0;row < MaxFrame/10;row ++)
     
755. {
     
756.    ccwprintf(wnd,152,row*40,VGA_RED,"%6d",row*5+1);
     
757.    ccwprintf(wnd,176,row*40+20,VGA_RED,"1/Q");
     
758.    for(col = 0;col < 10;col++)
     
759.    ModifyDataEntry(wnd,100+row*10+col,ch[(row*10+col)]);
     
760. }
     
761. ModifyVScrollBar(wnd,618,0,MaxLength*20,0,max(10,(long)(SampleNumb*2)),startnumb,1,110,10,NONEKEY,NONEKEY,0xff49,0xff51);
     
762.          break;
     
763.    case 2:
     
764.          Selected = 2;
     
765.          CursorX = 100;
     
766.          break;
     
767.    case 3:
     
768.          if (y_n(Fname) == 0)
     
769.             {
     
770.          autoaq(Fname);
     
771.            fp = fopen(Fname,"rb");
     
772.            fseek(fp,sizeof(YpHead),SEEK_SET);
     
773. 
     
774.            for(i = 0;i < MaxFrame;i++)
     
775.               ch[i][0] = 0;
     
776. 
     
777.            fread(&SampleNumb,4,1,fp);
     
778.            if(SampleNumb != 0)
     
779.              fread(value,4,min(SampleNumb*2,MaxFrame),fp);
     
780.            fclose(fp);
     
781. 
     
782.            for(i = 0;i < min(SampleNumb*2,MaxFrame);i+=2)
     
783.            sprintf(ch[i],"%.3f",value[i]);
     
784. 
     
785.            for(i = 1;i < min(SampleNumb*2,MaxFrame);i+=2)
     
786.            sprintf(ch[i],"%.5f",value[i]);
     
787. 
     
788.            startnumb = 0;
     
789.            ClearWindowRect(wnd,152,0,50,439);
     
790.            for(row = 0;row < MaxFrame/10;row ++)
     
791.             {
     
792.              ccwprintf(wnd,152,row*40,VGA_RED,"%6d",row*5+1);
     
793.              ccwprintf(wnd,176,row*40+20,VGA_RED,"1/Q");
     
794.              for(col = 0;col < 10;col++)
     
795.              ModifyDataEntry(wnd,100+row*10+col,ch[(row*10+col)]);
     
796.             }
     
797.          ModifyVScrollBar(wnd,618,0,MaxLength*20,0,max(10,(long)(SampleNumb*2)),startnumb,1,110,10,NONEKEY,NONEKEY,0xff49,0xff51);
     
798.             break;
     
799.             }
     
800.           else
     
801.             break;
     
802. 
     
803.    case 4:
     
804.          STATISRESULT(Fname);
     
805.          break;
     
806.              }
     
807.              break;
     
808.            case 2:
     
809.              if(ch[(id-100)][0]!=0)
     
810.              {
     
811.              if((startnumb+id-100)/2 >= reasonnumber)
     
812.              {
     
813.                ErrorMessage(" Data too many ");
     
814.                break;
     
815.              }
     
816.              if(startnumb+id-100 > SampleNumb*2)
     
817.              {
     
818.                ErrorMessage("前面数据还未输入!");
     
819.                break;
     
820.              }
     
821.              sscanf(ch[(id-100)],"%f",&value[id-100]);
     
822.              fp = fopen(Fname,"r+b");
     
823.              if(startnumb+id-100 == SampleNumb*2)
     
824.              {
     
825.               SampleNumb++;
     
826.               sscanf(ch[id-100+1],"%f",&value[id-99]);
     
827.              fseek(fp,sizeof(YpHead),SEEK_SET);
     
828.              fwrite(&SampleNumb,4,1,fp);
     
829.              fseek(fp,(startnumb+id-100)*4,SEEK_CUR);
     
830.              fwrite(&value[id-100],4,1,fp);
     
831.              fwrite(&value[id-99],4,1,fp);
     
832.              }
     
833.              else
     
834.              {
     
835.              fseek(fp,sizeof(YpHead),SEEK_SET);
     
836.              fwrite(&SampleNumb,4,1,fp);
     
837.              fseek(fp,(startnumb+id-100)*4,SEEK_CUR);
     
838.              fwrite(&value[id-100],4,1,fp);
     
839.              }
     
840.              fclose(fp);
     
841.              if(id==109)
     
842.                       ModifyVScrollBar(wnd,618,0,MaxLength*20,0,max(10,(long)(SampleNumb*2)),startnumb,1,110,10,NONEKEY,NONEKEY,0xff49,0xff51);
     
843.              }
     
844.              if((Selected != 1)||(CursorX < 640))  break;
     
845.              switch(CursorX)
     
846.              {
     
847.                case 0x0f48:
     
848.                   if(id > 100)
     
849.                    {
     
850.                     CursorX = id-1;
     
851.                     Selected = 2;
     
852.                    }
     
853.                   else
     
854.                    {
     
855.                     if(startnumb > 0)
     
856.                      {
     
857.                       startnumb -=2;
     
858.                       fp = fopen(Fname,"rb");
     
859.                       fseek(fp,sizeof(YpHead)+4+startnumb*4,SEEK_SET);
     
860.                       fread(value,4,min(SampleNumb*2-startnumb,MaxFrame),fp);
     
861.                       fclose(fp);
     
862. 
     
863.                       for(i = 0;i < MaxFrame;i++)
     
864.                       ch[i][0] = 0;
     
865. for(i = 0;i < min(SampleNumb*2,MaxFrame);i+=2)
     
866. sprintf(ch[i],"%.3f",value[i]);
     
867. 
     
868. for(i = 1;i < min(SampleNumb*2,MaxFrame);i+=2)
     
869. sprintf(ch[i],"%.5f",value[i]);
     
870. 
     
871.                       ClearWindowRect(wnd,152,0,50,439);
     
872.                       for(row = 0;row < MaxFrame/10;row ++)
     
873.                        {
     
874.    ccwprintf(wnd,152,row*40,VGA_RED,"%6d",startnumb/2+row*5+1);
     
875.    ccwprintf(wnd,176,row*40+20,VGA_RED,"1/Q");
     
876.    for(col = 0;col < 10;col++)
     
877.    ModifyDataEntry(wnd,100+row*10+col,ch[(row*10+col)]);
     
878.                        }
     
879.                       CursorX = id;
     
880.                       Selected = 2;
     
881.                       ModifyVScrollBar(wnd,618,0,MaxLength*20,0,max(10,(long)(SampleNumb*2)),startnumb,1,110,10,NONEKEY,NONEKEY,0xff49,0xff51);
     
882.                      }
     
883.                     else
     
884.                      {
     
885.                      Selected = 2;
     
886.                      CursorX = id;
     
887.                      }
     
888.                    }
     
889.                   break;
     
890.                case 0x0f50:
     
891.                   if(startnumb+id-100<SampleNumb*2)
     
892.                    {
     
893.                      if(id < 209)
     
894.                       {
     
895.                        CursorX = id+1;
     
896.                        Selected = 2;
     
897.                       }
     
898.                       else
     
899.                       {
     
900.                          startnumb += 2;
     
901.                          startnumb = startnumb/2*2;
     
902.                          fp = fopen(Fname,"rb");
     
903.                       fseek(fp,sizeof(YpHead)+4+startnumb*4,SEEK_SET);
     
904.                          fread(value,4,min(SampleNumb*2-startnumb,MaxFrame),fp);
     
905.                          fclose(fp);
     
906. 
     
907.                          for(i = 0;i < MaxFrame;i++)
     
908.                            ch[i][0] = 0;
     
909.                          for(i = 0;i < min(SampleNumb*2,MaxFrame);i+=2)
     
910.                            sprintf(ch[i],"%.3f",value[i]);
     
911. 
     
912.                          for(i = 1;i < min(SampleNumb*2,MaxFrame);i+=2)
     
913.                          sprintf(ch[i],"%.5f",value[i]);
     
914. 
     
915.                          ClearWindowRect(wnd,152,0,50,439);
     
916.                           for(row = 0;row < MaxFrame/10;row ++)
     
917.                         {
     
918.                     ccwprintf(wnd,152,row*40,VGA_RED,"%6d",startnumb/2+row*5+1);
     
919.                     ccwprintf(wnd,176,row*40+20,VGA_RED,"1/Q");
     
920.                     for(col = 0;col < 10;col++)
     
921.                     ModifyDataEntry(wnd,100+row*10+col,ch[(row*10+col)]);
     
922.                        }
     
923.                          CursorX = id;
     
924.                          Selected = 2;
     
925.                          ModifyVScrollBar(wnd,618,0,MaxLength*20,0,max(10,(long)(SampleNumb*2)),startnumb,1,110,10,NONEKEY,NONEKEY,0xff49,0xff51);
     
926.                       }
     
927.                      }
     
928.                      else
     
929.                      {Selected = 2;
     
930.                       CursorX = id;
     
931.                      }
     
932.                      break;
     
933.                case 0x0f1e:
     
934.                      Selected = 2;
     
935.                      CursorX = 3;
     
936.                      break;
     
937.                case 0x0f1f:
     
938.                      Selected = 2;
     
939.                      CursorX = 4;
     
940.                      break;
     
941.                case 0x0f21:
     
942.                      Selected = 2;
     
943.                      CursorX = 1;
     
944.                      break;
     
945.                case 0x0f2d:
     
946.                      id = ID_CANCEL;
     
947.                      break;
     
948.                default:
     
949.                      break;
     
950.              }
     
951.              break;
     
952.            case 4:
     
953.              startnumb = lpara;
     
954.              startnumb = startnumb/2*2;
     
955.              for(i = 0;i < MaxFrame;i++)
     
956.              {
     
957.                ch[i][0] = 0;
     
958.                value[i] = 0.0;
     
959.              }
     
960.              fp = fopen(Fname,"rb");
     
961.               fseek(fp,sizeof(YpHead)+4+startnumb*4,SEEK_SET);
     
962.              lbuf = SampleNumb*2-startnumb;
     
963.              if(SampleNumb*2 > startnumb)
     
964.              fread(value,4,min(lbuf,MaxFrame),fp);
     
965.              fclose(fp);
     
966. 
     
967. for(i = 0;i < min(lbuf,MaxFrame);i+=2)
     
968. sprintf(ch[i],"%.3f",value[i]);
     
969. 
     
970. for(i = 1;i < min(lbuf,MaxFrame);i+=2)
     
971. sprintf(ch[i],"%.5f",value[i]);
     
972. 
     
973.                       ClearWindowRect(wnd,152,0,50,439);
     
974.                       for(row = 0;row < MaxFrame/10;row ++)
     
975.                        {
     
976.    ccwprintf(wnd,152,row*40,VGA_RED,"%6d",startnumb/2+row*5+1);
     
977.    ccwprintf(wnd,176,row*40+20,VGA_RED,"1/Q");
     
978.    for(col = 0;col < 10;col++)
     
979.    ModifyDataEntry(wnd,100+row*10+col,ch[(row*10+col)]);
     
980.                        }
     
981.              break;
     
982.            default:
     
983.              break;
     
984.          }
     
985. 
     
986. }while(id!=ID_CANCEL);
     
987. 
     
988. DeletePopupWindow(wnd);
     
989. return;
     
990. }
     
991. 
     
992. 
     
993. /*----------------------------------------------------------------------*/
     
994. /*      histo: Draw a 2-D bar chart using Bar and Rectangle.            */
     
995. /*----------------------------------------------------------------------*/
     
996. unsigned char new_fillmask[] =
     
997.                         {
     
998.                         0xaa,
     
999.                         0x55,
     
1000.                         0xaa,
      
1001.                         0x55,
      
1002.                         0xaa,
      
1003.                         0x55,
      
1004.                         0xaa,
      
1005.                         0x55
      
1006.                         };
      
1007. 
      
1008. 
      
1009. void STATISRESULT(char *Fname)
      
1010. {
      
1011. struct stat filestat;
      
1012. FILE *          printer_pointer;
      
1013. int             xstep, ystep,x_axis,y_axis,x,y;
      
1014. int             swidth,tall;
      
1015. int             i;
      
1016. int             j, h,w,x0,y0;
      
1017. float           y_step0,y_value,min_y,max_y,max_y0;
      
1018. int             ul_x,ul_y,dr_x,dr_y;
      
1019. unsigned int    bin_number = 21;
      
1020. float           lower_bound;
      
1021. float           upper_bound;
      
1022. float           x_step0;
      
1023. char            x_name[]="容 量";
      
1024. POPUPWINDOW     * wnd;
      
1025. int             id,Classid;
      
1026. int             Selected,CursorX,CursorY;
      
1027. long            lpara;
      
1028. FILE            *Data;
      
1029. float           min_value,max_value,CP=0;
      
1030. long            SampleNumb;
      
1031. float           SampleValue,DFValue;
      
1032. int             x_number;
      
1033. float           value[21];
      
1034. float           bad_rate,bad_rate_n,supervalue;
      
1035. float           total_mean,total_ss,tp,cp,K,Z1,Z2,bad_rate1,bad_rate2;
      
1036. int             below,abovenum;
      
1037. float           foxX,oxfX2;
      
1038. struct dosdate_t dos_date;
      
1039. YpHead          Yhead;
      
1040. char            *AQL[]={ "   ",
      
1041.                          "0.65",
      
1042.                          "1.0",
      
1043.                          "1.5"
      
1044.                        };
      
1045. float           DF,max_DF;
      
1046. long            upDF;
      
1047. int             reasonnumber,refusenumber;
      
1048. char            drive[_MAX_DRIVE],dir[_MAX_DIR],file[_MAX_FNAME],ext[_MAX_EXT];
      
1049. time_t ltime;
      
1050. 
      
1051. 
      
1052.         _splitpath(Fname,drive,dir,file,ext);
      
1053.         for(i = 0;i < 21;i++)
      
1054.         value[i] = 0.0;
      
1055.         if((Data = fopen(Fname,"rb")) == NULL)
      
1056.         {
      
1057.           ErrorMessage("打不开数据文件!");
      
1058.           return;
      
1059.         }
      
1060.         fseek(Data,0l,SEEK_SET);
      
1061.         fread(&Yhead,sizeof(YpHead),1,Data);
      
1062. 
      
1063.        if(SplitMaterial(Yhead,&lower_bound,&upper_bound,&DF)==0)
      
1064.        {
      
1065.        fclose(Data);
      
1066.        ErrorMessage("规格错误!");
      
1067.        return;
      
1068.        }
      
1069.        if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
      
1070.        {
      
1071.        fclose(Data);
      
1072.        ErrorMessage("标准错误!");
      
1073.        return;
      
1074.        }
      
1075. 
      
1076.         total_mean = 0;
      
1077.         total_ss = 0;
      
1078.         below = abovenum = 0;
      
1079.         upDF = 0;
      
1080.         max_DF = 0;
      
1081.         y_step0 = (upper_bound-lower_bound+0.001)/11;
      
1082. 
      
1083.         fread(&SampleNumb,4,1,Data);
      
1084.         if(SampleNumb == 0)
      
1085.         {
      
1086.          fclose(Data);
      
1087.          ErrorMessage("无数据存在");
      
1088.          return;
      
1089.         }
      
1090.         for(i = 0;i < SampleNumb;i++)
      
1091.         {
      
1092.         fread(&SampleValue,4,1,Data);
      
1093.         total_mean += SampleValue;
      
1094.         total_ss += SampleValue*SampleValue;
      
1095.         x_number = (int)((SampleValue-lower_bound)/y_step0);
      
1096.         if(x_number < 0)  below ++;
      
1097.         if(x_number > 10) abovenum ++;
      
1098.         x_number += 5;
      
1099.         if(x_number <0) x_number = 0;
      
1100.         if(x_number > 20) x_number = 20;
      
1101.         value[x_number]++;
      
1102.         fread(&DFValue,4,1,Data);
      
1103.         if(DFValue > DF)
      
1104.          {
      
1105.          if(max_DF < DFValue-DF)  max_DF = DFValue-DF;
      
1106.          upDF ++;
      
1107.          }
      
1108.         }
      
1109.         fclose(Data);
      
1110. 
      
1111.         supervalue = (float)(abovenum+below);
      
1112.         bad_rate_n = (float)(supervalue/SampleNumb);
      
1113.         /*
      
1114.         bad_rate_n = (float)(supervalue/reasonnumber);
      
1115.          */
      
1116. 
      
1117.         total_mean /= SampleNumb;
      
1118.         if(total_ss == total_mean*total_mean*SampleNumb)  total_ss = 0;
      
1119.         else
      
1120.         total_ss = sqrt(total_ss/SampleNumb-total_mean*total_mean);
      
1121.         if(total_ss)
      
1122.         cp = (upper_bound-lower_bound)/(Yhead.delta*total_ss*2);
      
1123.         else cp = 1;
      
1124.         K = fabs((lower_bound+upper_bound)/2-total_mean)/((upper_bound-lower_bound)/2);
      
1125.         Z1 = Yhead.delta*cp*(1+K);
      
1126.         Z2 = Yhead.delta*cp*(1-K);
      
1127.         if(Z1 <= 3.0)  bad_rate1 = 1-AccGS[(int)((Z1+0.025)*20)];
      
1128.           else  if(Z1 <= 4.9)   bad_rate1 = AuxGS[(int)((Z1+0.05)*10-30)];
      
1129.                  else bad_rate1 = AuxGS[19];
      
1130.         if(Z2 <= 3.0)   bad_rate2 = 1-AccGS[(int)((Z2+0.025)*20)];
      
1131.           else  if(Z2 <= 4.9)  bad_rate2 = AuxGS[(int)((Z2+0.05)*10-30)];
      
1132.                   else bad_rate2 = AuxGS[19];
      
1133.         max_y0 = 0;
      
1134.         bad_rate = bad_rate1+bad_rate2;
      
1135.         for(i = 0; i < 21; i++)
      
1136.         {
      
1137.         value[i] = value[i]*100/SampleNumb;
      
1138.         if(value[i] > max_y0)  max_y0 = value[i];
      
1139.         }
      
1140.         max_y0 = max_y0/10*10 + 10;
      
1141. 
      
1142. 
      
1143.         mouse_off(1);
      
1144. 
      
1145.         h = 16; /* Character height */
      
1146.         w = 8;  /* character width  */
      
1147. 
      
1148.         ul_x = 0;
      
1149.         ul_y = 0;
      
1150.         dr_x = 639;
      
1151.         dr_y = 479;
      
1152. 
      
1153.         _setfillmask(NULL);
      
1154. 
      
1155.         /* -------- Establist histo window -------- */
      
1156.         wnd = EstablishPopupWindow(ul_x,ul_y,dr_x-ul_x+1,dr_y-ul_y+1,
      
1157.                                    VGA_DARKWHITE,1);
      
1158.         SetTitle(wnd,"ＣＷＴ成品质检抽样频数分布图                         ");
      
1159.         DisplayTM(10,425);
      
1160.         /* Return button */
      
1161.         EstablishPressButton(wnd,460,400,74,40,"返 回(R)",ID_OK,0xff13);
      
1162.         /* Print histogram button */
      
1163.         EstablishPressButton(wnd,320,404,74,32,"打 印(P)",5,0xff19);
      
1164. 
      
1165.         ccprintf(ul_x+16*27,ul_y+2,VGA_BLACK,"应抽样数:%d",reasonnumber);
      
1166.         ccwprintf(wnd,10,5,VGA_BLACK,"批号:%-s",file);
      
1167.     /* Get UNIX-style time and display as number and string. */
      
1168.         time( <ime );
      
1169.         ccwprintf(wnd,160+16*9,8,VGA_BLACK,"%s", ctime( <ime ) );
      
1170.     /*
      
1171.     printf( "Time in seconds since GMT 1/1/70:\t%ld\n", ltime );
      
1172.     printf( "UNIX time and date:\t\t\t%s", ctime( <ime ) );
      
1173.      */
      
1174.         switch(ext[1])
      
1175.         {
      
1176.         case 'y':
      
1177.         case 'Y':
      
1178.             if( !stat( Fname, &filestat ) )
      
1179.             {
      
1180.             ccwprintf(wnd,160,5,VGA_BLACK,"银片来料抽检时间:");
      
1181.             ccwprintf(wnd,160+16*9,0,VGA_BLACK,"%s", Yhead.time );
      
1182.             }
      
1183.             break;
      
1184.         case '2':
      
1185.             if( !stat( Fname, &filestat ) )
      
1186.             {
      
1187.             ccwprintf(wnd,160,5,VGA_BLACK,"焊锡后抽检时间:");
      
1188.             ccwprintf(wnd,160+16*9,0,VGA_BLACK,"%s", ctime( &filestat.st_atime ) );
      
1189.             }
      
1190.             break;
      
1191.         case '3':
      
1192.              if( !stat( Fname, &filestat ) )
      
1193.              {
      
1194.              ccwprintf(wnd,160,5,VGA_BLACK,"固化后抽检时间");
      
1195.              ccwprintf(wnd,160+16*9,0,VGA_BLACK,"%s", ctime( &filestat.st_atime ) );
      
1196.              }
      
1197.             break;
      
1198.         case '4':
      
1199.             if( !stat( Fname, &filestat ) )
      
1200.             {
      
1201.             ccwprintf(wnd,160,5,VGA_BLACK,"测试工序抽检时间:");
      
1202.             ccwprintf(wnd,160+16*9,0,VGA_BLACK,"%s", ctime( &filestat.st_atime ) );
      
1203.             }
      
1204.             break;
      
1205.         case '5':
      
1206.             if( !stat( Fname, &filestat ) )
      
1207.             {
      
1208.             ccwprintf(wnd,160,5,VGA_BLACK,"包装入库抽检时间:");
      
1209.             ccwprintf(wnd,160+16*9,0,VGA_BLACK,"%s", ctime( &filestat.st_atime ) );
      
1210.             }
      
1211.             break;
      
1212.         default:
      
1213.             break;
      
1214.         }
      
1215.         /*
      
1216.         ccwprintf(wnd,350,5,VGA_BLACK,"公差幅度:%f,%-f",lower_bound,upper_bound);
      
1217.          */
      
1218. 
      
1219.         ccwprintf(wnd,10,35,VGA_BLACK,"     组  界        组中值    已抽样数:%-ld",SampleNumb);
      
1220.         ccwprintf(wnd,10+26*w+8+21*11,35,VGA_BLACK,"频数");
      
1221. 
      
1222.         tall = 21*11 ;
      
1223. 
      
1224.         /* original pointer */
      
1225.         x0 = 10+26*w + ul_x;
      
1226.         y0 = ul_y +55 + 20;
      
1227. 
      
1228.         /* swidth : histogram width */
      
1229.         /* ---- X step & swidth ---- */
      
1230.         swidth  = 21*11;
      
1231.         ystep = 11;
      
1232. 
      
1233.         /* ---- histo area ---- */
      
1234.         _setcolor(VGA_WHITE);
      
1235.         _rectangle(_GFILLINTERIOR,x0,y0 ,swidth+x0,y0+tall);
      
1236.         _setcolor(VGA_BLACK);
      
1237.         _rectangle(_GBORDER,x0,y0 ,swidth+x0,y0+tall);
      
1238.         line(ul_x,dr_y-66,dr_x,dr_y-66);
      
1239. 
      
1240.         /* ---- unit ---- */
      
1241. /*      if( *Unit)
      
1242.         {
      
1243.           x =  x0+bin_number*xstep/2,
      
1244.           y =  y0+h+h/2;
      
1245.           ccprintf(x+8,y,VGA_BLACK,"单位:(%s)",Unit);
      
1246.         }
      
1247. */
      
1248.         /* ---- Ver dot line ---- */
      
1249.         _setcolor(VGA_DARKGRAY);
      
1250.         y_axis = ystep*5+y0;
      
1251.           _setlinestyle(0xaaaa);
      
1252.           line(x0,y_axis,x0+tall-1,y_axis);
      
1253.           line(x0,y_axis+ystep*11,x0+tall-1,y_axis+ystep*11);
      
1254.           _setlinestyle(0xffff);
      
1255. 
      
1256.         j = x0;
      
1257. 
      
1258.         /* ---- Her dot line ---- */
      
1259.         x_step0 = 10;
      
1260.         xstep = (int)(tall*x_step0/ max_y0) ;
      
1261.         while( xstep > 100)
      
1262.         {
      
1263.           x_step0 /= 5.0;
      
1264.           xstep = (int)(tall*x_step0/ max_y0);
      
1265.         }
      
1266. 
      
1267.         /* ---- Y - axis ----- */
      
1268.         x_axis = x0;
      
1269.         i = 0 ;
      
1270.         while( x_axis <= (x0+tall) )
      
1271.         {
      
1272.           line( x_axis,y0+tall, x_axis, y0+tall+4 );
      
1273.           x = x_axis-8;
      
1274.           y = y0+tall;
      
1275.           ccprintf(x,y,VGA_BLACK,"%-3d",(int)(x_step0 *((float) i)));
      
1276. 
      
1277.           _setlinestyle(0xaaaa);
      
1278.           line(x_axis,y0,x_axis,ystep*bin_number + y0);
      
1279.           _setlinestyle(0xffff);
      
1280. 
      
1281.           i ++;
      
1282.           x_axis = (int) (x0 +((int) i*x_step0/ max_y0)*tall + 0.5  );
      
1283.         }
      
1284.         x_axis = x0;
      
1285.         i = 0;
      
1286.         while( x_axis <= (x0+tall))
      
1287.         {
      
1288.           line(x_axis,y0+tall, x_axis, y0+tall+2 );
      
1289.           i ++;
      
1290.           x_axis = (int)(x0 + i*tall*x_step0/ max_y0/2 + 0.5);
      
1291.         }
      
1292.         x = x0 +tall+4+10;
      
1293.         y = y0 +tall;
      
1294.         ccprintf(x,y,VGA_BLACK,"%%");
      
1295. 
      
1296.         /* ---- histo bins ---- */
      
1297.         j = y0;
      
1298.         for( i=0 ; i < bin_number ; ++i )
      
1299.         {
      
1300.           y_value =  value[i];
      
1301. 
      
1302.           x_axis = (int)(x0 + y_value/max_y0 * tall + 0.5);
      
1303. 
      
1304.           _setcolor(VGA_WHITE);
      
1305.           _setfillmask(NULL);
      
1306.           _rectangle(_GFILLINTERIOR,  x0, j, x_axis, j+ystep);
      
1307. 
      
1308.           _setcolor(VGA_DARKGRAY);
      
1309.           _setfillmask(new_fillmask);
      
1310.           _rectangle(_GBORDER, x0,j,x_axis, j+ystep);
      
1311.           if(x_axis > x0 + 1)
      
1312.           {
      
1313.             _floodfill(x0+1,j+1,VGA_DARKGRAY);
      
1314.           }
      
1315.           ccprintf(0,y0+11*i-6,VGA_BLACK,"%9.2f-%-9.2f",lower_bound+(i-5)*y_step0,lower_bound+(i-4)*y_step0);
      
1316.           ccprintf(90+48,y0+11*i-6,VGA_BLACK,"%9.2f",lower_bound+(i-4.5)*y_step0);
      
1317.           ccprintf(x0+tall+2,y0+11*i-6,VGA_BLACK,"%-d",(int)(value[i]*SampleNumb/100+0.1));
      
1318. 
      
1319.           line( x0-2,j, x0, j );
      
1320.           j += ystep;
      
1321. 
      
1322.         } /* all bins */
      
1323. 
      
1324.         _setfillmask(NULL);
      
1325. 
      
1326.         line( x0-4, y0, x0, y0 );
      
1327.         line( x0-4,j, x0, j );
      
1328. 
      
1329.         ccwprintf(wnd,x0+tall+w*7,35,VGA_BLUE,"公差幅度:");
      
1330.         ccprintf(x0+tall+w*7,y0+ystep*5+8,VGA_BLUE,"下限:%-.2f",lower_bound);
      
1331.         ccprintf(x0+tall+w*7,y0+ystep*5-8,VGA_BLUE,"超下数:%-d",below);
      
1332.         ccprintf(x0+tall+w*7,y0+ystep*16+8,VGA_BLUE,"超上数:%-d",abovenum);
      
1333.         ccprintf(x0+tall+w*7,y0+ystep*16-8,VGA_BLUE,"上限:%-.2f",upper_bound);
      
1334. 
      
1335.         ccprintf(10,y0+tall+h,VGA_BLACK,"规格: %s",Yhead.material);
      
1336.         ccprintf(160,y0+tall+h,VGA_BLACK,"质量特性名:%s  单位:%s",Yhead.sob,Yhead.Unit);
      
1337.         ccprintf(365,y0+tall+h,VGA_BLACK,"AQL = %s",AQL[Yhead.standard]);
      
1338.         ccprintf(460,y0+tall+h,VGA_RED,"总超限数应小于 %d",refusenumber);
      
1339.         /*
      
1340.         ccprintf(350,y0+tall+h,VGA_BLACK,"应抽样数:%d",reasonnumber);
      
1341.          */
      
1342.         ccprintf(10,y0+tall+h*2+2,VGA_BLACK,"合格品率:%-.2f%%",100-bad_rate_n*100);
      
1343.         ccprintf(10+142,y0+tall+h*2+2,VGA_BLACK,"不合格品率:%-.2f%%",bad_rate_n*100);
      
1344.         ccprintf(10+290,y0+tall+h*2+2,VGA_BLACK,"方差:%-f",total_ss);
      
1345.         ccprintf(10+450,y0+tall+h*2+2,VGA_BLACK,"偏差调节系数: %d",Yhead.delta);
      
1346.         ccprintf(10,y0+tall+h*3+4,VGA_BLACK,"最大容量:%-.4f",CP);
      
1347.         ccprintf(10+142,y0+tall+h*3+4,VGA_BLACK,"均值:%-.4f",total_mean);
      
1348.         ccprintf(10+290,y0+tall+h*3+4,VGA_BLACK,"最小容量:%-.4f",CP);
      
1349.         ccprintf(10+435,y0+tall+h*3+4,VGA_BLACK,"总数量: %ld",Yhead.NNumb);
      
1350. 
      
1351. 
      
1352.         ccprintf(10,y0+tall+h*4+6,VGA_BLACK,"标准损耗:%-.5f",DF);
      
1353.         ccprintf(10+142,y0+tall+h*4+6,VGA_BLACK,"超标数:%-ld",upDF);
      
1354.         ccprintf(10+290,y0+tall+h*4+6,VGA_BLACK,"最大差值:%-.5f",max_DF);
      
1355.         ccprintf(10+435,y0+tall+h*4+6,VGA_BLACK,"温度: %-.2f",Yhead.Temp);
      
1356. 
      
1357.         ccprintf(10,y0+tall+h*5+8,VGA_BLACK,"最大损耗:%-.5f",DF);
      
1358.         ccprintf(10+142,y0+tall+h*5+8,VGA_BLACK,"平均值:%-.5f",total_mean);
      
1359.         ccprintf(10+290,y0+tall+h*5+8,VGA_BLACK,"最小损耗:%-.5f",DF);
      
1360. /*        ccprintf(10+435,y0+tall+h*5+8,VGA_BLACK,"工程能力指数:%-.4f",cp);*/
      
1361.         ccprintf(10+435,y0+tall+h*5+8,VGA_BLACK,"等效电阻:%-.2f",Yhead.Requ);
      
1362. 
      
1363. 
      
1364.         mouse_on(1);
      
1365. 
      
1366.         Selected = 0;
      
1367.         do
      
1368.         {
      
1369.           Dialog(wnd,
      
1370.                 &Selected,
      
1371.                 &CursorX,
      
1372.                 &CursorY,
      
1373.                 &Classid,
      
1374.                 &id,
      
1375.                 &lpara);
      
1376.         switch(id)
      
1377.         {
      
1378.           case 5:
      
1379.                     print_screen(1,1,dr_y-68,dr_x-7);
      
1380.                     break;
      
1381.           default:
      
1382.                     break;
      
1383.         }
      
1384. 
      
1385.         }while(id != ID_OK);
      
1386. 
      
1387.         DeletePopupWindow(wnd);
      
1388. 
      
1389. 
      
1390. 
      
1391. }
      
1392. 
      
1393. /* -----------------------------------------------------------------------
      
1394.   DisplayTM : Display "CWT Co." Trade Mark
      
1395. 
      
1396. -------------------------------------------------------------------------- */
      
1397. void DisplayTM(int x,int y)
      
1398. {
      
1399. int     old_color;
      
1400. 
      
1401. 
      
1402.         old_color = _getcolor();
      
1403. 
      
1404.         _setviewport(x,y,x+285,y+31);
      
1405.         _clearscreen(_GVIEWPORT);
      
1406. 
      
1407.         _setcolor(VGA_LIGHTGRAY);
      
1408.         _rectangle(_GFILLINTERIOR,0,0,322,32);
      
1409. 
      
1410.         _setcolor(VGA_BLUE);
      
1411.         _ellipse(_GFILLINTERIOR,0,0,28,28);
      
1412. 
      
1413.         _setcolor(VGA_WHITE);
      
1414.         line(0,10,28,10);
      
1415.         line(0,11,28,11);
      
1416. 
      
1417.         line(0,12,28,12);
      
1418.         line(0,13,28,13);
      
1419.         line(0,14,28,14);
      
1420.         line(0,15,28,15);
      
1421.         line(0,16,28,16);
      
1422.         line(0,17,28,17);
      
1423.         line(0,18,28,18);
      
1424. 
      
1425.         line(0,19,28,19);
      
1426.         line(0,20,28,20);
      
1427.         ccprintf(0,4,VGA_BLUE,"C");
      
1428.         ccprintf(10,4,VGA_BLUE,"W");
      
1429.         ccprintf(20,4,VGA_BLUE,"T");
      
1430. 
      
1431.         ccprintf(34,6,VGA_BLACK,"中伟达电子实业公司");
      
1432.         /*
      
1433.         ccprintf(34,0,VGA_BLACK,"C W T Electronic");
      
1434.         ccprintf(34,10,VGA_BLACK,"Industry & Commerce Co.");
      
1435.          */
      
1436.         /* recover old viewport */
      
1437.         _setviewport(0,0,639,479);
      
1438.         /* recover old color */
      
1439.         _setcolor(old_color);
      
1440.         return;
      
1441. }
      
1442. 
      
1443. int autoaq(char *Fname)
      
1444. {
      
1445. char            buffer[_MAX_PATH];
      
1446. char            drive[_MAX_DRIVE],dir[_MAX_DIR],file[_MAX_FNAME],ext[_MAX_EXT];
      
1447. struct find_t   fileinfo;
      
1448. YpHead          Yhead;
      
1449. FILE            *data_pointer,*data1_pointer;
      
1450. long            SampleNumb;
      
1451. int             i;
      
1452. int             num, len,len3, ttt, dly;
      
1453. char            buf[230];
      
1454. char            *strng1,c;          /* pointer to the character string */
      
1455. int             key;
      
1456. unsigned char   juk;
      
1457. float   cp,cpt;
      
1458. float   d;
      
1459. float   value[110];
      
1460. char CP[61];
      
1461. char DF[61];
      
1462. char *pdest, *newstring;
      
1463. int  pos;
      
1464. POPUPWINDOW     *wnd;
      
1465. int             Classid,id,Selected,CursorX,CursorY;
      
1466. long            return_lpara;
      
1467. char            ch10[20],ch11[20],ch12[20];
      
1468. unsigned long   FrameX,FrameY;
      
1469. int             reasonnumber,refusenumber;
      
1470. int             primadd, KeyPlay;
      
1471. 
      
1472.   if( (data_pointer = fopen(Fname,"rb")) == NULL)
      
1473.   {
      
1474.     ErrorMessage(" 打不开银片数据文件 ");
      
1475.     return(1);
      
1476.   }
      
1477. 
      
1478. 
      
1479. 
      
1480. 
      
1481.   /* Read default data file name */
      
1482.   fseek(data_pointer,0l,SEEK_SET);
      
1483.   fread(&Yhead,sizeof(YpHead),1,data_pointer);
      
1484.   fread(&SampleNumb,4,1,data_pointer);
      
1485.   fclose(data_pointer);
      
1486. 
      
1487. if(SplitNumber(Yhead,&reasonnumber,&refusenumber)==0)
      
1488. {
      
1489. ErrorMessage("标准错误!");
      
1490. return(1);
      
1491. }
      
1492. 
      
1493.   primadd = 17;
      
1494.   if (!opengpib()) {
      
1495.           printf ("\n\n Drivers not present.\n");
      
1496.           exit ( 10 );
      
1497.   }
      
1498. 
      
1499.   buf[0] = RENT;
      
1500.   buf[1] = TOSET;
      
1501.   buf[2] = 100;
      
1502.   buf[3] = TOEN;
      
1503.   num = writecom (buf, 4);
      
1504.   if (num != 4) {
      
1505.           printf ("\n IEEE command error \n");
      
1506.   }
      
1507. 
      
1508.   sendcom ( LAD + primadd );
      
1509. 
      
1510.   sendcom ( EOIEN );
      
1511. 
      
1512.   strng1 = "TRIG2";
      
1513.   len = strlen (strng1);
      
1514.   num = writedat (strng1, len);    /* send data bytes */
      
1515.   sendcom ( EOIEN );   /* send Primary Talk Addrs */
      
1516. 
      
1517.   if((data1_pointer=fopen(Fname,"wb"))==NULL)
      
1518.   {
      
1519.   ErrorMessage(" 打不开数据文件 ");
      
1520.   return;
      
1521.   }
      
1522.   SampleNumb = 0;
      
1523.   fseek(data1_pointer,94l,SEEK_SET);
      
1524.   fwrite(&SampleNumb,4,1,data1_pointer);
      
1525. 
      
1526.   mouse_off(1);
      
1527.   _setviewport(0,0,639,479);
      
1528. 
      
1529. 
      
1530.   wnd = EstablishPopupWindow(120,60,400,360,VGA_WHITE,1);
      
1531.   SetTitle(wnd,"银 片 抽 检 数 据 文 件");
      
1532. 
      
1533.   ccwprintf(wnd,30,10,VGA_BLACK,"应输入样品个数 : %d",reasonnumber);
      
1534.   ccwprintf(wnd,30,30,VGA_BLACK,"已经输入      个样品");
      
1535.   ccwprintf(wnd,30,130,VGA_BLACK,"插上电容时按[更正]键,当4278A显示值正确后,");
      
1536.   ccwprintf(wnd,30,148,VGA_BLACK,"再按左边的[Ese]键,测量值则存于您在计算机中");
      
1537.   ccwprintf(wnd,30,166,VGA_BLACK,"指定的文件内.按大键盘左上角的[Esc]键,即退出");
      
1538.   ccwprintf(wnd,30,184,VGA_BLACK,"联机测量状态.这时4278A可照常使用.");
      
1539. 
      
1540.   ccwprintf(wnd,30,250,VGA_RED,"退出 -- 按 Esc 键");
      
1541. 
      
1542.   mouse_on(1);
      
1543.   move_mouse(630,470);
      
1544.   do
      
1545.     {
      
1546.      _asm
      
1547.         {
      
1548.          mov  ax,0
      
1549.          mov  dx,201h
      
1550.          in   al,dx
      
1551.          mov  juk,al
      
1552.          }
      
1553. 
      
1554.     if(juk == 0xe0)
      
1555.       {
      
1556.        sendcom ( LAD + primadd );   /* send Primary Talk Addrs */
      
1557. 
      
1558.        strng1 = "DATA?";
      
1559.        len = strlen (strng1);
      
1560.        num = writedat (strng1, len);    /* send data bytes */
      
1561.        sendcom ( EOIEN );   /* send Primary Talk Addrs */
      
1562. 
      
1563.        while( 1 )
      
1564.          {
      
1565.            _asm
      
1566.               {
      
1567.                mov  ax,0
      
1568.                mov  dx,201h
      
1569.                in   al,dx
      
1570.                mov  juk,al
      
1571.                }
      
1572. 
      
1573.                if(juk == 0xf0)
      
1574.                  break;
      
1575.          }
      
1576. 
      
1577.        for( i=0 ; i < 10000; ++i );
      
1578. 
      
1579.        SampleNumb = SampleNumb + 1;
      
1580.        sendcom ( TAD + primadd );   /* send Primary Talk Addrs */
      
1581.        num = readdat ( buf, 25 );   /*   READ DATA           */
      
1582.        buffer[26] = '\0';
      
1583. 
      
1584.        pdest = memccpy( CP, buf, ',', 60 );
      
1585.        pdest = pdest - 1;
      
1586.        *pdest = '\0';
      
1587.        pdest = pdest + 1;
      
1588.        cp = (float)atof( CP );
      
1589.        cpt = cp * 1E+12;
      
1590. 
      
1591.        if(cpt >= 1000)
      
1592.        {
      
1593.          cp = cp * 1E+9;
      
1594.          ClearWindowRect(wnd,30,70,260,25);
      
1595.          ccwprintf(wnd,30,70,VGA_BLUE,"电容值Cp = %.4f nF",cp);
      
1596.        }
      
1597.        else
      
1598.        {
      
1599.          cp = cp * 1E+12;
      
1600.          ClearWindowRect(wnd,30,70,260,25);
      
1601.          ccwprintf(wnd,30,70,VGA_BLUE,"电容值Cp = %.4f pF",cp);
      
1602.         }
      
1603.        pos = pdest - CP;
      
1604.        pdest = memccpy( DF, buf + pos, '+', 60 );
      
1605.        pdest = pdest - 1;
      
1606.        *pdest = '\0';
      
1607.        d = (float)atof( DF );
      
1608. 
      
1609.        ClearWindowRect(wnd,30,30,150,25);
      
1610.        ccwprintf(wnd,30,30,VGA_BLACK,"已经输入%-4d  个样品",SampleNumb);
      
1611.        ClearWindowRect(wnd,30,100,260,25);
      
1612.        ccwprintf(wnd,30,100,VGA_BLUE,"损耗值 D = %.5f ",d);
      
1613. 
      
1614.        fwrite(&cp,4,1,data1_pointer);
      
1615.        fwrite(&d,4,1,data1_pointer);
      
1616.        _setcolor(VGA_WHITE);
      
1617. 
      
1618.       }
      
1619. 
      
1620.       if(kbhit())
      
1621.         {
      
1622.          KeyPlay = get_char();
      
1623.            if(KeyPlay != 27)  KeyPlay = 0;
      
1624.         }
      
1625.     } while(KeyPlay != 27);
      
1626. 
      
1627.     KeyPlay = 0; /* must change the "KeyPlay",so that KeyPlay != 27 */
      
1628. 
      
1629.     sendcom ( LAD + primadd );
      
1630.     strng1 = "*RST";
      
1631.     len = strlen (strng1);
      
1632.     num = writedat (strng1, len);    /* send data bytes */
      
1633.     sendcom ( EOIEN );   /* send Primary Talk Addrs */
      
1634. 
      
1635. 
      
1636.   fseek(data1_pointer,94l,SEEK_SET);
      
1637.   fwrite(&SampleNumb,4,1,data1_pointer);
      
1638. 
      
1639.   Yhead.password = 0x4347;
      
1640.   Yhead.label[0] = 0;
      
1641.   strcpy(Yhead.time,"950619/8:30");
      
1642.   Yhead.NNumb = 100000;
      
1643.   /*
      
1644.   Yhead.material[0] = 0;
      
1645.    */
      
1646.   strcpy(Yhead.material,"4Z/Z5V");
      
1647.   Yhead.standard = 1;
      
1648.   Yhead.delta = 3;
      
1649.   if(cpt >= 1000)
      
1650.   {
      
1651.     strcpy(Yhead.Unit,"nF");
      
1652.   }
      
1653.   else
      
1654.   {
      
1655.     strcpy(Yhead.Unit,"pF");
      
1656.    }
      
1657.   strcpy(Yhead.sob,"电容");
      
1658.   Yhead.Temp = 0.0;
      
1659.   Yhead.Requ = 0.0;
      
1660.   fseek(data1_pointer,0l,SEEK_SET);
      
1661.   fwrite(&Yhead,sizeof(YpHead),1,data1_pointer);
      
1662. 
      
1663.   fclose(data1_pointer);
      
1664. 
      
1665.   buf[0] = RENF;                  /* Send  */
      
1666.   buf[1] = 17 + LAD;          /* make primary listen addrs */
      
1667.   num = writecom (buf, 2);        /* send command bytes */
      
1668.   if(num != 2)
      
1669.     {
      
1670.      ErrorMessage("IEEE 命令错误!");
      
1671.     }
      
1672. 
      
1673.   sendcom (UNL);                  /* send untalk command */
      
1674.   closegpib ();                   /* close drivers at end  */
      
1675. 
      
1676.   DeletePopupWindow(wnd);
      
1677.   return;
      
1678. }
      
1679. 
      
1680. int y_n(char *Fname)
      
1681. {
      
1682. int             curr_da_image_bank;
      
1683. POPUPWINDOW     *wnd;
      
1684. int             id,Selected,CursorX,CursorY;
      
1685. 
      
1686.         /* Establish verify window */
      
1687.         wnd = EstablishPopupWindow(180,150,280,180,VGA_NEWWHITE,1);
      
1688.         SetTitle(wnd,"选 中 文 件 确 认 窗");
      
1689. 
      
1690.         /* OK & Cancel pressbutton */
      
1691.   EstablishPressButton(wnd,40,100,74,40,"确 认(O)",ID_OK,0xff18);
      
1692.   EstablishPressButton(wnd,166,104,74,32,"取 消(C)",ID_CANCEL,0xff2e);
      
1693. 
      
1694.         ccwprintf(wnd,10,12,VGA_BLACK,"现将使用文件 %s ",Fname);
      
1695.         ccwprintf(wnd,10,30,VGA_BLACK,"存贮新数据.如果确认,");
      
1696.         ccwprintf(wnd,10,48,VGA_BLACK,"文件内容将被清除并更新.");
      
1697.         ccwprintf(wnd,10,66,VGA_BLACK,"若不愿更新,则按取消键.");
      
1698. 
      
1699.         Selected = 0;
      
1700.         Dialog(wnd,
      
1701.                 &Selected,
      
1702.                 &CursorX,
      
1703.                 &CursorY,
      
1704.                 NULL,
      
1705.                 &id,
      
1706.                 NULL);
      
1707. 
      
1708.         DeletePopupWindow(wnd);
      
1709. 
      
1710.         if(id == ID_CANCEL)
      
1711.         {
      
1712.           return (1);
      
1713.         }
      
1714. 
      
1715.           return (0);
      
1716. 
      
1717. }
      
1718. 
      
1719. \032

复制代码

所有资料51hei提供下载:
CWTSQ1.zip (11.39 KB, 下载次数: 5)

2017-10-23 14:01 上传

点击文件名下载附件
已在厂家用过
下载积分: 黑币 -5

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1