实验六电机优化界面设计脚本编程汇总

1、实验六电机气隙磁路计算界面设计、实验目的1掌握异界面的数据调用方法及其脚本编程方法2、掌握图片显示的脚本编程方法3、掌握特殊事件下显示数据或图片的脚本编程方法4、掌握程序调试方法、实验内容在实验四、五的基础上，添加设计以下磁路计算界面，并将其作为1个MDI子窗口。要求：1、 “计算参数假设值”为输入值，其中，“叠压系数”由实验五中“电机额定数据界面” 获得，并在磁路计算界面（本界面）运行时显示出来；2、“计算值”分为文本和输出值；3、插图区需在本界面运行时显示图片，图片可自选；4、“计算”可根据输入数据计算得到输出数据并显示在相应控件区；5、“退出”切换至 MDI主窗体并隐藏本窗体；6、“帮助

2、”不做任何操作。三、实验报告要求在实验四、五的基础上，添加设计以下磁路计算界面，并将其作为1个MDI子窗口。要求：启动VB后，可选“添加文件”，将实验4、5的窗口文件添加到 MDI窗体下，再选择 新建窗口，生成新窗口，进入窗体设计界面。3UV.：3J A J I r J添加窗体Sfc(H)图i添加新窗体小口 FP2* II y E?(8 15ti 0.04300x 5600& *S3i百九F冷1 町 口田X工程-Z程1x3JBE- ML 艇凹ZS 帕迥肾姬运行吩ttSifU)二且；D幣砲1他至口阻话呦时& 工程 1 F&rm1 (Form)a回 3FormlB3BS-& FwG CFfr*!)

3、1-J F & 旨 抑i6 口-i国图2窗体的编辑拉入框架三个Frame控件，对该控件显示文字Caption ”作如下设置计算参数设置”“计算值” “气隙”庵性-Frame!兰J3性-Frmm年2x JR性 Framedxj蒔母序1抿分堺1(WFir 狮 *1Appt uwc*1 - 3EuhCfrl&r *HBOCOOQOF&Border Style1 l Fixed Single| Cpti qaClipCAin.ti-AlsTrueDr &gl cod(Nont)Dr 声？4附Q - XwilTrutPont宋体PoriCslur 1阳(HQQO1EMKi ght1695HtlpCMik

4、titlD0Iji4x-Friwl PrJr hr2AAppe Mr dg1 - 3DBtckColr tiBOOOOOOJ*Sr4jrStylt1 - Fixtd SiDglt1计算直ClipControlsTrueDteImb(Non*)BriLMod*0 MsauftlTmtFoftt耒傳PorfiColpr UBD0D0C12*Ki ght39 ?5K.LpC oiitcx tTDJQ:1Vfr ue2 Frute按字母序|撰甘尝JT站称）FrtntSft.Appe&ruice1 - 3DackColor SMBOOOOOOF*BarderStyle1 一 Fixed SinglewC

5、lipCcmtrQliTm(Xz)Dr直声oh0 - KuuiklExkbledTrueFont衲ForeColor矽8000001 也Hi (Jit2535KtlpCointtxtlDaIfndxFr u 3 Fr wh t按宇母JT |携分共序|图3框架Frame控件属性设置图4框架Frame控件接着用Frame控件，修改属性caption为“插图”。并拉入图画框。f、ft口Formi - r-Es3计图5拉入框架Frame控件编辑用label” “textbox”commandbutton”设置变量输入框和计算值输出文本框，并设置 命令按钮“计算” “退出” “帮助”。图6显示窗体设计布

6、置图1、“计算参数假设值”为输入值，其中， “叠压系数”由实验五中“电机额定数据界面” 获得，并在磁路计算界面(本界面)运行时显示出来；由于“叠压系数”要在运行时显示出来，所以要提前加载。在命令编辑框下编辑命令如下：Priv e Sub提前加*= Lo4.dPicture(*C: UEersAdini strWB（T戟场强JSM dh HlF I心电任弭）、迥电$ M 僻图10图片显示结果程序如下:Privat* Sub Form_Lo*d() t?前加载.Inael = Lo&dfi cture (: VsriAnirLi 3tr*torDiktopp*)Txt5 - V*l(For3.Tx

7、tKF.Txt)TxtKFe = Format (Txt5,弋黠End Sub图11程序4、“计算”可根据输入数据计算得到输出数据并显示在相应控件区; 输入程序如下：Private Sub CommMi41_Cli cl () i+耳Txtl Va(Twtl.Ttxt) : KEJ &lph&p ?KMNTxt4 * KI * fW) tu + Ltf)-Tt) Txt2 -= VtL(Tt2.Tt) Txt3 = Vtl (Text3. Text) Txt4 - Vai CText4. Text) Txt5 = Vai (TextS. Text) Txt6 = al仃xtKFe Iext)第

