【正文】 其中的 轉(zhuǎn)子參數(shù) dat = Val() Di2 = Val() lB = Val() DR = Val() AR = Val() rou = Val() r22 = Val() b12 = Va。其中的 基本參 數(shù) PN = Val() Un = Val() p = Val() f = Val() Nn = Val() li = Val() ata1 = Val() cosfai1 = Val() Tm1 = Val() Tst1 = Val() Ist1 = Val() 39。啟動(dòng)時(shí)的漏磁飽和系數(shù) Kx=f(BL) Dim M, N, i, j M = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) N = Array(, , , , , , , , , , , , , , ) If x M(1) Then i = 0 LCBHf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) ElseIf x = M(13) Then i = 13 LCBHf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) Else For j = 1 To 12 If x = M(j) And x M(j + 1) Then i = j LCBHf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) Exit For End If Next j End If End Function （ 3） 主窗體下的程序代碼 Public ata1, cosfai1, f, Ist1, kw, li, Nn, p, Pf, Pmc, PN, Tm1, Un, zp2 As Single Private Sub cmd 計(jì)算 _Click() 39。Knm = f(Ks) If x Then KNMf = * x Else KNMf = * x End If End Function Function ZXBLf(x) 39。 Dim Fsh As Variant If x Then FSf = * x ElseIf x = Then FSf = * x + * (x ) * (x ) End If End Function Function CHQXf(x) Dim i, j Dim b, h As Variant b = Array(, , , , , , , , , , , , 1, , , , , , , , , , , , , , , , , ) h = Array(138, 148, 158, 169, 181, 194, 210, 228, 250, 276, 306, 341, 383, 433, 493, 568, 652, 762, 890, 1050, 1260, 1550, 2021, 2670, 3780, 5340, 7200, 9500, 12200, 15200) If x b(1) Then i = 0 CHQXf = h(i) + (x b(i)) * (h(i + 1) h(i)) / (b(i + 1) b(i)) ElseIf x = b(28) Then i = 28 CHQXf = h(i) + (x b(i)) * (h(i + 1) h(i)) / (b(i + 1) b(i)) Else For j = 1 To 27 If x = b(j) And x b(j + 1) Then i = j CHQXf = h(i) + (x b(i)) * (h(i + 1) h(i)) / (b(i + 1) b(i)) Exit For End If Next j End If 31 End Function Function tshxs(x) Dim i, j, b, p01 b = Array(, , , , , , , , , , 1, , , , , , , , , , , , , , , , , , , ) p01 = Array(, , , , , , , , , , , , , , 3, , , , , , , , , , , , , , , ) If x b(1) Then i = 0 tshxs = p01(i) + (x b(i)) * (p01(i + 1) p01(i)) / (b(i + 1) b(i)) ElseIf x = b(28) Then i = 28 tshxs = p01(i) + (x b(i)) * (p01(i + 1) p01(i)) / (b(i + 1) b(i)) Else For j = 1 To 27 If x = b(j) And x b(j + 1) Then i = j tshxs = p01(i) + (x b(i)) * (p01(i + 1) p01(i)) / (b(i + 1) b(i)) Exit For 39。轉(zhuǎn)子參數(shù) Public Di1, Z1, l, Ni1, Ns1, r21, b11, b01, h11, h21, bi1, hs1, xj, Kp1, kd1 39。基本參數(shù) Public Ikw, ata1, cosfai1 39。對(duì)于差值我們利用了兩種方法： 1)分段線性化，例如磁化曲線的處理； 2)分段函數(shù)法，即將一條曲線分為有限段，每一段用直線、雙曲線或者拋物線等常見曲線近似（如 ()ssF f K? 曲線）。如下圖所示： 29 圖 517 添加模塊 ② 對(duì)于循環(huán)的處理，我們利用 “ goto 語(yǔ)句 +circleN+lineN：（ N=1,2,3）”處理，其中 goto 語(yǔ)句的實(shí)現(xiàn)形式應(yīng)為： If ?? then Goto lineN Else Goto circleN End if Line標(biāo)記和 circle 循環(huán)應(yīng)該突出一些，以便于程序閱讀。存放在這里的函數(shù)和變量相當(dāng)于公共資源，本工程中的 窗體都可以調(diào)用。具體如下：找到工程資源管理器（如果工程資源管理器已經(jīng)被關(guān)閉，找到工具欄里的視圖選項(xiàng)，選擇里面的工程資源管理器即可），其下方有三個(gè)選項(xiàng)：查看代碼、查看對(duì)象、切換文件夾，點(diǎn)擊“查看代碼”選項(xiàng)，就可以打開代碼窗口，在里面編寫代碼。 下面我們要做的就是程序設(shè)計(jì)。暫且留出空白。雙擊工具箱中的“ mandbutton”兩次，建立兩個(gè)按鈕，將他們的 名稱屬性分別改為： cmd 計(jì)算和 cmd 退出，將 caption（標(biāo)題）屬性改為：計(jì)算和退出。 它們的 text 屬性里則存放計(jì)算輸出值及標(biāo)準(zhǔn)值。 再創(chuàng)建 20 個(gè) text 文本框，排成四行五列。我們先創(chuàng)建 5個(gè) 標(biāo)簽，豎著排成一列，它們的 caption 屬性依次改為： ①“ 效率η： ”、 ② “ 功率因數(shù) cosφ： ”、 ③ “ 最大轉(zhuǎn)矩倍數(shù) Tm： ”、 ④ “ 起動(dòng)轉(zhuǎn)矩倍數(shù)Tst： ”、 ⑤ “ 起始電流倍數(shù) Ist： ”。它們的 text 屬性依次改為： ⑴ “ ”、 ⑵“ ”、 ⑶ “ ”、 ⑷ “ ”、 ⑸ “ ”、 ⑹ “ ”、 ⑺ “ ”、 ⑻“ ”、 ⑼ “ ”、 ⑽ “ ”、 ⑾ “ ”、 ⑿ “ ”、 ⒀ “ ”。它們的 caption 屬性依次改為： ⑴ “氣隙δ：”、 ⑵ “內(nèi)徑 Di2：”、 ⑶ “導(dǎo)條長(zhǎng) lB：”、 ⑷ “端環(huán)平均直徑 DR：”、 ⑸ “端環(huán)截面積 AR：”、 ⑹ “導(dǎo)條（端環(huán)）電阻率 26 ρ：”、 ⑺ “ r22”、 ⑻ “ b12：”、 ⑼ “ b02：”、 ⑽ “ bi2：”、 ⑾ “ h02：”、 ⑿ “ h12”、 ⒀ “ h22：”。 這里我們?cè)俑缴隙ㄗ硬坌停? 25 圖 512 定子槽型 設(shè)計(jì)完成或定子參數(shù)桌面如圖 513所示： 圖 513 定子參數(shù)桌面 （ 3） 轉(zhuǎn)子參數(shù)桌面 先切換到轉(zhuǎn)子參數(shù)桌面，這里我們需要輸入 13 個(gè)參數(shù)，所以創(chuàng)建 13 個(gè) label 和 13 個(gè) text。名稱屬性依次改為：⑴ “ txtDi1”、 ⑵ “ txtD1”、 ⑶ “ txtZ1” 、 ⑷ “ txtl”、 ⑸ “ txtNi1”、 ⑹ “ txtNs1”、⑺ “ txtdl”、 ⑻ “ txtr21”、 ⑼ “ txtb11”、 ⑽ “ txtb01”、 ⑾ “ txth11”、 ⑿ “ txth21”、⒀ “ txtbi1”、 ⒁ “ txth01”。 我們?cè)賱?chuàng)建 14 個(gè)文本框用于輸入這 14 個(gè)定子參數(shù)。這 14 個(gè)標(biāo)簽的 caption 屬性依次改為： ⑴ “ 內(nèi)徑 Di1（ m）： ”、 ⑵ “ 外徑 D1（ m）： ”、 ⑶ “ 槽數(shù) Z1： ”、 ⑷ “ 伸出鐵心長(zhǎng)度 l： ”、 ⑸ “ 并聯(lián)支路數(shù) Ni1： ”、 ⑹ “ 每槽導(dǎo)體數(shù) Ns1： ”、 ⑺ “ 線徑 d1： ”、 ⑻ “ r21： ”、 ⑼ “ b11： ”、 ⑽ “ b01： ”、⑾ “ h11： ”、 ⑿ “ h21： ”、 ⒀ “ bi1： ”、 ⒁ “ h01： ”。定子參數(shù)中有 14 個(gè)輸入數(shù)據(jù)，因此建立 14個(gè)標(biāo)簽。和前文一樣，我們這里需要用到 label控件和 text 控件。這里涉及到修改它們的名稱屬性及 text 屬性，將它們的名稱屬性依次改為： ⑴ “ txtPn”、 ⑵ “ txtUn”、⑶ “ txtp”、 ⑷ “ txtf” ⑸ “ txtNn”、 ⑹ “ txtli”、 ⑺ “ txtC”、 ⑻ “ txtata1”、 ⑼ “ txtcosfai1”、⑽ “ txtTm1”、 ⑾ “ txtTst1”、 ⑿ “ txtIst1” .這里為了輸入數(shù)據(jù)的直觀性，也為了簡(jiǎn)化處理，我們將文本框的 text 屬性也作出修改，將他們依次改為：“ ⑴ 11000”、 ⑵ “ 380”、⑶ “ 2”、 ⑷ “ 50”、 ⑸ “ 1460”、 ⑹ “ ”、 ⑺ “ 115”、 ⑻ “ ”、 ⑼ “ ”、 ⑽ “ ”、 24 ⑾ “ ”、 ⑿ “ ” ，那么這些輸入數(shù)據(jù)就可以在桌面上直接顯示出來。 然后添加 12 個(gè)文本框。 在這個(gè)窗體上，我們新建 12 個(gè) label，將其分兩列豎著排列，將其 caption 屬性依次改為：“額定輸出功率 Pn（ kw）：”、“額定電壓 Un（ v）：”、“極對(duì)數(shù) P：”、“頻率 f（ HZ）：”、“額定轉(zhuǎn)速 Nn（ rpm）：”、“鐵心長(zhǎng)度 li（ mm）：”、“工作溫度 C：”、“效率η 1：”、 “功率因數(shù) cosφ 1：”、“最大轉(zhuǎn)矩倍數(shù) Tm1：”、“起動(dòng)轉(zhuǎn)矩倍數(shù) Tst1：”、“啟動(dòng)電流倍數(shù) Ist1：”，其名稱屬性 由于程序中不會(huì)用到，且不會(huì)在用戶界面中顯示出來，所以可改可不改。 創(chuàng)建所需的控件我們需要用到：標(biāo)簽控件（ label）、文本框控件（ textbox）、命令按鈕控件（ mandbutton）。如果我們采取直接創(chuàng)建的方法，那么創(chuàng)建的控件在別的桌面下也是可見的，這將會(huì)導(dǎo)致界面的混亂。在主窗體中單擊 tab 0 切換到 tab 0 的桌面，在其右側(cè)的屬性窗口中找到 caption 屬性，將其改為“基本參數(shù)”，如此依次改變 tab 1~tab 4 的 caption 屬性 分別為“定子參數(shù)”、“轉(zhuǎn)子參數(shù)”、“計(jì)算輸出”、“