【正文】 決方案 本 設(shè)計的任務(wù)和要求 1 使用 vb 進行編程。各參數(shù)以變量形式編入程序，原始參數(shù)在程序運行時輸入。 1 自由度的計算： 自由度的計算公式： F=3n2PLPH 式中， n 為機構(gòu)中活動構(gòu)件的數(shù)目； PL 為低副數(shù)目； PH 為 高副 數(shù)目。其中還包括對字體格式的設(shè)置，并運用了一個 Timer 控件 ，并自動跳轉(zhuǎn)到下個窗口 窗口主菜單。 VB面向 Word 編程實例。設(shè)置表格第 2 列 第 29 頁 共 65 頁 .Col = 1 .Row = 0 .Text = 運動參數(shù) 39。設(shè)置 picture1 動畫演示圖片框 XO = 0: YO = 0 39。生成各零件三維模型 radius = LOA / 4 center1(0) = 0: center1(1) = 0: center1(2) = 0 center2(0) = XA(0): center2(1) = YA(0): center2(2) = 0 center3(0) = XB(0): center3(1) = YB(0): center3(2) = 0 center4(0) = XC(0): center4(1) = YC(0): center4(2) = 0 center5(0) = XD(0): center5(1) = YD(0): center5(2) = 0 center6(0) = XF(0): center6(1) = YF(0): center6(2) = 0 center7(0) = XG(0): center7(1) = YG(0): center7(2) = 0 center8(0) = XQ(0): center8(1) = YQ(0): center8(2) = 0 center9(0) = XP(0): center9(1) = YP(0): center9(2) = 0 center10(0) = XE: center10(1) = YE: center10(2) = 0 center11(0) = 0: center11(1) = 0: center11(2) = LOA / 1 center12(0) = XE: center12(1) = YE: center12(2) = LOA / 1 center13(0) = XA(0): center13(1) = YA(0): center13(2) = LOA / 2 第 45 頁 共 65 頁 center14(0) = h / 2: center14(1) = YGmin * LGP: center14(2) = * LOA / 1 center15(0) = XG(0): center15(1) = YGmin * LGP + LOA / 2 + LGP / 12: center15(2) = 0。設(shè)置 picture2 結(jié)果曲線顯示圖片框 h = 6000 If k = 2 Then h = 30000 Select Case Case AB 桿角速度曲線 第 34 頁 共 65 頁 N = 0 = vbRed = i = ωAB(i) = i = 0 (i, ωAB(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case AB 桿角加速度曲線 N = 0 = vbRed = i = ωAB(i) = i = 0 (i, ωAB(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case C 點速度曲線 N = 1 = vbRed = i = VYC(i) = i = 0 (i, VYC(i)), / h, vbBlue 第 35 頁 共 65 頁 (0, 0)(360, 0), vbBlue Case C 點加速度曲線 N = 1 = vbRed = i = aYC(i) = i = 0 (i, aYC(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case C 點位置曲線 N = 1 = vbRed = i = YC(i) = i = 0 (i, YC(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case CD 桿角速度曲線 N = 2 = vbRed = i = ωCD(i) = i 第 36 頁 共 65 頁 = 0 (i, ωCD(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case CD 桿角加速度曲線 N = 2 = vbRed = i = εCD(i) = i = 0 (i, εCD(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case G 點速度曲線 N = 3 = vbRed = i = VYG(i) = i = 0 (i, VYG(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case G 點加速度曲線 N = 3 = vbRed = i = aYG(i) 第 37 頁 共 65 頁 = i = 0 (i, aYG(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case G 點位置曲線 N = 3 = vbRed = i = YG(i) = i = 0 (i, YG(i)), / h, vbBlue (0, 0)(360, 0), vbBlue End Select If N = 0 Then With .Col = 1 .Row = 2 .CellForeColor = vbRed .Text = Format(ωAB(i), 0. 00) .Row = 3 .CellForeColor = vbRed .Text = Format(εAB(i), ) End With End If If N = 1 Then 第 38 頁 共 65 頁 With .Col = 0 .Row = 2 .Text = C 點速度 .Row = 3 .Text = C 點加速度 .Col = 1 .Row = 2 .CellForeColor = vbRed .Text = Format(VYC(i), ) .Row = 3 .CellForeColor = vbRed .Text = Format(aYC(i), ) End With End If If N = 2 Then With .Col = 0 .Row = 2 .Text = CD 角速度 .Row = 3 .Text = CD 角加速度 .Col = 1 .Row = 2 .CellForeColor = vbRed .Text = Format(ωCD(i), ) .Row = 3 .CellForeColor = vbRed 第 39 頁 共 65 頁 .Text = Format(εCD(i), ) End With End If If N = 3 Then With .Col = 0 .Row = 2 .Text = G 點速度 .Row = 3 .Text = G 點加速度 .Col = 1 .Row = 2 .CellForeColor = vbRed .Text = Format(VYG(i), ) .Row = 3 .CellForeColor = vbRed .Text = Format(aYG(i), ) End With End If With .Col = 1 .Row = 1 .CellForeColor = vbRed .Text = 這部分代碼實現(xiàn)的是顯示動態(tài)曲線。設(shè)置表格第 3 列 .Col = 2 .Row = 0 .Text = 單位 .Row = 1 .Text = 度 .Row = 2 .Text = mm(rad)/秒 .Row = 3 .Text = mm(rad)/平方秒 .Row = 4 .Text = .Row = 5 .Text = .Row = 6 .Text = 毫米 .Row = 7 第 31 頁 共 65 頁 .Text = 毫米 .Row = 8 .Text = 毫米 .Row = 9 .Text = 毫米 .Row = 10 .Text = 毫米 .Row = 11 .Text = 毫米 .Row = 12 .Text = 毫米 .Row = 13 .Text = 毫米 .Row = 14 .Text = 毫米 .Row = 15 .Text = 度 .Row = 16 .Text = 1/秒 End With 圖 5 本段代碼實現(xiàn)的是一個數(shù)據(jù)的讀取并顯示，從參數(shù)設(shè)置窗體中輸入的數(shù)據(jù)讀取數(shù)據(jù)，輸入到表格中。 運動分析窗體的控件見表 2： 控件 名稱 控件 名稱 MSHFlexGrid1 MSHFlexGrid1 Label11 速度調(diào)節(jié) Command1 動畫播放 Label12 輸入轉(zhuǎn)角（度） Command2 保存結(jié)果 Label13 結(jié)果曲線顯示 Command3 主菜單 Label14 選擇顯示的數(shù)據(jù)結(jié)果 Command4 參數(shù)設(shè)置 Slider1 Slider1 Command6 結(jié)束 Text1 Text1 Command7 輸入 Frame1 Frame1 Combol Combol Frame2 Frame2 表 2 第 27 頁 共 65 頁 動態(tài)表格生成部分代碼如下： Private Sub Form_Load() AB桿角速度曲線 AB 桿角加速度曲線 CD 桿角速度曲線 CD 桿角加速度曲線 C 點速度曲線 C 點加速度曲線 C 點位置曲線 G 點速度曲線 G 點加速度曲線 G 點位置曲線 = AB 桿角速度曲線 39。API 函數(shù)和常量幫助文件聲明 Private Sub Command1_Click() = True 第 25 頁 共 65 頁 = True 窗口參數(shù)設(shè)置 .Show 窗體識別 = End Sub Private Sub Command2_Click() 窗口運動分析 .Show End Sub Private Sub Command3_Click() 窗口三維仿真 .Show End Sub Private Sub Command4_Click() 窗口結(jié)束 .Show Unload Me End Sub Private Sub Command5_Click() 程序使用說明 .Show End Sub Private Sub Form_Load() 第 26 頁 共 65 頁 = True = False = False End Sub Private Sub UpDown1_Change() End Sub 代碼分析：本窗體是各個窗體之間的中轉(zhuǎn)站，通過點 擊到達各個窗體之間的按鈕而調(diào)用其他窗體。 主動件為齒輪 1，齒輪 1 帶動 4 連桿機構(gòu)和齒輪