【正文】 。打印窗體的可見區(qū)域 End Sub Private Sub Command4_Click() Unload Me End Sub 31 Form8 Private Sub Form_Load() If Jsjcyl Qh1 And Jsjcyl Qh2 Then = 大小齒輪接觸疲勞強(qiáng)度都不夠請重新設(shè)計 20 ElseIf Jsjcyl Qh2 And Jsjcyl Qh1 Then = 大小齒輪接觸疲勞強(qiáng)度都符合 ElseIf Jsjcyl Qh2 Then = 大齒輪接觸疲勞強(qiáng)度都不夠請重新設(shè)計 ElseIf Jsjcyl Qh1 Then = 小齒輪接觸疲勞強(qiáng)度都不夠請重新設(shè)計 End If If Jswqyl1 Qf1 And Jswqyl2 Qf2 Then = 大小齒輪彎曲疲勞強(qiáng)度都符合 ElseIf Jswqyl1 Qf1 And Jswqyl2 Qf2 Then = 大小齒輪彎曲 疲勞強(qiáng)度都不夠請重新設(shè)計 ElseIf Jswqyl1 Qf1 Then = 小齒輪彎曲疲勞強(qiáng)度都不夠請重新設(shè)計 ElseIf Jswqyl2 Qf2 Then = 大齒輪彎曲疲勞強(qiáng)度都不夠請重新設(shè)計 End If = = X1 = X2 = wzj amp。 4 應(yīng)用程序設(shè)計 Visual Basic編寫代碼的地方為代碼編輯器窗口，代碼由語句、常數(shù)和聲明部分組成，可以使用代碼編輯器窗口快速查看和編輯應(yīng)用程序代碼的任何部分。所謂繪制控件，就是要從工具箱中把我們把需要的控件添加到窗體中去。打開菜單編輯器 (Menu Design Windows),在菜單的一定位置 增加一個 Caption屬性為“ — ”的菜單項，它在菜單上就表現(xiàn)為一條橫線，注意分隔線菜單項同樣需要名稱屬性，且不能重復(fù)。訪問鍵的設(shè)置使用“ amp。可見與隱藏也有兩種方法，一是菜單編輯器中的“可見”選項，二是用代碼改變 visible屬性實現(xiàn)。 采用嚴(yán)格的先后邏輯順序 13 根據(jù)設(shè)計計算的先后順序，我們把已經(jīng)完成的和正在進(jìn)行操作的控件的 Enabled屬性設(shè)置為 True，這些控件是可見的。聯(lián)機(jī)幫助對于大多數(shù)用戶來說也具有非常重要的作用。因此，在設(shè)計應(yīng)用程序界 面時，必須從用戶角度出發(fā)，以方便用戶使用為根本。下面用一例來說明線圖數(shù)據(jù)的處理過程。 式 (17)的系數(shù)矩陣是一對稱矩陣，因此整個系 數(shù)矩陣只有 2m+1個不同元素 sl (l=1， 2，?， 2m+1)。 設(shè)擬合多項式 xi處的偏差為 iR ,則 ? ?i m i iR P x y?? . ? ? ? ?? ? ? ?? ?12 1 11 2 2 112 1211 1 112111 ...mm m jm i m i i m m jjn n mji j i m i ii i jnmjjiijP x R P x y x x x x xR x y P x yxy? ? ? ? ? ????????????? ? ?????? ? ? ? ? ? ? ? ?? ? ? ????????? ? ??? 擬合多項式曲線要控制局部偏差就是要使結(jié)點處的偏差 Ri 最小，通過控制局部偏差從而控制全局偏差就要使各結(jié)點的偏差總和 ?R i 最小。前面已經(jīng)談到 ,在 VB中把窗體以及“菜單”、“命令按鈕”等控件稱為對象 ,如果設(shè)計出了應(yīng)用程序 ,那么與應(yīng)用程序的用戶直接進(jìn)行交互的就是這些對象組成的圖形界面 ,也稱為用戶接口或用戶界面 ,在設(shè)計應(yīng)用程序時就必須考慮到用戶如何與程序進(jìn)行交戶。除了微軟之外 ,其他公司也在為Windows操作系統(tǒng)平臺制作應(yīng)用程序開發(fā)工具 ,例如前 Borland的公司出品的Delphi,C++Bulider, J++Bulider等 ,其他一些公司出品的針對數(shù)據(jù)庫編程的PowerBulider, PowerDesigner等 ,不可否認(rèn) ,這些產(chǎn)品相當(dāng)出色 ,如果能夠熟練掌握將是編程者能力的體現(xiàn) ,但是必須承認(rèn) ,對 Windows操作系統(tǒng)最熟悉的還是微軟 ,而且微軟本身 Windows操作系統(tǒng)的源代碼采取不公開的策略 ,使得其他公司出品的產(chǎn)品在實現(xiàn)相同功能時多少都要走些彎路 ,用戶在使用這些產(chǎn)品設(shè)計應(yīng)用程序時 ,程序的效率將會受到影響。這樣不但提高了設(shè)計速度和質(zhì)量，減少設(shè)計工件量，同時為現(xiàn)代高速、多變、中少批量的設(shè)計提供了必要的保障手段。 本文在編寫過程中，承蒙指導(dǎo)老師肖志信和各位同學(xué)的大力支持、熱心幫助，在此并表示謝意。 2）齒輪結(jié)構(gòu)緊 湊，工作可靠，壽命長，一般可以工作一、二十年對車輛及在礦井工作的機(jī)器尤為重要。其目的是培養(yǎng)學(xué)生綜合運用所學(xué)專業(yè)和基礎(chǔ)理論知識，獨立解決本專業(yè)一般工程技術(shù)問題的能力，樹立正確的設(shè)計思想和工作作風(fēng)?？焖僭O(shè)計與制造技術(shù)的出現(xiàn)為制造業(yè)提高市場響應(yīng)速度奠定了堅實的基礎(chǔ)，國外應(yīng)用此技術(shù)與方法已有大量成功的先例，如美國萊斯勒公司開發(fā) Neno小型汽車，減少了 63%的工程技術(shù)人員，縮短 28%的開發(fā)時間； DEC公司使產(chǎn)品開發(fā)時間縮短 了 60%；通用發(fā)動機(jī)廠使設(shè)計修改量減少了 75 %等等。它最大的優(yōu)點就是開發(fā)效率高、代碼重用率高，為軟件開發(fā)提供了一種新的方法，引入了許多新的概念?，F(xiàn)代模塊化設(shè)計方法的研究已經(jīng)廣泛融合其他現(xiàn)代設(shè)計方法、 制造和管理技術(shù)，如計算機(jī)輔助設(shè)計、價值工程、成組技術(shù)等，經(jīng)理論分析和實踐證明，其優(yōu)越性主要體現(xiàn)在下述幾個方面 : (1)可使現(xiàn)有機(jī)械工業(yè)得到振興，并向高科技產(chǎn)業(yè)發(fā)展； (2) 有利于企業(yè)根據(jù)市場變化，采用先進(jìn)技術(shù)提高產(chǎn)品的質(zhì)量和新產(chǎn)品的開發(fā)，增加企業(yè)對市場的快速應(yīng)變能力； (3) 有利于降低成本，增強(qiáng)機(jī)械產(chǎn)品的競爭能力； (4)減輕機(jī)械產(chǎn)品設(shè)計、制造及裝配專業(yè)技術(shù) 4 人員的勞動強(qiáng)度； (5)縮短機(jī)械產(chǎn)品的設(shè)計、制造和供貨期限，以贏得用戶。 VB 應(yīng)用程序的基本特點 美國微軟公司從 1991年推出 6個版本， win9x或winme， win2020， winxp， windowsNT等操作系統(tǒng)下，是一個 32位的應(yīng)用程序開發(fā)工具，用其設(shè)計應(yīng)用程序時有兩個基本特點 :可視化設(shè)計和事件驅(qū)動編程。因此 ,應(yīng)用程序代碼的路徑在每次響應(yīng)而執(zhí)行時可能都是不形同的。因此，這類曲線擬合問題最終是一個多元函數(shù)求極值問題。 擬合精度 對于擬合精度，若要求過高，則擬合公 式可能變得很復(fù)雜，甚至根本找不到滿足該精度的數(shù)學(xué)方程； 若要求過低，不能滿足實際要求，甚至失去擬合公式的實際意義。為此我們先對各圖進(jìn)行擬合，求出線圖的擬合公式 (見表 21)，再用 VB語言寫出表 21的程序。所以本系統(tǒng)堅持用同一種風(fēng)格貫穿整個應(yīng)用程序界面設(shè)計，如 :保證各對話框具有相同的形式；在菜 單和聯(lián)機(jī)幫助中必須使用相同的術(shù)語；不同窗體選擇統(tǒng)一的背景、邊框線、字體屬性值等。 提供簡單的錯誤處理能力 當(dāng)用戶出現(xiàn)錄入錯誤時，系統(tǒng)能準(zhǔn)確地檢測出錯誤發(fā)生的位置，報告出錯誤發(fā)生的性質(zhì)，提供簡單和容易理解的錯誤處理結(jié) 果或提示給用戶一個修正參考，從而保證系統(tǒng)運行狀態(tài)的穩(wěn)定性，保證已經(jīng)完成的工作數(shù)據(jù)和系統(tǒng)中間數(shù)據(jù)的完整性，保證用戶操作的連續(xù)性。 菜單設(shè)計 在 Windows界面設(shè)計中，菜單設(shè)計是至關(guān)重要的一環(huán)，菜單的基本作用有兩個，一是提供人機(jī)對話的界面，讓用戶使用系統(tǒng)的各種功能；二是管理應(yīng)用系統(tǒng)，控制各種功能模塊的運行。打開菜單設(shè)計窗口 (Menu Design Windows)，每個菜單項都有相應(yīng)的快捷鍵 (Shortcut)列表，在該表中選擇一個即可。F)，在菜單中就表現(xiàn)為“文件 (F) ，可以用“ Alt + F打開這個菜單。本系統(tǒng)通過菜單設(shè)計窗口 (Menu Design Window)設(shè)計下拉式菜單。 我們可以用這種方法，將 OptionButton,TextBox,ComboBox ,label,Frame, CommandButton等控件添加到窗體中去，還可以調(diào)整控件大小，移動和鎖定控件。 4． 1 示例創(chuàng)建窗體編寫代碼 如何創(chuàng)建事件過程呢？事件過程包含了事件發(fā)生時要執(zhí)行的 代碼， Visual Basic應(yīng)用程序就是由這些過程的小的代碼組稱屬性中所指定的下劃線和事件名組合而成。 mm 表 42 控件屬性設(shè)置 控件 屬性 設(shè)置值 Frame1 Caption 校核結(jié)果 Frame1 Enabled True CommandButton1 Caption 完成 CommandButton1 Default False CommandButton2 Caption 上一步 CommandButton2 Visible True Lablel1 Caption 接觸應(yīng)力校核結(jié)果 Lablel1 Enabled True Lablel1 Autosize False Lablel2 Caption Lablel2 Enabled False Lablel2 Visible True = 圓錐齒輪傳動參數(shù)設(shè)計系統(tǒng) words = = 150 22 = True = End Sub Private Sub timer1_timer() lenth = Len(words) txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub 窗體設(shè)計 Form1 窗體代碼 Option Explicit Private Const fTitle As String = 基于 VB的圓錐齒輪參數(shù)設(shè)計 39。之間 , vbOKOnly, 警告 Exit Sub 29 End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() 電動機(jī)汽輪機(jī)燃?xì)廨啓C(jī) 單缸內(nèi)燃機(jī) 多缸內(nèi)燃機(jī) 均勻、輕 微 中等沖擊 較大沖擊 單向嚙合 雙向嚙合 = 0 = 0 = 0 = 圓錐齒輪傳動參數(shù)設(shè)計系統(tǒng) words = 30 = 150 = True = If = True Then = 90 = amp。 MPa = 170 + * amp。 HBS Select Case Case 0 = 220 + * amp。 MPa Case 9 = 245 + * amp。 HBS End Sub Private Sub HScroll4_Change() = amp。 MPa Case 12, 13, 14, 15 = 272 + * amp。 MPa Case 2, 3, 4, 5 = 331 + * amp。 MPa = 70 + * amp。 MPa = 349 + * amp。 Mid(f