VB编写机构运动仿真程序

ThismodelpaperwasrevisedbytheStandardizationOfficeonDecember10,2020VB编写机构运动仿真程序VB编写机构运动仿真程序步骤建立工程：打开VisualBasic6.0应用程序，在NewProject中建立“StandardEXE”标准可执行文件。设计应用程序的界面：将Form1窗口的Caption改为“铰链四杆机构运动仿真”。在Form1窗口中添加2个按钮，Name分别取“Start”、“Stop”，Caption分别取“开始”，“停止”。再添加一个时钟控件，将其“Enabled”属性设置为“False”，“Interval”属性设置为“1000”。编写程序代码：程序代码是在代码窗口中编写的。直接双击界面，打开代码窗口，首先定义机构参数，分别示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