vb编程 课程设计说明书.docxVIP

vb编程 课程设计说明书 vb编程课程设计说明书 目录 一、设计任务书………………………………… 二、 数学模型的建立 三、程序流程图………………………………… 四、 项目主体。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。V.控制名称 六、运行结果…………………………………… 七、 设计概要8。主要参考文献 四、程序主体 optionexplicit publicl_abasdouble,l_bcasdouble,l_cdasdouble,l_adasdoublepublicnasdouble,w_abasdouble,e_abasdoublepublicintmasinteger,intcwasdouble publicintstartangleasdouble，intendangleasdoubleconstpiasdouble=3.1415926 publicsubydfx(i,l_a,l_b,f_bc,f_cd,w_bc,w_cd,e_bc,e_cd,x_e,y_e,vx_e,vy_e,ax_e,ay_e) dimf_u2;abasdouble，aasdouble，basdouble，casdouble，dasdouble，sxyasdouble f_ab=i*pi/180 l_u;ab=val（txtlength（0）。text）l_bc=val（txtlength（1）。文本）l_cd=val（txtlength（2）。text）l_ad=val（txtlength（3）。（文本） n=val(frmmain.txtlength(4).text)l_a=val(txtlength(5).text)l_b=val(txtlength(6).text)sxy=val(frmmain.txtscale.text)w_ab=pi*n/30 a=l_0;ad-l_0;ab*cos（f_0ab）b=-l_0ab*sin（f_0ab） c=(a^2+b^2+l_cd^2-l_bc^2)/(2*l_cd)d=a^2+b^2-c^2 “计算杆CD的角位移 f_cd=2*atn((b+sqr(d))/(a-c))iff_cd0thenf_cd=f_cd-2*pi计算杆bc得角位移 f_u-bc=atn（（b+l_-cd*sin（f_-cd））/（a+l_-cd*cos（f_-cd））） 计算bc,cd杆的角速度 计算bc杆的角加速度 dime21asdouble,e22asdouble,e23asdoublee21=-l_ab*w_ab^2*cos(f_ab-f_cd)e22=-l_bc*w_bc^2*cos(f_bc-f_cd)e23=l_cd*w_cd^2 e_BC=（E21+E22+E23）/（l_BC*sin（f_BC-f_cd））计算cd的角加速度 dime31asdouble,e32asdouble,e33asdoublee31=l_ab*(w_ab^2)*cos(f_ab-f_bc)e32=l_bc*w_bc^2 e33=-l_cd*（w_cd^2）*cos（f_cd-f_bc） e_cd=(e31+e32+e33)/(l_cd*sin(f_cd-f_bc))计算xe,ye x_e=l_ab*cos（f_ab）+sqr（l_a^2+l_b^2）*cos（f_bc+atn（l_b/l_a）） y_e=l_ab*sin(f_ab)+sqr(l_a^2+l_b^2)*sin(f_bc+atn(l_b/l_a)) 计算e的速度 vx_e=-l_ab*w_ab*sin(f_ab)-sqr(l_a^2+l_b^2)*w_bc*sin(f_bc+atn(l_b/l_a)) vy_e=l_ab*w_ab*sin（f_ab）+sqr（l_a^2+l_b^2）*w_bc*cos（f_bc+atn（l_b/l_a）） 计算e的加速度 ax_e=-l_ab*（w_ab^2）*cos（f_ab）-sqr（l_a^2+l_b^2）*e_bc*sin（f_bc+atn（l_b/l_a））-sqr（l_a^2+l_b^2）*（w_bc^2）*cos（f_bc+atn（l_b/l_a）） ay_e=-l_ab*(w_ab^2)*sin(f_ab)+sqr(l_a^2+l_b^2)*e_bc*cos(f_bc+atn(l_b/l_a))-sqr(