?? draw.~cp
字號:
(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);
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -