彭志剛

（ 江蘇東成工具有限公司 江蘇啟東 226244）

基于VBA彈簧位移與壓力(拉力)的計算

彭志剛

（ 江蘇東成工具有限公司 江蘇啟東 226244）

利用VBA編程，實現了彈簧彈力與位移關系的自動化計算，大大提高了機械設計人員工作效率。

VBA 彈簧彈力 位移

1 引言

電動工具中，彈簧的應用相當廣泛，也十分重要。例如碳刷的壓縮彈簧，其彈簧壓力設計的好壞，直接影響電機的火花，最終會影響到電機的使用壽命。又如電錘、水鉆脫扣裝置中的壓簧設計得是否合理，最終會影響到產品的安全使用。因此，在電動工具的設計中，彈簧的應用須特別注意。

2 傳統(tǒng)的彈簧計算

傳統(tǒng)的彈簧計算是根據機械設計的公式，將彈簧參數代入公式中，通過復雜的計算，得出某個位移與應力之間的關系：

式中 F—彈簧的工作載荷，N

G—彈簧的切變模量，MPa

f—工作載荷下的變形量，mm

d—彈簧材料的直徑，mm

D—彈簧中徑，mm

n—彈簧的有效圈數

在彈簧設計時，當給出彈簧的工作條件、工作載荷F和對應的變形量f，其計算步驟大體是先根據工作條件確定彈簧類型，選擇材料，查取彈簧的切變模量；然后在5～8范圍內初步選取旋繞比，計算彈簧中徑D與彈簧材料的直徑d。按此步驟反復計算，比較不同的結果，選取最優(yōu)方案。因此上述公式要多次運用，所以計算量非常繁瑣，而且容易算錯。

3 基于VBA程序彈簧壓力的計算

（1）打開VB程序，選取標準 EXE，然后點擊打開按鈕，如圖1所示。

圖1

（2）在窗體（Form1）中加入七個標簽Label1、Label2、Label3、Label4、Label5、Label6、Label7。在上述七個標簽的屬性中分別將Caption屬性設為“江蘇東成工具有限公司”、“切變模量”、“彈簧線徑（mm）”、“有效圈數”、“位移（mm）”、“彈力（N）”，如圖2。

圖2

（3）在上述標簽后面依次加入六個文本框text1、text2、text3、text4、text5、text6，并將上述六個文本框屬性text后面的屬性字符去除，如圖3。

圖3

（4）在圖3中加入三個命令按鈕：Command1、Command2、Command3，如圖 4。

圖4

依 次 將 Command1、Command2、Command3的Caption屬性設為“計算”、“退出”、“打印”。

雙擊Command計算命令按鈕，在“計算”命令按鈕添加代碼：Text6.Text = (Text5.Text * Text1.Text * Text2.Text ^ 4) / (8 *Text3.Text ^ 3 * Text4.Text)，用來計算彈力的大小。

雙擊退出命令按鈕，在“退出”命令按鈕添加代碼：Unload Form1，用來退出程序。

雙擊打印命令按鈕，在“打印”命令按鈕添加代碼：Form1.PrintForm，用來打印該窗體。

（5）最后打開文件菜單，點擊生成彈簧計算.exe(K)，生成可執(zhí)行文件，如圖5。

圖5

4 應用案例

一款電錘離合器壓簧的設計。工作原理是：正常工作時，螺旋齒輪1作為主動輪帶動螺旋齒輪2旋轉，螺旋齒輪2通過端面離合齒帶動離合盤一起旋轉，離合器盤通過內花鍵帶動轉套旋轉，從而實現電錘的旋轉運動。當螺旋齒輪2旋轉的過程中遇到過量的負載，螺旋齒輪2承受的軸向壓力大于壓簧的壓力時, 離合器盤向左移動, 離合器盤與螺旋齒輪2離合，轉套停止轉動。即當工具堵轉超負載時，電錘停止旋轉動動，可防止操作者被工具扭傷的危險。如圖6。

圖6

打開生成的彈簧計算.exe文件，在切變模量標簽后面的文本框中輸入彈簧的切變模量79000。根據該款電錘空間安裝尺寸及壓力為191N的需求，可設計出一個如下參數的彈簧。在彈簧線徑標簽后面的文本框中輸入彈簧的線徑4，在彈簧中徑標簽后面的文本框中輸入彈簧的中徑34.5，在有效圈數標簽后面的文本框中輸入彈簧的有效圈數2，在位移標簽后面的文本框中輸入彈簧的位移6.2，點擊計算命令按鈕，則在彈力標簽后的文本框中會自動計算出彈力值190.8，符合設計要求，如圖7。

圖7

5 結束語

本文利用VBA編程，實現了彈簧計算的自動化，創(chuàng)建了人機交互界面。在已知切變模量、彈簧中徑、彈簧線徑、有效圈數、位移的情況下，任意調整其中參數，點擊“計算”按鈕，就可以很快顯示彈簧的彈力?？梢渣c擊“打印”按鈕，便于保存計算結果。

[1]龔沛曾，陸慰民，楊志強.Visual Basic 程序設計簡明教程. 高等教育出版社，2007

[2]成大先.機械設計手冊 第3卷.化學工業(yè)出版社，2008