【正文】 chanical,2003，(10):11171123[23] 高春艷，安劍， Basic的24堂(M).清華大學出版社[24] 周魏松，李志祥，[J].,9:3638[25] HongSen Yan，YanAn Yao，HuiJun ServoCam of the Chinese Society of Mechanical Engineers，2001，22（2）:99104[26] 武繼松，肖軍，[J].引進吸收，1997，2：5051[27] 楊土法，李志祥，[J].浙江工程學院學報，2002，19（1）：1014[28] [D].天津大學，2009[29] [D].陜西科技大學，2007[30] 楊書林，羅建東，[J].機械科學與設計，2002，21（6）:913914[31] 吳宵，傅燕鳴，[J].機械科學與技術，2012，31（7）：11321135[32] 田綠竹，霍平，[J].煤礦機械，2009，30（7）：202203[33] 孫靖民，(M).：機械工業(yè)出版社，2012[34] (一)[J].絲綢技術，1994(2):2829.[35] (二)[J].絲綢技術，1994(3):811.[36] (三)[J].絲綢技術，1994(4):4649. [37] (四)[J].絲綢技術，1995(1):4648致 謝經(jīng)過一個學期的努力，我在沈毅老師的幫助和悉心指導下順利完成畢業(yè)設計。此次過程，不僅鍛煉了我Pro/E軟件的應用能力和編程能力，也使我深入了解了紡織機械多臂機及折入邊共軛凸輪系統(tǒng)的結構和工作原理。在對共軛凸輪機構原理分析和對計算軟件的編程開發(fā)的過程中，我對共軛凸輪設計和VB程序語言相關的知識有了更加深入的掌握，除此之外，更重要的是培養(yǎng)了我獨立自主的不斷探索進取的設計精神，為以后進入工作崗位打下了深厚的基礎。同時，沈老師的言傳身教和嚴謹治學的態(tài)度，使我受益非淺。值此論文完成之際，我要向沈老師表示最衷心的謝意和良好的祝愿！ 畢業(yè)設計的完成意味著我們四年的大學生涯接近尾聲。在浙江理工大學學習的四年，將會是我生命中永遠的記憶，也會是我人生的轉折點、成功的開始。在此，我要向所有指導和關懷過我的老師們和伴我度過四年大學生活的同學們說聲：謝謝！附錄1 HQ共軛凸輪設計軟件程序1主菜單Option ExplicitPrivate Sub Command1_Click() ‘選擇擺臂凸輪Unload Form2 = True = False = True = False = False = True = True = False = True = True = False = FalseEnd SubPrivate Sub Command2_Click() ‘選擇直動凸輪Unload Form2 = True = False = True = False = True = False = True = False = False = False = True = TrueEnd SubPrivate Sub Command3_Click() ‘退出軟件EndEnd SubPrivate Sub Form_Load() ‘軟件簡介 = 8385 = 5340 = 軟件簡介： amp。 vbCrLf amp。 39。軟件簡介End Sub2參數(shù)輸入界面Option ExplicitPrivate Sub Command1_Click() ‘升程段分段調(diào)整 = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = False = TrueEnd SubPrivate Sub Command13_Click() ‘進入圖形和數(shù)據(jù)界面 = False = TrueEnd SubPrivate Sub Command15_Click() ‘返回主菜單Unload Form1End SubPrivate Sub Command16_Click() ‘擺臂凸輪基本參數(shù)鎖定 = True = True = True = True = True = True = True = False = TrueEnd SubPrivate Sub Command17_Click()If Val() = 0 ThenMsgBox 請輸入凸輪和擺架中心距O1O2, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入擺臂O2A長度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入擺臂O2B長度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入擺臂夾角, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入凸輪A最小極半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子A半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子B半徑, vbOKOnly, 提示Else = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command18_Click() = True = True = True = True = False = TrueEnd SubPrivate Sub Command19_Click() = True = FalseEnd SubPrivate Sub Command2_Click() = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = False = TrueEnd SubPrivate Sub Command20_Click()If Val() = 0 ThenMsgBox 請輸入滾子中心距, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入凸輪A最小極半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子O1半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子O2半徑, vbOKOnly, 提示Else = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()If = True ThenMsgBox 請鎖定分段, vbOKOnly, 提示End IfIf = 1 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfIf = 2 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第二段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfIf = 3 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第三段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfIf = 4 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第二段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第三段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第四段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第四段的終點位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第四段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = False = False = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd I