機械原理課程設計(VB版)2012

1、 一、標識符一、標識符 用來表示變量、常量、函數(shù)、數(shù)組、文件名等名稱的符號。由用來表示變量、常量、函數(shù)、數(shù)組、文件名等名稱的符號。由字母、數(shù)字、下劃線組成，但字母、數(shù)字、下劃線組成，但必須以字母開頭必須以字母開頭。 注意：VB語言中大小寫字母是沒有區(qū)別的，如LAB與lab相同。VB語言要點語言要點變量之間用逗號隔開 二、數(shù)據(jù)類型二、數(shù)據(jù)類型 常用的有：常用的有： integer：整型整型 single：單精度型單精度型 double：雙精度型雙精度型 string：字符串型字符串型 variant：變體型變體型定義方法舉例：定義方法舉例：Public XB as double, YB as d

2、ouble Dim LAB as single, LBC as singleDim I as integer, FLAG as integer三、算術、關系和邏輯運算符三、算術、關系和邏輯運算符1、算術運算符：算術運算符： + - * / (乘方乘方)運算規(guī)則：先乘除后加減；乘方優(yōu)先于乘除；函數(shù)優(yōu)先于乘方；運算規(guī)則：先乘除后加減；乘方優(yōu)先于乘除；函數(shù)優(yōu)先于乘方； 括號最優(yōu)先。括號最優(yōu)先。2、關系（比較）運算符：關系（比較）運算符： = = = 或或 =3+2 True 58 True (38 ) and (58 ) or (56) True四、賦值和顯示語句四、賦值和顯示語句1、賦值語句賦值語

3、句 變量名變量名=表達式表達式 或：對象名或：對象名.屬性屬性=表達式表達式如：如：Flag=1 Pi=3.14159 c=a+b Text1. text=“10”具體格式請參考VB教材2、顯示語句顯示語句 可用可用MsgBox語句：語句：MsgBox “輸出信息字符串輸出信息字符串” ,Buttons例如：例如： If Flag = 0 Then MsgBox “無解無解”, vbOKOnly Exit Sub End If文本框用于輸入、輸出數(shù)字和文字信息五、控制語句五、控制語句FoxPro格式：格式：IF (條件條件) 語句行序列語句行序列1ELSE 語句行序列語句行序列1ENDIF1、

4、If 語句：語句： If 條件條件1 Then 語句語句1 Else 語句語句2 End If或：或：If 條件條件 Then 語句語句 例如：例如： If Flag = 1 Then MsgBox “有解。有解。” Else MsgBox “無解。無解。” End If或：或： IF Flag=0 Then MsgBox “無解。無解?！贝送?，還有此外，還有Select Case語句也可以按條件選擇執(zhí)行語句。語句也可以按條件選擇執(zhí)行語句。For Var = 初始值初始值 TO 結束值結束值 STEP 增量增量 語句段語句段 Exit ForNext Var 例如：例如： For I = 0

5、To 36 Call Link(0,0,0,0,0,0,i*10*Pi/180,W1,0,LAB,XB,YB,XBv,YBv,XBa,YBa) Next I此外，還有此外，還有 While - Wend Do - Loop等執(zhí)行循環(huán)的語句。等執(zhí)行循環(huán)的語句。2、For 循環(huán)語句循環(huán)語句六、數(shù)組六、數(shù)組1、定義定義 1維：維：Dim或或Public 數(shù)組名數(shù)組名(常量表達式常量表達式) 如： Public MD(25) as Double, Q(3) as Double , W(3) as Double 2維維：Dim或或Public 數(shù)組名數(shù)組名(常量表達式常量表達式1,常量表達式常量表達式2

6、) 如： Public a(3,4) as Double, d(100,40) as Integer注意：默認數(shù)組下標為注意：默認數(shù)組下標為0。也可指定上下標，如：也可指定上下標，如： Dim a(1 to 3，1 to 4), b(-99 to -5, -3 To 0)2、賦值賦值 用賦值語句或輸入語句使數(shù)組元素得到值。例如：用賦值語句或輸入語句使數(shù)組元素得到值。例如： a(1,1)=cos(W(1)+ W(0) ) : a(1,3)=3: d(2,1)= d(1,1)+203、引用引用 數(shù)組元素也可以出現(xiàn)在表達式的右側，如：數(shù)組元素也可以出現(xiàn)在表達式的右側，如： d(1)=m*z(1):

