【導讀】驟日益顯得繁瑣。在這種背景下，電機設計的計算機輔助設計應運而生。輔助設計是利用一些計算機程序，將設計中的步驟全部程序化。由于其強大的功能和可視化的使用界面而廣受歡迎。VisualBasic作為設計語言。設計中有用戶輸入和輸出界面，將使人機交流變得非常簡潔。

　　

【正文】 模塊里面的公用變量和程序 30 模塊（ module1）里面寫入的程序如下： Public PN, Un, p, z2, D1, f, Nn, Pf, Pmc, li, kw, C 39?；緟?shù) Public Ikw, ata1, cosfai1 39?；緟?shù) Public dat, Di2, lB, DR, AR, rou, r22, b12, b02, bi2, b22, hs2, hj2, Tst1, Ist1, Tm1 39。轉子參數(shù) Public Di1, Z1, l, Ni1, Ns1, r21, b11, b01, h11, h21, bi1, hs1, xj, Kp1, kd1 39。定子參數(shù) Function FSf(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。這是什么？ End If Next j End If End Function Function Qdlkxs(x) Dim i, j b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) K = Array(, , , , , , , , , , , , , , ) If x b(1) Then i = 0 Qdlkxs = K(i) + (x b(i)) * (K(i + 1) K(i)) / (b(i + 1) b(i)) ElseIf x = b(13) Then i = 13 Qdlkxs = K(i) + (x b(i)) * (K(i + 1) K(i)) / (b(i + 1) b(i)) Else For j = 1 To 12 If x = b(j) And x b(j + 1) Then 32 i = j Qdlkxs = K(i) + (x b(i)) * (K(i + 1) K(i)) / (b(i + 1) b(i)) Exit For End If Next j End If End Function Function KNMf(x) 39。Knm = f(Ks) If x Then KNMf = * x Else KNMf = * x End If End Function Function ZXBLf(x) 39。籠型轉子諧 波比漏磁導系數(shù) Dim M, N, i, j M = Array(3, 4, 5, 6, 7, 8, 9, 10, 12, 15, 20, 25, 30, 40, 50) N = Array(, , , , , , , , , , , , , , ) If x M(1) Then i = 0 ZXBLf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) ElseIf x = M(13) Then i = 13 ZXBLf = 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 ZXBLf = 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 Function SinHf(x) SinHf = (Exp(x) Exp(x)) / 2 End Function Function CosHf(x) CosHf = (Exp(x) + Exp(x)) / 2 End Function 33 Function LCBHf(x) 39。啟動時的漏磁飽和系數(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 計算 _Click() 39。輸入數(shù)據(jù) Un = 380 PN = 11000 p = 2 li = ata1 = cosfai1 = Di1 = D1 = Z1 = 36 Ni1 = 2 r21 = b11 = b01 = h11 = 34 h21 = bi1 = h01 = dat = Di2 = r22 = b12 = b02 = bi2 = h02 = h12 = h22 = lB = AR = z2 = 26 f = 50 d11 = DR = Tm1 = Tst1 = Ist1 = 7 pai = 39。其中的 基本參 數(shù) PN = Val() Un = Val() p = Val() f = Val() Nn = Val() li = Val() ata1 = Val() cosfai1 = Val() Tm1 = Val() Tst1 = Val() Ist1 = Val() 39。其中的 定子參數(shù) Di1 = Val() D1 = Val() 35 Z1 = Val() l = Val() Ni1 = Val() Ns1 = Val() dl = Val() r21 = Val() b11 = Val() b01 = Val() h11 = Val() h21 = Val() bi1 = Val() h01 = Val() 39。其中的 轉子參數(shù) dat = Val() Di2 = Val() lB = Val() DR = Val() AR = Val() rou = Val() r22 = Val() b12