ThismodelpaperwasrevisedbytheStandardizationOfficeonDecember10,2020VB编写机构运动仿真程序VB编写机构运动仿真程序步骤建立
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
:打开VisualBasic6.0应用程序,在NewProject中建立“StandardEXE”
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
可执行文件。
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
应用程序的界面:将Form1窗口的Caption改为“铰链四杆机构运动仿真”。在Form1窗口中添加2个按钮,Name分别取“Start”、“Stop”,Caption分别取“开始”,“停止”。再添加一个时钟控件,将其“Enabled”属性设置为“False”,“Interval”属性设置为“1000”。编写程序代码:程序代码是在代码窗口中编写的。直接双击界面,打开代码窗口,首先定义机构参数,分别
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
示4个杆长尺寸:L1,L2,L3,L4;铰链B点的坐标bx,by;铰链C点的坐标cx,cy;4个杆的位置角angle1,angle2,angle3,sita4。DimL1,L2,L3,L4,bx,by,cx,cyAsIntegerDimangle1,angle2,angle3,sita4AsDouble在窗体载入的子过程中添加代码用于实现窗口的初始化,包括定义窗口的大小,设置用户自定义的坐标范围及坐标原点,以及设置机构的初始参数。PrivateSubForm_Load()Form1.Width=12000Form1.Height=8000ScaleTop=-1000ScaleLeft=-1500ScaleWidth=3000ScaleHeight=2000L1=300L2=500L3=550L4=600bx=by=cx=cy=0angle1=0.5angle2=angle3=sita4=0EndSub添加一个“Sub”子过程,用于实现计算并绘制机构图形。PrivateSubDrawing()DimL,fei,aa,bb'中间过程变量L=Sqr(L1*L1+L4*L4-2*L1*L4*Cos(angle1-sita4))fei=Atn((L4*Sin(sita4)-L1*Sin(angle1))/(L4*Cos(sita4)-L1*Cos(angle1)))'下面为VB中计算反正弦和反余弦的公式'Arcsin(X)=Atn(X/Sqr(-X*X+1))'Arccos(X)=Atn(-X/Sqr(-X*X+1))+2*Atn(1)aa=(L2*L2-L*L-L3*L3)/(2*L*L3)angle3=Atn(-aa/Sqr(-aa*aa+1))+2*Atn(1)+feibb=(L*Sin(fei)+L3*Sin(angle3))/(L*Cos(fei)+L3*Cos(angle3))angle2=Atn(bb)If(bb<0)Thenangle2=angle2+3.1415926EndIfbx=L1*Cos(angle1)by=-L1*Sin(angle1)cx=bx+L2*Cos(angle2)cy=by-L2*Sin(angle2)DrawWidth=2Line(0,0)-(bx,by),RGB(255,0,0)Line(bx,by)-(cx,cy),RGB(0,255,0)Line(cx,cy)-(L4,0),RGB(0,0,255)DrawWidth=5Line(0,0)-(L4,0)EndSub实现机构动画:双击开始、停止按钮以及时钟控件,加入代码实现机构动画。在“开始”按钮中添加语句使时钟开始工作。PrivateSubStart_Click()Timer1.Enabled=TrueEndSub在“停止”按钮中添加语句使时钟停止工作。PrivateSubStop_Click()Timer1.Enabled=FalseEndSub时钟控件语句中清屏,并调用画图子程序。PrivateSubTimer1_Timer()ClsDrawingangle1=angle1+10*3.1415926/180EndSub实现机构的参数化:在界面窗口中添加4个标签控件(Label)和4个文本输入控件(Textbox)如图所示。Label控件的caption分别改为:AB、BC、CD、AD;Textbox控件的Name分别定义为:L_AB,L_BC,L_CD和L_AD。首先初始化4个文本输入控件,在窗口生成时将已经预先给定的4个杆长尺寸填入文本输入窗口中。在子过程函数SubForm_Load()中添加如下黑体字所示代码,其它代码不变。PrivateSubForm_Load()……L1=300L2=500L3=550L4=600L_ab.Text=L1L_bc.Text=L2L_cd.Text=L3L_ad.Text=L4……EndSub当用户改变机构参数时,更新图形显示。在子过程函数SubStart_Click()中添加如下黑体字所示代码,其它代码不变。PrivateSubStart_Click()Timer1.Enabled=TrueL1=Int(L_ab.Text)L2=Int(L_bc.Text)L3=Int(L_cd.Text)L4=Int(L_ad.Text)EndSub