7、p1=a(1,4): b(1,2)=(a(3,2)+a(2,1)/2七、子過程七、子過程1. Sub 子過程子過程PublicPrivate Sub 過程名（參數(shù)表）過程名（參數(shù)表） 語句塊語句塊End Sub例如：例如：Public Sub Link(XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, QAB As Double, WAB As Double, EAB As Double, LAB As Double, XB As Double, YB As Doubl

8、e, XBv As Double, YBv As Double, XBa As Double, YBa As Double) XB = XA + LAB * Cos(QAB) YB = YA + LAB * Sin(QAB) XBv = XAv - LAB * WAB * Sin(QAB) YBv = YAv + LAB * WAB * Cos(QAB) XBa = XAa - LAB * WAB 2 * Cos(QAB) - LAB * EAB * Sin(QAB) YBa = YAa - LAB * WAB 2 * Sin(QAB) + LAB * EAB * Cos(QAB)End Su

9、b調用方法：調用方法： call 過程名（參數(shù)表）過程名（參數(shù)表） call Link(0,0,0,0,0,0,i*10*Pi/180,W1,0,LAB,XB,YB,XBv,YBv,XBa,YBa)2. Function 函數(shù)函數(shù)PublicPrivate Function 函數(shù)名（參數(shù)表）函數(shù)名（參數(shù)表） 語句塊語句塊End Function例如：例如：Public Function RRR2(XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, XC As Double

10、, YC As Double, XCv As Double, YCv As Double, XCa As Double, YCa As Double, LAB As Double, LBC As Double, Mount As Double, QAB As Double, WAB As Double, EAB As Double, QCB As Double, WCB As Double, ECB As Double) As Integer If (LAC = Abs(LAB - LBC) Then RRR2 = 1 Else RRR2 = 0 Exit Function End If En

11、d Function調用方法：調用方法： Flag = RRR2(XB, YB, XBv, YBv, XBa, YBa, LAD, 0, 0, 0, 0, 0, LBC, LCD, 1, QBC, WBC, EBC, QDC, WDC, EDC)注意：注意：VB中定義了許多標準函數(shù)，如中定義了許多標準函數(shù)，如sin()、cos()、atn() 、abs()、sqr()使用使用方法方法 查有關資料。查有關資料。機械原理課機械原理課程設計程設計第一節(jié)第一節(jié) 運動分析部分運動分析部分（題題）一、機構組成原理一、機構組成原理機構機構基本桿組基本桿組+I I 級機構級機構可拆分可組成級機構級機構級桿組級

12、桿組可分為可分為 當給定當給定I I級機構的運動規(guī)律后，機構中各基本桿組的運動是確級機構的運動規(guī)律后，機構中各基本桿組的運動是確定的。定的。 如果如果編寫了各種桿組類型的子程序編寫了各種桿組類型的子程序，就可按，就可按機構的組成原理機構的組成原理來來分析分析機構的運動規(guī)律。機構的運動規(guī)律。二、二、級桿組（幾種最簡單類型）級桿組（幾種最簡單類型）R-Revolute PairP-Prismatic Pair還有PRP、PPR三、計算機輔助運動分析步驟三、計算機輔助運動分析步驟1構件及構件及級桿組子程序級桿組子程序(P2P9)AB1）構件：構件：Public Sub Link(XA As Doub

13、le, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, QAB As Double, WAB As Double, EAB As Double, LAB As Double, XB As Double, YB As Double, XBv As Double, YBv As Double, XBa As Double, YBa As Double)調用方法：調用方法：Call Link(0,0,0,0,0,0,i*10*Pi/180,W1,0,LAB,XB,YB,XBv,YBv,XBa,YBa)

14、Call Link(XD,YD,0,0,0,0,QCD-AFA,WCD,ECD,LDE,XE,YE,XEv,YEv,XEa,YEa)ABCDEFACB2）RRR桿組：桿組：Public Function RRR2(XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, XC As Double, YC As Double, XCv As Double, YCv As Double, XCa As Double, YCa As Double, LAB As Double, LB

15、C As Double, Mount As Double, QAB As Double, WAB As Double, EAB As Double, QCB As Double, WCB As Double, ECB As Double) As Integer若裝配方式A-B-C為順時針：Mount=1若裝配方式A-B-C為逆時針：Mount= -1 FLAG=0：無解； FLAG =1：有解調用方法：調用方法：FLAG=RRR2(XB,YB,XBv,YBv,XBa,YBa,XD,YD,0,0,0,0,LBC,LCD,1, QBC, WBC,EBC,QCD,WCD,ECD)ABCDEF3）RR

16、P桿組：桿組：Public Function RRP2(AFA As Double, Px As Double, Py As Double, XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, LAB As Double, QAB As Double, WAB As Double, EAB As Double) As IntegerFLAG=0：無解；FLAG =1：有解AFA為滑塊導路與X軸的夾角，如圖1-3所示；Px , Py分別為滑塊導路參考點P的x , y坐標。調

17、用方法：調用方法： FLAG=RRP2(0,0,E,XE,YE,XEv,YEv,XEa,YEa,LEF,QEF,WEF,EEF)ABCDEF4）RPR桿組：桿組：Public Sub RPR2(XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, XB As Double, YB As Double, XBv As Double, YBv As Double, XBa As Double, YBa As Double, Q As Double, W As Double, E

18、 As Double)ARPR調用方法：調用方法： Call RPR2(0, -LAD, 0, 0, 0, 0, XB, YB, XBv, YBv, XBa, YBa, QDE, WDE, EDE)ABCDEF2具體機構拆分桿組具體機構拆分桿組(P10圖圖1- -7)如：如：ABBCEF3編寫具體機構運動分析主程序編寫具體機構運動分析主程序如：在如：在“你使用的子程序模塊你使用的子程序模塊” ” 中編寫以下內容：中編寫以下內容：在在“Option ExplicitPublic LAB As Double, LBCPublic XB As Double, YB.Public a As Doubl

19、e, V . ”下一行添加下一行添加未定義的變量未定義的變量Public E As Double, XF As Double, . Public W1 As Double, AFA As Double .ABCDEF定義變量定義變量Public Sub calResult() ReDim CurveVal1(0 To 36), CurveVal2(0 To 36), CurveVal3(0 To 36), CurveVal4(0 To 36) ReDim CurveVal5(0 To 36), CurveVal6(0 To 36), CurveVal7(0 To 0), CurveVal8(0

20、 To 0) ReDim CurveVal9(0 To 0), CurveVal10(0 To 0), CurveVal11(0 To 0), CurveVal12(0 To 0) 要根據(jù)實際需要調整上標要根據(jù)實際需要調整上標 TotalPathNum = UBound(CurveVal1)在下面在下面添加你編寫的主程序添加你編寫的主程序LAB=20:W1=5:LBC=40:AFA=30. 參數(shù)輸入語句參數(shù)輸入語句FOR I=0 TO 36 Call Link(0,0,0,0,0,0,I*10*Pi/180,W1,0,LAB,XB,YB,XBv,YBv,XBa,YBa) FLAG=RRR2(X

21、B,YB,XBv,YBv,XBa,YBa,XD,YD,0,0,0,0,LBC,LCD,1, QBC,WBC,EBC,QCD,WCD,ECD) If Flag = 0 Then MsgBox “無解無解”, vbOKOnly Exit Sub 第第34題除外題除外 End IfABCDEF用來定義或重定義原來已經(jīng)用用來定義或重定義原來已經(jīng)用帶空圓括號（沒有維數(shù)下標）帶空圓括號（沒有維數(shù)下標）的的 Private、Public 或或 Dim 語語句聲明過的動態(tài)數(shù)組的大小。句聲明過的動態(tài)數(shù)組的大小。 Call Link(XD,YD,0,0,0,0,QCD- -AFA*Pi/180,WCD,ECD,L

22、DE,XE,YE,XEv,YEv,XEa,YEa) FLAG=RRP2(0,0,E,XE,YE,XEv,YEv,XEa,YEa,LEF,QEF,WEF,EEF) If Flag = 0 Then MsgBox “無解無解”, vbOKOnly Exit Sub End If Call Link(XE,YE,XEv,YEv,XEa,YEa,QEF,WEF,EEF,LEF,XF,YF,XFv,YFv,XFa, YFa) CurveVal1(I)=XF: CurveVal2(I)=YF: CurveVal3(I)=XFv CurveVal4(I)=YFv: CurveVal5(I)=XFa: Cur

23、veVal6(I)=YFa 參數(shù)輸出語句，可賦值給參數(shù)輸出語句，可賦值給CurveVal1,CurveVal2,CurveVal3 數(shù)組。數(shù)組。Next IEnd Sub注意：主程序必須按桿組法編寫。注意：主程序必須按桿組法編寫。ABCDEF第二節(jié)第二節(jié) 設計說明書編寫設計說明書編寫、說明書格式、說明書格式(P1) （約（約2530頁）頁）目錄（注意：此頁不編頁碼）一、題目一、題目1注意：題目中的圖標號改為題圖1-1二、數(shù)學模型及理論公式推導二、數(shù)學模型及理論公式推導21、單桿構件子程序22、？注意：1）圖、表、式必須改為圖2-1、2-2 ，表2-1、，（2-1）；所有的 式子標示（2-1）、

24、（2-2）要靠右對齊 2）標識符說明表和子程序算法中：三、主程序及其程序框圖三、主程序及其程序框圖？1、桿組拆分2、標識符說明（表） 注意：只需說明第二章中沒有出現(xiàn)過的變量標識符3、程序框圖注意：框圖格式要符合規(guī)范，參照P12圖1-84、主程序源程序注意：包括你使用的子程序模塊中的程序和自己編寫的輸入界面的程序四、結果及分析四、結果及分析？1、程序運行結果注意：1）以表格的形式輸出結果，行：曲柄的轉角0、10、20、360， 列：所求的結果XH、YH、XHv、YHv、XHa、YHv； 2）數(shù)值只要保留小數(shù)點后兩位，單位用mm、mm/s、mm/s2, 、rad/s 2、結果分析 輸出單條曲線圖（

25、打印,下方帶此條曲線的數(shù)值）， 并為此 圖編序號，如：圖4-1 F點的x方向位移。分析說明每條曲 線變化的趨勢，最大、最小值及其位置。分析同一點速度 與加速度的關系。五、心得及致謝五、心得及致謝？六、參考文獻六、參考文獻（書寫格式見P48） ？、要求：、要求：1、全班用統(tǒng)一的、全班用統(tǒng)一的A4復印紙書寫（請班長統(tǒng)一購買和復?。?；復印紙書寫（請班長統(tǒng)一購買和復?。?、必須、必須用鋼筆書寫用鋼筆書寫，不可以用圓珠筆書寫；除，不可以用圓珠筆書寫；除程序、界面、曲線程序、界面、曲線圖和運行結果圖和運行結果外其余外其余不能用計算機打印不能用計算機打印。第三節(jié)第三節(jié) 子程序的使用子程序的使用1、將放在指

26、定位置（、將放在指定位置（原理課程設計原理課程設計(VB)2012目錄）的程序全部復目錄）的程序全部復制到自己的目錄制到自己的目錄(在在D:建立建立學號子目錄學號子目錄)中；中；2、運行、運行VB，執(zhí)行下拉菜單，執(zhí)行下拉菜單“文件文件”“打開工程打開工程”，在剛才的目，在剛才的目錄中找到錄中找到“原理課程設計原理課程設計.vbp”，打開它；，打開它；3、在右側的、在右側的“工程資源工程資源管理器管理器”中雙擊中雙擊“你使你使用的子程序模塊用的子程序模塊”;4、在該模塊的、在該模塊的指定位置編程指定位置編程即可即可;5、運行時，執(zhí)行、運行時，執(zhí)行“運行運行” “啟動啟動”或點擊工具欄的或點擊工具

27、欄的 按按鈕鈕6、注意：、注意：1）“公共子程序模塊公共子程序模塊”包含了本課程設計包含了本課程設計所有的子程序所有的子程序，里面，里面有使用說明，編寫主程序前應認真閱讀一下子程序，特別是有使用說明，編寫主程序前應認真閱讀一下子程序，特別是其其調用方法調用方法；2） “你使用的子程序模塊你使用的子程序模塊” 可以隨意修改，其它任何程序不可以隨意修改，其它任何程序不要隨意修改要隨意修改 ，特別是，特別是“公共子程序模塊公共子程序模塊”不要隨意修改不要隨意修改 。3）運動分析的題目必須用桿組法進行編程。）運動分析的題目必須用桿組法進行編程。第四節(jié)第四節(jié) 程序的編寫程序的編寫或Rem符號之后的內容為

28、注釋內容注釋內容。定義公共變量公共變量或模塊變量模塊變量變量賦值定義過程在這里寫你的程序在這個模塊里寫你的程序，其它模塊一般不要修改。例：例：圖示機構中，已知原動件圖示機構中，已知原動件AB等速轉動，等速轉動，WAB=10rad/s，LAB=100mm， LBC=300mm，LCD=250mm，LCE=100mm，LFG=150mm，LGH=300mm，XD=160mm，YD=0，XF=300mm，YF=- -30mm，EFG=30， =10。求一個運動循環(huán)中滑塊求一個運動循環(huán)中滑塊H點的位移、速度、加速度變化曲線。（注：點的位移、速度、加速度變化曲線。（注：EF與與FG為為同一構同一構件，滑塊件，滑塊H的導路與水平方向夾角為的導路與水平方向夾角為）點擊，運點擊，運行