8、&细3旳数引用到里面Ulf = V*l(For*3 txtUff Text) N Vkl(Form3. ConliofV Tait)N1 = Va(Form3. txtZS.Tnt) dlt& = V1 CForm3 txtdelta. Txt) tao = Vai(Form3 txtt&c.Text)Le = Vai(Forn3 txtLef Text)计算E1 - UN * Txtl ph&i - El /(4 * Tt3 * EdeltA - phai / (Tx t2 * deltaf = Txt5 * Jelt* 3.1416926 / 10 “ 6) *输出Txt? Format(

9、EL 飞黠料林)TxtB * Format(phai,鼻删林林)Txt9 - Format(Bdelta. *ttt til*4*)TxtlO = format(daltaef, *ltl *)Txtll = Format (Jelt *#. t*)气隙密密 txtL2 = Format (FMt *# #*)图12程序将文本里的数值赋值给变量，由变量进行计算后得出结果，再将结果传输给输出框文本。 随机输入数据进行检验可以计算出结果，输出在计算值框里。ElF 2r| odibrpss严 BBS?图13计算结果显示5、“退出”切换至 MDI主窗体并隐藏本窗体；Private Sul Comman

10、d2_Cli ck 0退出Forn2. Hi deHElForml.ShowEnd Sub图14 “退出”程序将Form2隐藏，显示主窗体“ MDI ”源程序：Option Explicit 定义变量Dim Txtl!, Txt2!, Txt3!, Txt4!, Txt5!, Txt6!Dim UNf!, fN%, N1%, delta!, tao!, Lef!, E1!, phai!, Bdelta!, deltaef!, Fdelta!Private Sub Command1_Click()计算Txt1 = Val(Text1.Text) KEalphap KMN Kdp1 KdeltaT

11、xt2 = Val(Text2.Text)Txt3 = Val(Text3.Text)Txt4 = Val(Text4.Text)Txt5 = Val(Text5.Text)Txt6 = Val(TxtKFe.Text)KFe将form3的数引用到里面UNf = Val(Form3.txtUNf.Text) fN = Val(Form3.CombofN.Text)N1 = Val(Form3.txtZS.Text) delta = Val(Form3.txtdelta.Text) tao = Val(Form3.txttao.Text)Lef = Val(Form3.txtLef.Text)计

12、算E1 = UNf * Txt1phai = E1 / (4 * Txt3 * Txt4 * N1 * fN)Bdelta = phai / (Txt2 * tao * Lef)deltaef = Txt5 * deltaFdelta = (Bdelta / (0.4 * 3.1415926 / 10 A 6) * deltaef输出Txt7 = Format(E1, #.#)气隙磁密Txt8 = Format(phai, #.#) Txt9 = Format(Bdelta, #.#) Txt10 = Format(deltaef, #.#) Txt11 = Format(delta, #.#) Txt12 = Format(Fdelta, #.#) End SubPrivate Sub Co