哈工大_材料力学_编程_完美UI版.docVIP

材料力学上机编程作业专业：机械制造及其自动化班级： xxxxxxxx 姓名： x x x 学号： xxxxxxxxx 邮箱： xxxxxxxxxxxxxx 运行界面如下。功能：可求解简支梁任意载荷下的任意点弯矩挠度、及作出弯矩挠曲图：Release版本大小1.39MB 。 里面包括六个页面，既编程作业的六题！运行时桌面如下：部分代码有：void _fastcall Tc1:cl_5_b_okClick(TObject *Sender) if(cl_5_inp_a-Enabled = false) Application-MessageBoxA(你必须先用ADD添加的作用！,Erro ! _By kai,MB_OK); else if(cl_5_inp_a-Modified = false | cl_5_inp_f-Modified = false) Application-MessageBoxA(你需要先输入受作用参数,Erro ! _By kai,MB_OK); /* else if(StrToFloat(cl_5_inp_a-Text)StrToFloat(cl_5_inp_x-Text) Application-MessageBoxA(a 必须要小于 L,Erro ! _By kai,MB_OK); */ else if(cl_5_rb_f-Checked = true) /5-1 /Application-MessageBoxA(5-1,Erro ! _By kai,MB_OK); /* int ls_a = StrToInt(cl_5_zushu-Caption); ls_a +=1; cl_5_zushu-Caption = IntToStr(ls_a); */ cl_f5.insert_f(StrToFloat(cl_5_inp_a-Text),StrToFloat(cl_5_inp_f-Text); cl_5_zushu-Caption = IntToStr( 1+ StrToInt(cl_5_zushu-Caption) ); cl_5_inp_a-Text = 输入F成功; cl_5_inp_c-Text =; cl_5_inp_f-Text=点击ADD继续; cl_5_inp_a-Enabled =false; cl_5_inp_c-Enabled =false; cl_5_inp_f-Enabled =false; else if(cl_5_rb_mk-Checked = true) /5-2 cl_mk5.insert_f(StrToFloat(cl_5_inp_a-Text),StrToFloat(cl_5_inp_f-Text); cl_5_zushu-Caption = IntToStr( 1+ StrToInt(cl_5_zushu-Caption) ); cl_5_inp_a-Text = 输入Mk成功; cl_5_inp_c-Text =; cl_5_inp_f-Text=点击ADD继续; cl_5_inp_a-Enabled =false; cl_5_inp_c-Enabled =false; cl_5_inp_f-Enabled =false; else if(cl_5_inp_c-Modified = false) Application-MessageBoxA(请输入C,Erro ! _By kai,MB_OK); /5-3 else cl_q5.insert_f(StrToFloat(cl_5_inp_a-Text),StrToFloat(cl_5_inp_c-Text),StrToFloat(cl_5_inp_f-Text); cl_5_zushu-Caption = IntToStr( 1+ StrToInt(cl_5_zushu-Caption) ); cl_5_inp_a-Text = 输入Q成功; cl_5_inp_c-Text =; cl_5_inp_f-Text=点击ADD继续; cl_5_inp_a-Enabled =false; cl_5_inp_c-Enabled =false; cl_5_inp_f-Enabled =false; /-void _fastcall Tc1:cl_5_b_solClick(TObject *Sender) if(cl_5_inp_e-Modified = false | cl_5_inp_iz-Modified = false | cl_5_inp_l-Modified = false) Application-MessageBoxA(请输入杆的参数 E、Iz、L!,Erro ! _By kai,MB_OK); else if (cl_5_inp_x-Modified = false) Application-MessageBoxA(请输入你需要求的距左端X处,Erro ! _By kai,MB_OK); else if(StrToFloat(cl_5_inp_x-Text)Text) StrToFloat(cl_5_inp_l-Text) ) Application-MessageBoxA(猪头！x不在合理范围内(0XText); float cl_e = StrToFloat(cl_5_inp_e-Text); float fl_5_l = StrToFloat(cl_5_inp_l-Text); float fl_5_x = StrToFloat(cl_5_inp_x-Text); /double ls_m=0,ls_v=0; cl_f5.current = cl_f5.head-next;while(cl_f5.current != NULL)/cl_f5.current = cl_f5.head-next;ls_m +=m_caculate_f(cl_iz,cl_e,cl_f5.current-a,fl_5_l,fl_5_x,cl_f5.current-f);ls_v +=v_caculate_f(cl_iz,cl_e,cl_f5.current-a,fl_5_l,fl_5_x,cl_f5.current-f);cl_f5.current =cl_f5.current-next; cl_mk5.current = cl_mk5.head-next;while(cl_mk5.current != NULL)/cl_mk5.current = cl_mk5.head-next;ls_m +=m_caculate_m(cl_iz,cl_e,cl_mk5.current-a,fl_5_l,fl_5_x,cl_mk5.current-mk);ls_v +=v_caculate_m(cl_iz,cl_e,cl_mk5.current-a,fl_5_l,fl_5_x,cl_mk5.current-mk);cl_mk5.current =cl_mk5.current-next;cl_q5.current = cl_q5.head-next;while(cl_q5.current != NULL)/cl_q5.current = cl_q5.head-next;ls_m +=m_caculate_q(cl_iz,cl_e,cl_q5.current-a,cl_q5.current-c,fl_5_l,fl_5_x,cl_q5.current-q);ls_v +=v_caculate_q(cl_iz,cl_e,cl_q5.current-a,cl_q5.current-c,fl_5_l,fl_5_x,cl_q5.current-q);cl_q5.current =cl_q5.current-next; cl_5_outp_m-Text = FloatToStr(ls_m); cl_5_outp_v-Text = FloatToStr(ls_v); / 实现小数点，正负的输入（不会出现字母其他字符）bool _fastcall Tc1:DotInStr(AnsiString ass) int ii,ll; ll=ass.Length(); for(ii =0 ;iiText = ) if(cl_5_inp_e-Text = | cl_5_inp_iz-Text = | cl_5_inp_l-Text = )/| cl_5_inp_x-Text = ) Application-MessageBoxA(请完成输入后再点击画图!,Erro ! _By kai,MB_OK); else c1-Canvas-Refresh(); /c1-Canvas-TCanvas(); int cl_5_m_x = 500; int cl_5_m_y = 96; int cl_5_v_x = 500; int cl_5_v_y = 300; c1-Constraints-MaxWidth = 490; c1-Constraints-MinWidth = 740;/490 /c1-Canvas-Brush-Color = clWhite; c1-Canvas-Pen-Color = clWhite; c1-Canvas-Pen-Width = 2; c1-Canvas-MoveTo(cl_5_m_x,cl_5_m_y); c1-Canvas-LineTo(200+cl_5_m_x,cl_5_m_y); c1-Canvas-MoveTo(cl_5_v_x,cl_5_v_y); c1-Canvas-LineTo(200+cl_5_v_x,cl_5_v_y); c1-Canvas-Pen-Color = clWhite; c1-Canvas-Pen-Width = 3; c1-Canvas-MoveTo(cl_5_m_x,cl_5_m_y); c1-Canvas-LineTo(cl_5_m_x+10,cl_5_m_y+10); c1-Canvas-LineTo(cl_5_m_x-10,cl_5_m_y+10); c1-Canvas-LineTo(cl_5_m_x,cl_5_m_y); c1-Canvas-MoveTo(cl_5_m_x+200,cl_5_m_y); c1-Canvas-LineTo(cl_5_m_x+10+200,cl_5_m_y+10); c1-Canvas-LineTo(cl_5_m_x-10+200,cl_5_m_y+10); c1-Canvas-LineTo(cl_5_m_x+200,cl_5_m_y); c1-Canvas-Pen-Width = 0; c1-Canvas-MoveTo(cl_5_v_x,cl_5_v_y); c1-Canvas-Pen-Width = 3; c1-Canvas-LineTo(cl_5_v_x+10,cl_5_v_y+10); c1-Canvas-LineTo(cl_5_v_x-10,cl_5_v_y+10); c1-Canvas-LineTo(cl_5_v_x,cl_5_v_y); c1-Canvas-Pen-Width = 0; c1-Canvas-MoveTo(cl_5_v_x+200,cl_5_v_y); c1-Canvas-Pen-Width = 3; c1-Canvas-LineTo(cl_5_v_x+10+200,cl_5_v_y+10); c1-Canvas-LineTo(cl_5_v_x-10+200,cl_5_v_y+10); c1-Canvas-LineTo(cl_5_v_x+200,cl_5_v_y); double db_5_m_max =0;double db_5_v_max =0; float cl_iz = StrToFloat(cl_5_inp_iz-Text);float cl_e = StrToFloat(cl_5_inp_e-Text);float fl_5_l = StrToFloat(cl_5_inp_l-Text);/float fl_5_x = 0;/= StrToFloat(cl_5_inp_x-Text);/double ls_m=0,ls_v=0;for(float fl_5_x = 0; fl_5_x next;while(cl_f5.current != NULL)/cl_f5.current = cl_f5.head-next;ls_m +=m_caculate_f(cl_iz,cl_e,cl_f5.current-a,fl_5_l,fl_5_x,cl_f5.current-f);ls_v +=v_caculate_f(cl_iz,cl_e,cl_f5.current-a,fl_5_l,fl_5_x,cl_f5.current-f);cl_f5.current =cl_f5.current-next;cl_mk5.current = cl_mk5.head-next;while(cl_mk5.current != NULL)/cl_mk5.current = cl_mk5.head-next;ls_m +=m_caculate_m(cl_iz,cl_e,cl_mk5.current-a,fl_5_l,fl_5_x,cl_mk5.current-mk);ls_v +=v_caculate_m(cl_iz,cl_e,cl_mk5.current-a,fl_5_l,fl_5_x,cl_mk5.current-mk);cl_mk5.current =cl_mk5.current-next;cl_q5.current = cl_q5.head-next;while(cl_q5.current != NULL)ls_m +=m_caculate_q(cl_iz,cl_e,cl_q5.current-a,cl_q5.current-c,fl_5_l,fl_5_x,cl_q5.current-q);ls_v +=v_caculate_q(cl_iz,cl_e,cl_q5.current-a,cl_q5.current-c,fl_5_l,fl_5_x,cl_q5.current-q);cl_q5.current =cl_q5.current-next;if(ls_m db_5_m_max)db_5_m_max = ls_m;if(ls_v db_5_v_max)db_5_v_max = ls_v; float cl_5_px; float cl_5_l = StrToFloat(cl_5_inp_l-Text); int cl_n=0; float ls_m_prev = 0; float ls_v_prev = 0; /c1-Canvas-LineTo(cl_5_m_x,cl_5_m_y); for(cl_5_px = 0; cl_5_px Text);float cl_e = StrToFloat(cl_5_inp_e-Text);float fl_5_l = StrToFloat(cl_5_inp_l-Text); float fl_5_x = cl_5_px;/StrToFloat(cl_5_inp_x-Text); ls_m = 0; ls_v =0;cl_f5.current = cl_f5.head-next;while(cl_f5.current != NULL)/cl_f5.current = cl_f5.head-next;ls_m += m_caculate_f(cl_iz,cl_e,cl_f5.current-a,fl_5_l,fl_5_x,cl_f5.current-f);ls_v += v_caculate_f(cl_iz,cl_e,cl_f5.current-a,fl_5_l,fl_5_x,cl_f5.current-f);cl_f5.current =cl_f5.current-next;cl_mk5.current = cl_mk5.head-next;while(cl_mk5.current != NULL)/cl_mk5.current = cl_mk5.head-next;ls_m += m_caculate_m(cl_iz,cl_e,cl_mk5.current-a,fl_5_l,fl_5_x,cl_mk5.current-mk);ls_v += v_caculate_m(cl_iz,cl_e,cl_mk5.current-a,fl_5_l,fl_5_x,cl_mk5.current-mk);cl_mk5.current =cl_mk5.current-next;cl_q5.curren