基于Visual Basic的齒輪傳動(dòng)設(shè)計(jì)軟件編程與開發(fā)

汪超

摘 要：本文介紹了齒輪傳動(dòng)功能和使用場合，介紹了齒輪設(shè)計(jì)開發(fā)的過程，介紹了Visual Basic軟件設(shè)計(jì)開發(fā)過程，跨學(xué)科地完成了軟件開發(fā)和齒輪設(shè)計(jì)結(jié)合的工作，設(shè)計(jì)開發(fā)出了一套可以用于工程師現(xiàn)場使用的齒輪傳動(dòng)設(shè)計(jì)計(jì)算軟件。

關(guān)鍵詞：Visual Basic;齒輪;軟件開發(fā)

Visual Basic（VB）軟件是美國Microsoft公司推出的Windows環(huán)境下的軟件開發(fā)工具，是國際上廣泛使用的一種計(jì)算機(jī)高級(jí)語言，VB提供面向?qū)ο蟮目梢暬O(shè)計(jì)平臺(tái)以及事件驅(qū)動(dòng)的編程機(jī)制，程序員不需要為界面的設(shè)計(jì)編寫大量的代碼，只需要按照使用需求，排布控件，編寫實(shí)現(xiàn)功能所需的代碼，即用戶操作某個(gè)事件來觸發(fā)某種功能的代碼即可。這種編程方式大大提高了編程的效率，方便用戶使用[1]。

齒輪傳動(dòng)（圖1）是一種常見的機(jī)械傳動(dòng)結(jié)構(gòu)，齒輪傳動(dòng)具有結(jié)構(gòu)緊湊、效率高、壽命長等特點(diǎn)，廣泛運(yùn)用于機(jī)床、減速器、工程機(jī)械、飛機(jī)、航天等各種場合。近年來，隨著我國齒輪制造產(chǎn)業(yè)的迅速發(fā)展，齒輪生產(chǎn)規(guī)模和質(zhì)量都得到了巨大的發(fā)展。然而，與制造業(yè)發(fā)達(dá)的國家相比，我國齒輪制造產(chǎn)業(yè)仍然存在著很多的不足，主要體現(xiàn)在生產(chǎn)設(shè)備、加工刀具、齒輪材料、生產(chǎn)協(xié)作與管理等方面[2]。就生產(chǎn)設(shè)備而言，國外2000年前后就開始研究計(jì)算機(jī)技術(shù)與生產(chǎn)設(shè)備的結(jié)合，大量采用CAD/CAM技術(shù)，開發(fā)出大量先進(jìn)的設(shè)計(jì)制造類軟件，幫助現(xiàn)場工程師完成齒輪的設(shè)計(jì)制造過程，我國在這一方面仍然處于發(fā)展初期，很多技術(shù)甚至還處于空白。

本文以直齒圓柱齒輪為例，嘗試使用借助Visual Basic軟件強(qiáng)大軟件開發(fā)功能，結(jié)合齒輪設(shè)計(jì)開發(fā)的實(shí)際需求，開發(fā)出一套可以供現(xiàn)場工程師使用的齒輪設(shè)計(jì)軟件。

1 軟件開發(fā)流程理論

軟件開發(fā)的流程即為軟件設(shè)計(jì)的一般性過程，包括先對(duì)軟件先進(jìn)行市場調(diào)研和需求分析，軟件需求的功能和實(shí)現(xiàn)的算法、軟件設(shè)計(jì)和模塊設(shè)計(jì)、編寫代碼、調(diào)試、交付使用等一系列操作。基于VB的軟件開發(fā)已經(jīng)簡化，一般主要包括四個(gè)步驟：建立用戶界面、設(shè)置窗體和控件的屬性、編寫代碼、調(diào)試運(yùn)行完善。

對(duì)于齒輪傳動(dòng)設(shè)計(jì)輔助軟件來說，首先需要了解齒輪參數(shù)化設(shè)計(jì)的需求，齒輪常見的參數(shù)有齒數(shù)、模數(shù)、壓力角、齒寬、齒頂圓直徑、齒根圓直徑、齒距、分度圓、齒頂高、齒根高、全齒高。其中，齒數(shù)是指整個(gè)齒輪圓周上均勻分布的齒的總數(shù)，用z表示;模數(shù)與輪齒的厚度直接相關(guān)，輪齒厚度越大，模數(shù)越大，國家已經(jīng)將模數(shù)標(biāo)準(zhǔn)化，可以查看國家標(biāo)準(zhǔn)GB/T1357-2008，模數(shù)用m表示;壓力角的定義是齒輪運(yùn)動(dòng)過程中受力方向和運(yùn)動(dòng)方向所夾的銳角，國家標(biāo)準(zhǔn)規(guī)定齒輪的壓力角為α=20°;齒寬為齒輪輪齒沿軸方向的長度，用b表示;齒頂圓直徑是指過齒輪所有輪齒的頂部的圓的直徑，用da表示;齒根圓直徑是指齒頂圓直徑是指過齒輪所有輪齒的頂部的圓的直徑，用df表示;分度圓直徑是指齒頂圓和齒根圓中間選定的一個(gè)圓作為計(jì)算基準(zhǔn)，用d表示;齒距（周節(jié)）是指在分度圓上相鄰兩齒同向輪廓間弧長的距離，用p表示，齒距等于齒厚（用s表示）與齒槽寬（用e表示）之和;齒頂高等于分度圓到齒頂?shù)膹较蚓嚯x用ha表示;齒根高等于分度圓到齒根的徑向距離用hf表示;全齒高等于齒頂高與齒根高之和，用h表示。

直齒圓柱齒輪各部分的名稱與代號(hào)可參看圖2。

