資源描述：
《VB編寫機構運動仿真程序》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、VB編寫機構運動仿真程序步驟1.建立工程：打開VisualBasic6.0應用程序，在NewProject中建立“StandardEXE”標準可執(zhí)行文件。2.設計應用程序的界面：將Form1窗口的Caption改為“鉸鏈四桿機構運動仿真”。在Form1窗口中添加2個按鈕，Name分別取“Start”、“Stop”，Caption分別取“開始”，“停止”。再添加一個時鐘控件，將其“Enabled”屬性設置為“False”，“Interval”屬性設置為“1000”。1.編寫程序代碼：程序代碼是在代碼窗口中編寫的。直接雙擊界面，打開代碼窗口，首先定義機構參數(shù)，分別表示4
2、個桿長尺寸：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,sita4AsDouble2.在窗體載入的子過程中添加代碼用于實現(xiàn)窗口的初始化，包括定義窗口的大小，設置用戶自定義的坐標范圍及坐標原點，以及設置機構的初始參數(shù)。PrivateSubForm_Load()Form1.Width=12000Form1.Height=8000ScaleTop=-1000
3、ScaleLeft=-1500ScaleWidth=3000ScaleHeight=2000L1=300L2=500L3=550L4=600bx=by=cx=cy=0angle1=0.5angle2=angle3=sita4=0EndSub3.添加一個“Sub”子過程，用于實現(xiàn)計算并繪制機構圖形。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)
4、-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.1415926EndI
5、fbx=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)EndSub1.實現(xiàn)機構動畫：雙擊開始、停止按鈕以及時鐘控件，加入代碼實現(xiàn)機構動畫。在“開始”按鈕中添加語句使時鐘開始工作。PrivateSubStart_C
6、lick()Timer1.Enabled=TrueEndSub在“停止”按鈕中添加語句使時鐘停止工作。PrivateSubStop_Click()Timer1.Enabled=FalseEndSub時鐘控件語句中清屏，并調用畫圖子程序。PrivateSubTimer1_Timer()ClsDrawingangle1=angle1+10*3.1415926/180EndSub2.實現(xiàn)機構的參數(shù)化：在界面窗口中添加4個標簽控件（Label）和4個文本輸入控件（Textbox）如圖所示。Label控件的caption分別改為：AB、BC、CD、AD；Textbox控件的N
7、ame分別定義為：L_AB，L_BC，L_CD和L_AD。1.首先初始化4個文本輸入控件，在窗口生成時將已經(jīng)預先給定的4個桿長尺寸填入文本輸入窗口中。在子過程函數(shù)SubForm_Load()中添加如下黑體字所示代碼，其它代碼不變。PrivateSubForm_Load()……L1=300L2=500L3=550L4=600L_ab.Text=L1L_bc.Text=L2L_cd.Text=L3L_ad.Text=L4……EndSub2.當用戶改變機構參數(shù)時，更新圖形顯示。在子過程函數(shù)SubStart_Click()中添加如下黑體字所示代碼，其它代碼不變。Priv
