【正文】 決方案 本 設(shè)計(jì)的任務(wù)和要求 1 使用 vb 進(jìn)行編程。各參數(shù)以變量形式編入程序，原始參數(shù)在程序運(yùn)行時(shí)輸入。 1 自由度的計(jì)算： 自由度的計(jì)算公式： F=3n2PLPH 式中， n 為機(jī)構(gòu)中活動(dòng)構(gòu)件的數(shù)目； PL 為低副數(shù)目； PH 為 高副 數(shù)目。其中還包括對(duì)字體格式的設(shè)置，并運(yùn)用了一個(gè) Timer 控件 ，并自動(dòng)跳轉(zhuǎn)到下個(gè)窗口 窗口主菜單。 VB面向 Word 編程實(shí)例。設(shè)置表格第 2 列 第 29 頁(yè) 共 65 頁(yè) .Col = 1 .Row = 0 .Text = 運(yùn)動(dòng)參數(shù) 39。設(shè)置 picture1 動(dòng)畫(huà)演示圖片框 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 頁(yè) 共 65 頁(yè) 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é)果曲線(xiàn)顯示圖片框 h = 6000 If k = 2 Then h = 30000 Select Case Case AB 桿角速度曲線(xiàn) 第 34 頁(yè) 共 65 頁(yè) N = 0 = vbRed = i = ωAB(i) = i = 0 (i, ωAB(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case AB 桿角加速度曲線(xiàn) N = 0 = vbRed = i = ωAB(i) = i = 0 (i, ωAB(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case C 點(diǎn)速度曲線(xiàn) N = 1 = vbRed = i = VYC(i) = i = 0 (i, VYC(i)), / h, vbBlue 第 35 頁(yè) 共 65 頁(yè) (0, 0)(360, 0), vbBlue Case C 點(diǎn)加速度曲線(xiàn) N = 1 = vbRed = i = aYC(i) = i = 0 (i, aYC(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case C 點(diǎn)位置曲線(xiàn) N = 1 = vbRed = i = YC(i) = i = 0 (i, YC(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case CD 桿角速度曲線(xiàn) N = 2 = vbRed = i = ωCD(i) = i 第 36 頁(yè) 共 65 頁(yè) = 0 (i, ωCD(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case CD 桿角加速度曲線(xiàn) N = 2 = vbRed = i = εCD(i) = i = 0 (i, εCD(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case G 點(diǎn)速度曲線(xiàn) N = 3 = vbRed = i = VYG(i) = i = 0 (i, VYG(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case G 點(diǎn)加速度曲線(xiàn) N = 3 = vbRed = i = aYG(i) 第 37 頁(yè) 共 65 頁(yè) = i = 0 (i, aYG(i)), / h, vbBlue (0, 0)(360, 0), vbBlue Case G 點(diǎn)位置曲線(xiàn) 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 頁(yè) 共 65 頁(yè) With .Col = 0 .Row = 2 .Text = C 點(diǎn)速度 .Row = 3 .Text = C 點(diǎn)加速度 .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 頁(yè) 共 65 頁(yè) .Text = Format(εCD(i), ) End With End If If N = 3 Then With .Col = 0 .Row = 2 .Text = G 點(diǎn)速度 .Row = 3 .Text = G 點(diǎn)加速度 .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 = 這部分代碼實(shí)現(xiàn)的是顯示動(dòng)態(tài)曲線(xiàn)。設(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 頁(yè) 共 65 頁(yè) .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 本段代碼實(shí)現(xiàn)的是一個(gè)數(shù)據(jù)的讀取并顯示，從參數(shù)設(shè)置窗體中輸入的數(shù)據(jù)讀取數(shù)據(jù)，輸入到表格中。 運(yùn)動(dòng)分析窗體的控件見(jiàn)表 2： 控件 名稱(chēng) 控件 名稱(chēng) MSHFlexGrid1 MSHFlexGrid1 Label11 速度調(diào)節(jié) Command1 動(dòng)畫(huà)播放 Label12 輸入轉(zhuǎn)角（度） Command2 保存結(jié)果 Label13 結(jié)果曲線(xiàn)顯示 Command3 主菜單 Label14 選擇顯示的數(shù)據(jù)結(jié)果 Command4 參數(shù)設(shè)置 Slider1 Slider1 Command6 結(jié)束 Text1 Text1 Command7 輸入 Frame1 Frame1 Combol Combol Frame2 Frame2 表 2 第 27 頁(yè) 共 65 頁(yè) 動(dòng)態(tài)表格生成部分代碼如下： Private Sub Form_Load() AB桿角速度曲線(xiàn) AB 桿角加速度曲線(xiàn) CD 桿角速度曲線(xiàn) CD 桿角加速度曲線(xiàn) C 點(diǎn)速度曲線(xiàn) C 點(diǎn)加速度曲線(xiàn) C 點(diǎn)位置曲線(xiàn) G 點(diǎn)速度曲線(xiàn) G 點(diǎn)加速度曲線(xiàn) G 點(diǎn)位置曲線(xiàn) = AB 桿角速度曲線(xiàn) 39。API 函數(shù)和常量幫助文件聲明 Private Sub Command1_Click() = True 第 25 頁(yè) 共 65 頁(yè) = True 窗口參數(shù)設(shè)置 .Show 窗體識(shí)別 = End Sub Private Sub Command2_Click() 窗口運(yùn)動(dòng)分析 .Show End Sub Private Sub Command3_Click() 窗口三維仿真 .Show End Sub Private Sub Command4_Click() 窗口結(jié)束 .Show Unload Me End Sub Private Sub Command5_Click() 程序使用說(shuō)明 .Show End Sub Private Sub Form_Load() 第 26 頁(yè) 共 65 頁(yè) = True = False = False End Sub Private Sub UpDown1_Change() End Sub 代碼分析：本窗體是各個(gè)窗體之間的中轉(zhuǎn)站，通過(guò)點(diǎn) 擊到達(dá)各個(gè)窗體之間的按鈕而調(diào)用其他窗體。 主動(dòng)件為齒輪 1，齒輪 1 帶動(dòng) 4 連桿機(jī)構(gòu)和齒輪