BCB.rar_C#蠕动泵_bcb 波形图_泵控制_蠕动泵_蠕动泵控制

//--------------------------------------------------------------------------- #include <vcl.h> #include <math.h> #include <string.h> #include<iostream.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "MSCommLib_OCX" #pragma resource "*.dfm" TForm1 *Form1; int cot=0; int cycount=0; char stop[6]={0x02,0x50,0x30,0x31,0x48,0x0D}; char local[6]={0x02,0x50,0x30,0x31,0x4C,0x0D}; char speed[11]; char speedinit[11]={0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x2E,0x36,0x0D}; char spdstep[2][11]={0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x38,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x34,0x30,0x0D}; char spdsin[13][11]={0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x2E,0x36,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x32,0x36,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x35,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x37,0x31,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x38,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x39,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x30,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x39,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x38,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x37,0x31,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x35,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x32,0x36,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x2E,0x36,0x0D, }; const double spdsin1[]={0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x2E,0x36,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x32,0x36,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x35,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x37,0x31,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x38,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x39,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x30,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x39,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x38,0x37,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x37,0x31,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x35,0x30,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x30,0x32,0x36,0x0D, 0x02,0x50,0x30,0x31,0x53,0x2B,0x30,0x31,0x2E,0x36,0x0D, }; char speed2[11]; TStringList *List=new TStringList(); //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { //if (OpenDialog1->Execute()) //{ int i; const float PI=3.1415926; float y; for(float i=0;i<=2*PI;i+=PI/12.) { y=sin(i); Series1->AddXY(i,y,String(y),clRed); } //m_asDataFile=OpenDialog1->FileName; if (OpenDialog1->Execute()) { Label5->Caption="数据文件："+OpenDialog1->FileName; } //double x,y; //int count; //TStringList *List=new TStringList(); //TStringList *Listx=new TStringList(); //Chart //Chart1->Title->Text->Add(Edit1->Text); //count=StrToInt(Edit2->Text); List->LoadFromFile(OpenDialog1->FileName); // Listx->LoadFromFile("D:\\b.txt"); //for(int i=0;i<16;i++){ //x=StrToFloat(Listx->Strings[i]); //y=StrToFloat(List->Strings[i]); //Series1->AddXY(x,y,String(y),clRed); //} } //--------------------------------------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { if(MSComm1-> PortOpen!=false) MSComm1-> PortOpen=false; Timer1->Enabled=false; Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Timer1->Enabled=false; int i; if(MSComm1->PortOpen!=false) MSComm1->PortOpen=false; MSComm1-> CommPort=StrToInt(Edit7->Text); MSComm1-> Settings= "4800,o,7,1 "; MSComm1-> PortOpen=true; MSComm1->InputMode = comInputModeBinary ; char quy[1]; char init[5]; //char rpm[8]; //for(int i=0;i<11;i++) //{ //speed[i]=speedinit[i]; //} quy[0]=0x05; init[0]=0x02; init[1]=0x50; init[2]=0x30; init[3]=0x31; init[4]=0x0D; //rpm[0]=0x02; //rpm[1]=0x50; //rpm[2]=0x30; //rpm[3]=0x31; //rpm[4]=0x56; //rpm[5]=0x35; //rpm[6]=0x30; //rpm[7]=0x0D; MSComm1->Output=StringToOleStr(quy); MSComm1->Output=StringToOleStr(init); //for(i=0;i<8;i++) //{MSComm1->Output=StringToOleStr(rpm[i]); //} // for(i=0;i<11;i++) //{MSComm1->Output=StringToOleStr(speed[i]); //} Button3->Enabled=true; Button4->Enabled=true; Button5->Enabled=true; Edit3->Text=10; Edit4->Text="停止"; Edit5->Text="顺时针"; Edit6->Text="远程" ; } //------------------启动蠕动泵--------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { int i1; float y1=0; const float PI=3.1415926; float y[]={0,0.259,0.5,0.707,0.866,0.966,0.999,0.965,0.865,0.706,0.498,0.257,0,0.259,0.5,0.707,0.866,0.966,0.999,0.965,0.865,0.706,0.498,0.257,0}; for(int i1=0,i2=0;i1<=24;i1++,i2++) { //y=sin(i1); y1=36.5*y[i2]; Series1->AddXY(i1,y1,String(i1),clRed); } int j; int i; char start[7]; start[0]=0x02; start[1]=0x50; start[2]=0x30; start[3]=0x31; start[4]=0x47; start[5]=0x30; start[6]=0x0D; for(j=0;j<7;j++) if (MSComm1-> PortOpen==true) {MSComm1->Output=StringToOleStr(start[j]); } Timer1->Enabled=true; Edit4->Text="启动"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { if (MSComm1-> PortOpen==true) MSComm1->Output=StringToOleStr(stop); Timer1->Enabled=false; Edit4->Text="停止"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { int i; if(speed[5]==0x2D) speed[5]=0x2B; else speed[5]=0x2D; for(i=0;i<11;i++) if (MSComm1-> PortOpen==true) {MSComm1->Output=StringToOleStr(speed[i]); } if(speed[5]==0x2B) Edit5->Text="顺时针"; if(speed[5]==0x2D) Edit5->Text="逆时针"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { if(RadioButton1->Checked==true) { for(int i=0;i<11;i++) { speed[i]=spdsin[cot][i]; MSComm1->Output=StringToOleStr(speed[i]); } if(cot<12) cot=cot+1; else { cot=0; cycount++; }; } else if(RadioButton2->Checked==true) { for(int i=0;i<11;i++) { speed[i]=spdstep[cot][i]; } if(cot<1) cot=cot+1; else { cot=0; cycount++; }; } if(cycount==StrToInt(Edit3->Text)) {Timer1->Enabled=false; if (MSComm1-> PortOpen==true) MSComm1->Output=StringToOleStr(stop); cycount=0; } ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button7Click(TObject *Sender) { if (MSComm1-> PortOpen==true) MSComm1->Output=StringToOleStr(local); Edit6->Text="本地" ; Button3->Enabled=false; Button4->Enabled=false; Button5->Enabled=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button8Click(TObject *Sender) { //Timer1->Enabled=true; //Timer1->Interval=StrToInt(Edit2->Text); } //---------------------------------------------------------------------------