2 界面設(shè)計(jì)

用戶界面由窗體和控件組成，VB的窗體是界面的基礎(chǔ)，所有的控件都在窗體上布局和顯示出來。程序附屬在窗體和控件上，同時(shí)，程序運(yùn)算的結(jié)果也會(huì)在界面上顯示出來。所以，根據(jù)軟件的使用需求，建立窗體、布局控件、設(shè)置窗體和控件的屬性。

本次界面設(shè)計(jì)的具體步驟如下：（1）設(shè)置窗體caption屬性為“直齒圓柱齒輪參數(shù)化設(shè)計(jì)”;（2）插入標(biāo)簽Label1，設(shè)置Label1的caption屬性為“齒數(shù)”，設(shè)置Label1的font屬性，修改字體及大小，設(shè)置Label1的Autosize屬性為TRUE，這樣，標(biāo)簽大小就可以自動(dòng)調(diào)整。（3）插入文本框Text1，設(shè)置Text1的Text屬性為空白，設(shè)置Label1的font屬性，修改字體及大小。（4）框選Label1和Text1，復(fù)制粘貼，調(diào)整位置，設(shè)置標(biāo)簽的caption屬性。（5）插入picture1，插入圖片，調(diào)整圖片大小。（6）參考步驟3和步驟4，重復(fù)插入label和Text控件，并設(shè)置控件的相關(guān)屬性。（7）插入command1和command2，修改兩個(gè)按鈕的caption屬性分布為：“參數(shù)計(jì)算”和“清除”，修改兩個(gè)按鈕的font屬性，使得字體得體。（8）插入齒輪參數(shù)圖片。完成后的界面如圖3所示：

3 編寫程序

程序編制過程中，需要了解齒輪各參數(shù)的計(jì)算公式，齒輪計(jì)算公式參看下表。

程序如下：

Private Sub Command1_Click（）

If Text1（0）="" Then

MsgBox "請輸入齒輪齒數(shù)" '未輸入齒數(shù)時(shí)提示用戶輸入齒數(shù)

ElseIf Text1（1）="" Then

MsgBox "請輸入齒輪模數(shù)" '未輸入模數(shù)時(shí)提示用戶輸入模數(shù)

Else

z=Val（Text1（0））：m=Val（Text1（1））'將文本框內(nèi)輸入的參數(shù)賦值給z和m兩個(gè)變量中

d=m*z：Text1（3）.Text=d'根據(jù)齒輪計(jì)算公式計(jì)算齒輪各參數(shù)，將計(jì)算結(jié)果賦值給相應(yīng)文本框

da=d+2*m：Text1（4）=da

df=d-2.5*m：Text1（5）=df

p=3.14*m：Text1（6）=p

s=p/2：Text1（7）=s

e=p/2：Text1（9）=e

h=2.25*m：Text1（10）=h

ha=m：Text1（11）=ha

hf=1.25*m：Text1（12）=hf

End If

End Sub

Private Sub Command2_Click（）

Command2.SetFocus'設(shè)置清除按鍵為焦點(diǎn)

Text1（0）.Text=""：Text1（1）.Text=""：Text1（2）.Text="20°"

Text1（3）.Text=""：Text1（4）.Text=""：Text1（5）.Text=""

Text1（6）.Text=""：Text1（7）.Text=""：Text1（9）.Text=""

Text1（10）.Text=""：Text1（11）.Text=""：Text1（12）.Text=""

'清除按鈕按動(dòng)后，除了壓力角默認(rèn)為20°，其余文本框全部清空

End Sub

Private Sub Form_Load（）

Dim z！，m！，d！，da！，df！，p！，s！，e！，h！，ha！，hf'定義齒輪各參數(shù)為單精度常量

Me.Show'加載窗體

Command2.SetFocus'設(shè)置清除按鍵為焦點(diǎn)

Text1（0）.Text=""：Text1（1）.Text=""：Text1（2）.Text="20°"

Text1（3）.Text=""：Text1（4）.Text=""：Text1（5）.Text=""

Text1（6）.Text=""：Text1（7）.Text=""：Text1（9）.Text=""

Text1（10）.Text=""：Text1（11）.Text=""：Text1（12）.Text=""

'窗口啟動(dòng)后，除了壓力角默認(rèn)為20°，其余文本框全部清空

End Sub

4 總結(jié)與展望

本文分析了簡單介紹了VB軟件以及齒輪行業(yè)發(fā)展現(xiàn)狀，介紹了直齒圓柱齒輪參數(shù)化設(shè)計(jì)過程，研究了利用Visual Basic軟件開發(fā)出一套軟件設(shè)計(jì)計(jì)算直齒圓柱齒輪參數(shù)。這套軟件實(shí)現(xiàn)了方便機(jī)械設(shè)計(jì)現(xiàn)場工程師快速設(shè)計(jì)分析齒輪的各參數(shù)的功能。

本文及本設(shè)計(jì)仍然有缺陷，對(duì)于斜齒輪、圓錐齒輪、變位齒輪的參數(shù)化設(shè)計(jì)，本次設(shè)計(jì)尚不能滿足，對(duì)于直齒圓柱的設(shè)計(jì)過程，本軟件可以配合AutoCAD軟件開發(fā)出自動(dòng)生成工程圖的功能，期待后續(xù)繼續(xù)研究。

參考文獻(xiàn)：

[1]劉瑞新.Visual Basic程序設(shè)計(jì)教程[M].（第5版）.北京：中國工信出版集團(tuán)，2017.

[2]李曉菊，王小丹，何澤雨.淺析齒輪行業(yè)的發(fā)展現(xiàn)狀、問題及趨勢[J].內(nèi)燃機(jī)與配件，2018（13）：158-159.