control.~cpp

c++builder编写的机器人参数传递上位机软件.

parameter.parameter_value=parameterB[1];

com_send_parameter();
}
//---------------------------------------------------------------------------
//运行控制参数1parameterB[2]
void __fastcall TForm1::Button40Click(TObject *Sender)
{
parameterB[2]=Edit24->Text.ToInt();

//结构体赋值
parameter.type_sign='D';
parameter.adress=13;
parameter.parameter_value=parameterB[2];

com_send_parameter();
}
//---------------------------------------------------------------------------
//制动控制参数1parameterB[3]
void __fastcall TForm1::Button52Click(TObject *Sender)
{
parameterB[3]=Edit58->Text.ToInt();

//结构体赋值
parameter.type_sign='D';
parameter.adress=14;
parameter.parameter_value=parameterB[3];

com_send_parameter();
}
//---------------------------------------------------------------------------
//运行控制参数2parameterB[4]
void __fastcall TForm1::Button20Click(TObject *Sender)
{
//将参数的实际高8位在接收到数据后左移8位，与第8位相与
//但在串口传递中由于结构体的存储由低位到高位堆栈排列，故先发送低8位再发送高8位
   int ParameterTemp;
   parameterB[4] = Edit25->Text.ToInt();
   ParameterTemp = parameterB[4] << 8;
   parameterB[4] = Edit26->Text.ToInt();
   ParameterTemp = ParameterTemp | parameterB[4];
   parameterB[4] = ParameterTemp;
//结构体赋值
   parameter.type_sign = 'D';
   parameter.adress = 15;
   parameter.parameter_value=parameterB[4];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//制动控制参数2parameterB[5]
void __fastcall TForm1::Button26Click(TObject *Sender)
{
//将参数的实际高8位在接收到数据后左移8位，与第8位相与
//但在串口传递中由于结构体的存储由低位到高位堆栈排列，故先发送低8位再发送高8位
   int ParameterTemp;
   parameterB[5] = Edit38->Text.ToInt();
   ParameterTemp = parameterB[5] << 8;
   parameterB[5] = Edit39->Text.ToInt();
   ParameterTemp = ParameterTemp | parameterB[5];
   parameterB[5] = ParameterTemp;
//结构体赋值
   parameter.type_sign = 'D';
   parameter.adress = 16;
   parameter.parameter_value=parameterB[5];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//运行控制参数3parameterB[6]
void __fastcall TForm1::Button21Click(TObject *Sender)
{
//将参数的实际高8位在接收到数据后左移8位，与第8位相与
//但在串口传递中由于结构体的存储由低位到高位堆栈排列，故先发送低8位再发送高8位
   int ParameterTemp;
   parameterB[6] = Edit34->Text.ToInt();
   ParameterTemp = parameterB[6] << 8;
   parameterB[6] = Edit35->Text.ToInt();
   ParameterTemp = ParameterTemp | parameterB[6];
   parameterB[6] = ParameterTemp;
//结构体赋值
   parameter.type_sign = 'D';
   parameter.adress = 17;
   parameter.parameter_value=parameterB[6];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//制动控制参数3parameterB[7]
void __fastcall TForm1::Button27Click(TObject *Sender)
{
//将参数的实际高8位在接收到数据后左移8位，与第8位相与
//但在串口传递中由于结构体的存储由低位到高位堆栈排列，故先发送低8位再发送高8位
   int ParameterTemp;
   parameterB[7] = Edit40->Text.ToInt();
   ParameterTemp = parameterB[7] << 8;
   parameterB[7] = Edit41->Text.ToInt();
   ParameterTemp = ParameterTemp | parameterB[7];
   parameterB[7] = ParameterTemp;
//结构体赋值
   parameter.type_sign = 'D';
   parameter.adress = 18;
   parameter.parameter_value=parameterB[7];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//电机B相位索引1   parameterB[8]
//电机B相位索引2   parameterB[9]
//---------------------------------------------------------------------------
//***********************************************
//路径规划算法参数（宏观场景）parameterMacro数组
//***********************************************
//---------------------------------------------------------------------------
//目的坐标X   parameterMacro[0]
void __fastcall TForm1::Button17Click(TObject *Sender)
{
   parameterMacro[0]=Edit27->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=21;
   parameter.parameter_value=parameterMacro[0];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//目的坐标Y     parameterMacro[1]
void __fastcall TForm1::Button22Click(TObject *Sender)
{
   parameterMacro[1]=Edit28->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=22;
   parameter.parameter_value=parameterMacro[1];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//目的角度     parameterMacro[2]
void __fastcall TForm1::Button23Click(TObject *Sender)
{
   parameterMacro[2]=Edit29->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=23;
   parameter.parameter_value = parameterMacro[2];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域半径0    parameterMacro[3]
void __fastcall TForm1::Button28Click(TObject *Sender)
{
   parameterMacro[3]=Edit30->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=24;
   parameter.parameter_value = parameterMacro[3];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域半径1     parameterMacro[4]
void __fastcall TForm1::Button29Click(TObject *Sender)
{
   parameterMacro[4]=Edit31->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=25;
   parameter.parameter_value=parameterMacro[4];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域半径2    parameterMacro[5]
void __fastcall TForm1::Button30Click(TObject *Sender)
{
   parameterMacro[5]=Edit32->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=26;
   parameter.parameter_value=parameterMacro[5];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域半径3     parameterMacro[6]
void __fastcall TForm1::Button31Click(TObject *Sender)
{
   parameterMacro[6]=Edit33->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=27;
   parameter.parameter_value=parameterMacro[6];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域0步进值      parameterMacro[7]
void __fastcall TForm1::Button32Click(TObject *Sender)
{
   parameterMacro[7]=Edit42->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=28;
   parameter.parameter_value=parameterMacro[7];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域1步进值     parameterMacro[8]
void __fastcall TForm1::Button33Click(TObject *Sender)
{
   parameterMacro[8]=Edit43->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=29;
   parameter.parameter_value=parameterMacro[8];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域2步进值       parameterMacro[9]
void __fastcall TForm1::Button34Click(TObject *Sender)
{
   parameterMacro[9]=Edit44->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=30;
   parameter.parameter_value=parameterMacro[9];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域0允许角度误差最大值      parameterMacro[10]
void __fastcall TForm1::Button35Click(TObject *Sender)
{
   parameterMacro[10]=Edit45->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=31;
   parameter.parameter_value=parameterMacro[10];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域1允许角度误差最大值       parameterMacro[11]
void __fastcall TForm1::Button37Click(TObject *Sender)
{
   parameterMacro[11]=Edit46->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=32;
   parameter.parameter_value=parameterMacro[11];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//区域2允许角度误差最大值      parameterMacro[12]
void __fastcall TForm1::Button36Click(TObject *Sender)
{
   parameterMacro[142]=Edit47->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=33;
   parameter.parameter_value=parameterMacro[12];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//X方向允许误差最大值      parameterMacro[13]
void __fastcall TForm1::Button38Click(TObject *Sender)
{
   parameterMacro[13]=Edit48->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=34;
   parameter.parameter_value=parameterMacro[13];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//Y方向允许误差最大值      parameterMacro[14]
void __fastcall TForm1::Button39Click(TObject *Sender)
{
   parameterMacro[14]=Edit49->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=35;
   parameter.parameter_value=parameterMacro[14];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//最大旋转角度      parameterMacro[15]
void __fastcall TForm1::Button41Click(TObject *Sender)
{
   parameterMacro[15]=Edit50->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=36;
   parameter.parameter_value=parameterMacro[15];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//***********************************************
//路径规划算法参数（微观场景）parameterMicro数组
//***********************************************
//---------------------------------------------------------------------------
//中心点坐标X     parameterMicro[0]
void __fastcall TForm1::Button42Click(TObject *Sender)
{
   parameterMicro[0]=Edit51->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=37;
   parameter.parameter_value=parameterMicro[0];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//中心点坐标Y      parameterMicro[1]
void __fastcall TForm1::Button43Click(TObject *Sender)
{
   parameterMicro[1]=Edit52->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=38;
   parameter.parameter_value=parameterMicro[1];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//平台X方向最大位移     parameterMicro[2]
void __fastcall TForm1::Button44Click(TObject *Sender)
{
   parameterMicro[2]=Edit53->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=39;
   parameter.parameter_value=parameterMicro[2];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//平台Y方向最大位移     parameterMicro[3]
void __fastcall TForm1::Button45Click(TObject *Sender)
{
   parameterMicro[3]=Edit54->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=40;
   parameter.parameter_value=parameterMicro[3];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//X方向最大误差      parameterMicro[4]
void __fastcall TForm1::Button46Click(TObject *Sender)
{
   parameterMicro[4]=Edit55->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=41;
   parameter.parameter_value=parameterMicro[4];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//Y方向最大误差      parameterMicro[5]
void __fastcall TForm1::Button47Click(TObject *Sender)
{
   parameterMicro[5]=Edit56->Text.ToInt();
//结构体赋值
   parameter.type_sign='D';
   parameter.adress=42;
   parameter.parameter_value=parameterMicro[5];

   com_send_parameter();
}
//---------------------------------------------------------------------------
//***********************************
//其他命令
//***********************************
//---------------------------------------------------------------------------
//刷新显示参数
void __fastcall TForm1::Button50Click(TObject *Sender)
{

//为参数结构体赋值
    parameter.type_sign = 'R';
    parameter.adress = 0;
    parameter.parameter_value = 0;

    com_send_parameter();

    ReadDelayFlag = 0;
    Timer1->Interval = 3000;
    Timer1->Enabled = true;