【導讀】后，才能方便編程。通過VisualBasic軟件對異步電動機的電磁設計進行優(yōu)化處。理，主要對電動機的各種參數(shù)的選擇進行優(yōu)化，極大地縮短的手工繁瑣的計算。計算結果和各種特性曲線，同時亦可判斷輸入數(shù)據(jù)是否合理。Keyword：Motor、Motorparameters、ElectromagicDesign、VisualBasic

　　

【正文】 程文件由 1個輸人數(shù)據(jù)窗體（ ）、 1 個輸出數(shù)據(jù)窗體（ ）和 1個電磁計算模塊 （ ）組成。 輸入數(shù)據(jù)窗體 圖 32 輸入數(shù)據(jù)窗體結構 1 輸入數(shù)據(jù)窗體屬性 表 34 輸入數(shù)據(jù)窗體控件屬性 對象 對象名稱 屬性名稱 屬性值 From srsjCK Caption 小型三相異步電動機設計 — 輸入數(shù)據(jù) BorderStyle 1 CommonDialog CommonDialog1 Commonbutton Command0 Caption 定子槽形結構及尺寸 Command1 Caption 轉子槽形結構及尺寸 Command2 Caption 轉子端環(huán)結構及尺寸 Label Label(0) Caption 電機型號 DJXH= Label(1) Caption 額定功率 nP = Label(2) Caption 額定電壓 nU = Label(3) Caption 額定頻率 f= Label(4) Caption 極對數(shù) p= Label(5) Caption 相數(shù) m1= Label(6) Caption 效率 ? = Label(7) Caption 功率因數(shù) cos? = Label(8) Caption 定子外徑 D1= Label(9) Caption 定子內徑 Di1= Label(10) Caption 氣隙長度 ? = Label(11) Caption 轉子內徑 Di2= Label(12) Caption 定子鐵芯長度 L1= Label(13) Caption 轉子鐵芯長度 L2= Label(14) Caption 定子槽數(shù) Q1= Label(15) Caption 轉子槽數(shù) Q2= Label Label(16) Caption 繞組節(jié)距 Y= Label(17) Caption 并聯(lián)路數(shù) a1= Label(18) Caption 并繞根數(shù) N1= Label(19) Caption 裸線直徑 d= Label(20) Caption 漆膜厚度 mh= Label(21) Caption 每線圈匝數(shù) Nc= Label(22) Caption 槽絕緣厚度 Ci= Label(23) Caption 槽楔厚度 hi= 對象 對象名稱 屬性名稱 屬性值 Label(24) Caption 轉子斜槽 tsk= Label(25) Caption 鐵心疊壓系數(shù)Kfe= Label(26) Caption 機械損耗 Pfw= Label(27) Caption 槽條間隙 ta= Label(28) Caption 雜散損耗 Ps= Labe2(0) Caption bs0= Labe2(1) Caption bs1= Label Labe2(2) Caption bs2= Labe2(3) Caption Hs0= Labe2(4) Caption Hs1= Labe3(4) Caption 三相相帶 SXXD= Labe3(5) Caption 定子接法 DZJF= Labe3(6) Caption 冷卻方式 LQFS= Labe3(7) Caption 硅鋼片牌號phGGP = Labe3(8) Caption 絕緣等級 JYDJ= Text1（ 0） ~（ 48） text 空 ComboDZCX text 空 ComboZZCX text 空 ComboDTCL text 空 ComboRZXS text 空 Combox ComboSXXD text 空 ComboDZJF text 空 ComboLQFS text 空 Combo phGGP text 空 ComboJYDJ text 空 2 輸入數(shù)據(jù)窗體代碼 Private Sub From_Load() = 1000 = 2020 9015 = 11250 Call srsjCKClear End Sub Private Sub sjsrCKCreate_Click() Call srsjCKClear OpenfileName = chqxOpenName = shqxOpenName = Call saveCKSRdat End Sub Private Sub srsjCKOpen_Click() Dim I As Integer Dim SRSJ(48) As String Dim sxxd, dzjf, dzcx, rzxs, dtcl, qfs, Jydj, ggPph As String = + \ srsj =文本文件 （ *.TXT） |*.TXT OpenfileName = If OpenName Then destfile = + \ FileCopy OpenfileName, destfile Open + \ For Input Access Read Lock Read As 1 For I = 0 To 48 Input 1, SRSJ(I) = SRSJ(I) Next I Input 1, sxxd, dzjf, dzcx, zzcx, rzxs, dtcl, lqfs, ggPph, Jydj = sxxd = dzjf = dzcx = zzcx = rzxs = dtcl = lqfs = GGph = Jydj Close 1 End If End Sub 保存 事件代碼 Private Sub srsjCKSave_Click() If OpenfileName Then Call saveCKSRdat sourfile1 = + \ FileCopy sourfile1, OpenfileName Else = + \ srsj = 文本文件（ *.TXT） *.TXT OpenfileName = If OpenfileName Then Call saveCKSRdat sourfile1 = + \ FileCopy sourfile1, OpenfileName Else GoTo 6 End If End If 6 End Sub 另存為 事件代碼 Private Sub srsjCKSaveAs_Click() = + \ srsj = 文本文件（ *.TXT） *.TXT OpenfileName = sourfile1 = + \ If OpenfileName Then Call saveCKSRdat FileCopy sourfile1, OpenfileName End If End Sub 電磁計算 事件代碼 Private Sub srsjCKCaculate_Click() Dim I As Integer Dim SRSJ(48) As String Dim sxxd, dzjf, dzcx, rzxs, dtcl, qfs, Jydj, ggPph As String Open + \ For Input Access Read Lock Read As 1 For I = 0 To 48 Input 1, SRSJ(I) Next I Input 1, sxxd, dzjf, dzcx, zzcx, rzxs, dtcl, lqfs, ggPph, Jydj Close 1 For I = 0 To 48 If Text1(I).Tex = Then MsgBox 尚未輸入數(shù)據(jù)或輸入數(shù)據(jù)不完整，請繼續(xù)輸入數(shù)據(jù) GoTo 6 End If If SRSJ(I) = Then MsgBox 輸入數(shù)據(jù)尚未保存，請保存后再進行電磁計算！ GoTo 6 End If Next I If =Or =Or =Or_ = Or = Or = Or_ = Or = Or = Then MsgBox 尚未輸入數(shù)據(jù)或輸入數(shù)據(jù)不完整，請繼續(xù)輸入數(shù)據(jù) GoTo 6 End If If sxxd = Or dzjf = Or dzcx = Or rzxs = Or_dtcl=Or lqfs = Or ggPph = OrJYDJ= Then MsgBox 輸入數(shù)據(jù)尚未保存，請保存后再進行電磁計算！ GoTo 6 End If DCJS 6 End Sub 顯示結果 事件代碼 Private Sub srsjCKView_Click() Unload scsjCK Load scsjCK End Sub 退出 事件代碼 Private Sub srsjCKView_Click() Unload Me End Sub 清零 過程子程序 Private Sub srsjCKClear() Dim I As Integer Dim SRSJ(48) As String Dim sxxd, dzjf, dzcx, rzxs, dtcl, qfs, Jydj, ggPph As String For I = 0 To 48 Text1(I).Text = Next I 60， 0 120， 1 星接 ， 0 角接 ， 1 圓底槽 ， 0 平底槽 ， 1 圓底槽 ， 0 梯形槽 ， 1 梨形槽 ， 2 圓形槽 ， 3 刀形槽 ， 4 凸形槽 ， 5 雙層疊繞組 ， 0 單層同心式 ， 1 單層交叉式 ， 2 單層鏈式 ， 3 鑄鋁 ， 0 銅條 ， 1 自扇冷 ， 0 自冷 ， 1 DR51050， 0 50W350， 1 50W470， 2 50W310， 3 A， 0 E， 1 B， 2 F， 3 H， 4 End Sub 保存 過程子程序 Public Sub saveCKSRdat() Dim I As Integer Dim SRSJ(48) As String Dim sxxd, dzjf, dzcx, rzxs, dtcl, qfs, Jydj, ggPph As String Open + \ For Input Access Read Lock Read As 1 For I = 0 To 48 Print 1， （ i）； ， ； Next I Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Print 1， ； ， ； Close 1 For I = 0 To 48 SRSJ(I) = (I).Text Next I sxxd = dzjf = dzcx = zzcx =