draw.cpp

数据采集

  Edit7 ->Text=IntToStr(
    (int)(js_max(StrToInt(Edit18->Text),StrToInt(Edit3->Text),StrToInt(Edit4->Text),xx)-zz));
  Edit8 ->Text=IntToStr(xx);
  Canvas->MoveTo((xx-offset)/step,0); Canvas->LineTo((xx-offset)/step,600);

  Edit9 ->Text=IntToStr(
    (int)(js_min(StrToInt(Edit18->Text),StrToInt(Edit3->Text),StrToInt(Edit4->Text),xx)-zz));
  Edit5 ->Text=IntToStr(xx);
  Canvas->MoveTo((xx-offset)/step,0); Canvas->LineTo((xx-offset)/step,600);

  Edit13->Text=IntToStr(
    (int)(js_ad( StrToInt(Edit18->Text),StrToInt(Edit3->Text),StrToInt(Edit4->Text))-zz));

  Edit15 ->Text=IntToStr(
    (int)(js_max(StrToInt(Edit18->Text),StrToInt(Edit11->Text),StrToInt(Edit12->Text),xx)-zz));
  Edit16 ->Text=IntToStr(xx);
  Canvas->MoveTo((xx-offset)/step,0); Canvas->LineTo((xx-offset)/step,600);

  Edit17 ->Text=IntToStr(
    (int)(js_min(StrToInt(Edit18->Text),StrToInt(Edit11->Text),StrToInt(Edit12->Text),xx)-zz));
  Edit6 ->Text=IntToStr(xx);
  Canvas->MoveTo((xx-offset)/step,0); Canvas->LineTo((xx-offset)/step,600);

  Edit14->Text=IntToStr(
    (int)(js_ad( StrToInt(Edit18->Text),StrToInt(Edit11->Text),StrToInt(Edit12->Text))-zz));
  Edit10->Text=IntToStr(
    (int)(StrToInt(Edit13->Text)+StrToInt(Edit14->Text)) );
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::b_jClick(TObject *Sender)
{
  char name_j1[70],name_z1[70];
  char name_j2[70],name_z2[70];
  char name_j3[70],name_z3[70];
  char name_j4[70],name_z4[70];
  char name_j5[70];
  char name_j6[70];
  char name_j7[70];
  char name_j8[70];
  PUSHORT pj1,pj2,pj3,pj4,pj5,pj6,pj7,pj8;
  PUSHORT pjb1,pjb2,pjb3,pjb4,pjb5,pjb6,pjb7,pjb8;
  PUSHORT pz1,pz2,pz3,pz4;
  PUSHORT pzb1,pzb2,pzb3,pzb4;
  char file_name[70]=WAVEFILE_PATH;
  FILE *fd;
  const int sz=1000;

  if((pj1=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj2=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj3=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj4=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj5=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj6=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj7=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pj8=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pz1=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pz2=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pz3=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pz4=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;

  if((pjb1=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb2=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb3=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb4=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb5=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb6=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb7=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pjb8=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pzb1=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pzb2=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pzb3=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;
  if((pzb4=(PUSHORT)VirtualAlloc(NULL,sz*sizeof(*pj1),MEM_COMMIT,PAGE_READWRITE))==FALSE) return;

  strcat(file_name,Edit19->Text.c_str());
  strcpy(name_j1,file_name);strcat(name_j1,".sr1");
  strcpy(name_j2,file_name);strcat(name_j2,".sr2");
  strcpy(name_j3,file_name);strcat(name_j3,".sr3");
  strcpy(name_j4,file_name);strcat(name_j4,".sr4");
  strcpy(name_j5,file_name);strcat(name_j5,".sr5");
  strcpy(name_j6,file_name);strcat(name_j6,".sr6");
  strcpy(name_j7,file_name);strcat(name_j7,".sr7");
  strcpy(name_j8,file_name);strcat(name_j8,".sr8");
  strcpy(name_z1,file_name);strcat(name_z1,".wt1");
  strcpy(name_z2,file_name);strcat(name_z2,".wt2");
  strcpy(name_z3,file_name);strcat(name_z3,".wt3");
  strcpy(name_z4,file_name);strcat(name_z4,".wt4");

    long t;
    int i,kk=25,ad;
    int i3=StrToInt(Edit3->Text);
    int i4=StrToInt(Edit4->Text);
    int i7=StrToInt(Edit7->Text);
    int i8=StrToInt(Edit8->Text);
    int i11=StrToInt(Edit11->Text);
    int i12=StrToInt(Edit12->Text);
    int i15=StrToInt(Edit15->Text);
    int i16=StrToInt(Edit16->Text);

    Repaint();
    Canvas->Pen->Color=clGreen ;
    for(i=0,t=0;i<i4-i3;i++){  //qin
      ad=data_jz(0,i+i3)-zero;
      Canvas->MoveTo(i,600-ad/kk);
      Canvas->LineTo(i,600-ad/kk+1);
      t+=ad;
    }
    if(i4-i3!=0) t/=i4-i3;
    Canvas->Pen->Color=clYellow ;
    Canvas->MoveTo(0,600-t/kk);
    Canvas->LineTo(i4-i3,600-t/kk);
    Edit9->Text=IntToStr((int)t);

    Canvas->Pen->Color=clGreen ;
    for(i=i4-i3+10,t=0;i<i4-i3+10+i8-i7;i++){ //hou
      ad=data_jz(0,i7+i-(i4-i3+10))-zero;
      Canvas->MoveTo(i,600-ad/kk);
      Canvas->LineTo(i,600-ad/kk+1);
      t+=ad;
    }
    if(i8-i7!=0) t/=i8-i7;
    Canvas->Pen->Color=clYellow ;
    Canvas->MoveTo(i4-i3+10,600-t/kk);
    Canvas->LineTo(i4-i3+10+i8-i7,600-t/kk);
    Edit5->Text=IntToStr((int)t);

    Edit13->Text=IntToStr((int)(StrToInt(Edit9->Text)+StrToInt(Edit5->Text)));


    //////////////////////////// 2 qin
    if((fd=fopen(name_j1,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj1,sizeof(*pj1),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j2,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj2,sizeof(*pj2),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j3,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj3,sizeof(*pj3),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j4,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj4,sizeof(*pj4),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j5,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj5,sizeof(*pj5),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j6,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj6,sizeof(*pj6),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j7,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj7,sizeof(*pj7),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j8,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pj8,sizeof(*pj8),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z1,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pz1,sizeof(*pz1),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z2,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pz2,sizeof(*pz2),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z3,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pz3,sizeof(*pz3),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z4,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i11,0);
        fread((char *)pz4,sizeof(*pz4),sz,fd);
        fclose(fd);

    for(i=0;i<sz;i++){  // 2 qin
      *(pjb1+i)=*(p_buf_j1+i11+i); *(p_buf_j1+i11+i)=*(pj1+i);
      *(pjb2+i)=*(p_buf_j2+i11+i); *(p_buf_j2+i11+i)=*(pj2+i);
      *(pjb3+i)=*(p_buf_j3+i11+i); *(p_buf_j3+i11+i)=*(pj3+i);
      *(pjb4+i)=*(p_buf_j4+i11+i); *(p_buf_j4+i11+i)=*(pj4+i);
      *(pjb5+i)=*(p_buf_j5+i11+i); *(p_buf_j5+i11+i)=*(pj5+i);
      *(pjb6+i)=*(p_buf_j6+i11+i); *(p_buf_j6+i11+i)=*(pj6+i);
      *(pjb7+i)=*(p_buf_j7+i11+i); *(p_buf_j7+i11+i)=*(pj7+i);
      *(pjb8+i)=*(p_buf_j8+i11+i); *(p_buf_j8+i11+i)=*(pj8+i);
      *(pzb1+i)=*(p_buf_z1+i11+i); *(p_buf_z1+i11+i)=*(pz1+i);
      *(pzb2+i)=*(p_buf_z2+i11+i); *(p_buf_z2+i11+i)=*(pz2+i);
      *(pzb3+i)=*(p_buf_z3+i11+i); *(p_buf_z3+i11+i)=*(pz3+i);
      *(pzb4+i)=*(p_buf_z4+i11+i); *(p_buf_z4+i11+i)=*(pz4+i);
    }

    Canvas->Pen->Color=clBlue ;
    for(i=0,t=0;i<i12-i11;i++){  // 2 qin
      ad=data_jz(0,i+i11)-zero;
      Canvas->MoveTo(i,600-ad/kk);
      Canvas->LineTo(i,600-ad/kk+1);
      t+=ad;
    }
    if(i12-i11!=0) t/=i12-i11;
    Canvas->Pen->Color=clRed ;
    Canvas->MoveTo(0,600-t/kk);
    Canvas->LineTo(i12-i11,600-t/kk);
    Edit17->Text=IntToStr((int)t);

    for(i=0;i<sz;i++){          // 2 qin
      *(p_buf_j1+i11+i)=*(pjb1+i);
      *(p_buf_j2+i11+i)=*(pjb2+i);
      *(p_buf_j3+i11+i)=*(pjb3+i);
      *(p_buf_j4+i11+i)=*(pjb4+i);
      *(p_buf_j5+i11+i)=*(pjb5+i);
      *(p_buf_j6+i11+i)=*(pjb6+i);
      *(p_buf_j7+i11+i)=*(pjb7+i);
      *(p_buf_j8+i11+i)=*(pjb8+i);
      *(p_buf_z1+i11+i)=*(pzb1+i);
      *(p_buf_z2+i11+i)=*(pzb2+i);
      *(p_buf_z3+i11+i)=*(pzb3+i);
      *(p_buf_z4+i11+i)=*(pzb4+i);
    }

   ////////////////////////////////// 2 hou
    if((fd=fopen(name_j1,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj1,sizeof(*pj1),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j2,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj2,sizeof(*pj2),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j3,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj3,sizeof(*pj3),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j4,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj4,sizeof(*pj4),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j5,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj5,sizeof(*pj5),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j6,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj6,sizeof(*pj6),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j7,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj7,sizeof(*pj7),sz,fd);
        fclose(fd);
    if((fd=fopen(name_j8,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pj8,sizeof(*pj8),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z1,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pz1,sizeof(*pz1),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z2,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pz2,sizeof(*pz2),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z3,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pz3,sizeof(*pz3),sz,fd);
        fclose(fd);
    if((fd=fopen(name_z4,"rb"))==NULL){return;}
        fseek(fd,sizeof(*pj1)*i15,0);
        fread((char *)pz4,sizeof(*pz4),sz,fd);
        fclose(fd);

    for(i=0;i<sz;i++){ // 2 hou
      *(pjb1+i)=*(p_buf_j1+i15+i); *(p_buf_j1+i15+i)=*(pj1+i);
      *(pjb2+i)=*(p_buf_j2+i15+i); *(p_buf_j2+i15+i)=*(pj2+i);
      *(pjb3+i)=*(p_buf_j3+i15+i); *(p_buf_j3+i15+i)=*(pj3+i);
      *(pjb4+i)=*(p_buf_j4+i15+i); *(p_buf_j4+i15+i)=*(pj4+i);
      *(pjb5+i)=*(p_buf_j5+i15+i); *(p_buf_j5+i15+i)=*(pj5+i);
      *(pjb6+i)=*(p_buf_j6+i15+i); *(p_buf_j6+i15+i)=*(pj6+i);
      *(pjb7+i)=*(p_buf_j7+i15+i); *(p_buf_j7+i15+i)=*(pj7+i);
      *(pjb8+i)=*(p_buf_j8+i15+i); *(p_buf_j8+i15+i)=*(pj8+i);
      *(pzb1+i)=*(p_buf_z1+i15+i); *(p_buf_z1+i15+i)=*(pz1+i);
      *(pzb2+i)=*(p_buf_z2+i15+i); *(p_buf_z2+i15+i)=*(pz2+i);
      *(pzb3+i)=*(p_buf_z3+i15+i); *(p_buf_z3+i15+i)=*(pz3+i);
      *(pzb4+i)=*(p_buf_z4+i15+i); *(p_buf_z4+i15+i)=*(pz4+i);
    }

    Canvas->Pen->Color=clBlue ;
    for(i=0,t=0;i<i16-i15;i++){  //2 hou
      ad=data_jz(0,i+i15)-zero;
      Canvas->MoveTo((i12-i11+10)+i,600-ad/kk);
      Canvas->LineTo((i12-i11+10)+i,600-ad/kk+1);
      t+=ad;
    }
    if(i16-i15!=0) t/=i16-i15;
    Canvas->Pen->Color=clRed ;
    Canvas->MoveTo((i12-i11+10)+0,600-t/kk);
    Canvas->LineTo((i12-i11+10)+i16-i15,600-t/kk);
    Edit6->Text=IntToStr((int)t);

    Edit14->Text=IntToStr((int)(StrToInt(Edit17->Text)+StrToInt(Edit6->Text)));
    Edit10->Text=IntToStr((int)(StrToInt(Edit13->Text)-StrToInt(Edit14->Text)));

    for(i=0;i<sz;i++){
      *(p_buf_j1+i15+i)=*(pjb1+i);
      *(p_buf_j2+i15+i)=*(pjb2+i);
      *(p_buf_j3+i15+i)=*(pjb3+i);
      *(p_buf_j4+i15+i)=*(pjb4+i);
      *(p_buf_j5+i15+i)=*(pjb5+i);
      *(p_buf_j6+i15+i)=*(pjb6+i);
      *(p_buf_j7+i15+i)=*(pjb7+i);
      *(p_buf_j8+i15+i)=*(pjb8+i);
      *(p_buf_z1+i15+i)=*(pzb1+i);
      *(p_buf_z2+i15+i)=*(pzb2+i);
      *(p_buf_z3+i15+i)=*(pzb3+i);
      *(p_buf_z4+i15+i)=*(pzb4+i);
    }

    VirtualFree(pj1,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj2,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj3,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj4,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj5,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj6,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj7,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pj8,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pz1,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pz2,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pz3,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pz4,sz*sizeof(*pj1),MEM_DECOMMIT);

    VirtualFree(pjb1,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb2,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb3,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb4,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb5,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb6,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb7,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pjb8,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pzb1,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pzb2,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pzb3,sz*sizeof(*pj1),MEM_DECOMMIT);
    VirtualFree(pzb4,sz*sizeof(*pj1),MEM_DECOMMIT);

}
//---------------------------------------------------------------------------