1、实验六 电机优化界面设计脚本编程实验六 电机气隙磁路计算界面设计一、实验目的1、掌握异界面的数据调用方法及其脚本编程方法2、掌握图片显示的脚本编程方法3、掌握特殊事件下显示数据或图片的脚本编程方法4、掌握程序调试方法二、实验内容在实验四、五的基础上，添加设计以下磁路计算界面，并将其作为1个MDI子窗口。要求：1、“计算参数假设值”为输入值，其中，“叠压系数”由实验五中“电机额定数据界面”获得，并在磁路计算界面（本界面）运行时显示出来；2、“计算值”分为文本和输出值；3、插图区需在本界面运行时显示图片，图片可自选；4、“计算”可根据输入数据计算得到输出数据并显示在相应控件区；5、“退出”切换至M
2、DI主窗体并隐藏本窗体；6、“帮助”不做任何操作。三、实验报告要求在实验四、五的基础上，添加设计以下磁路计算界面，并将其作为1个MDI子窗口。要求：启动VB后，可选“添加文件”，将实验4、5的窗口文件添加到MDI窗体下，再选择新建窗口，生成新窗口，进入窗体设计界面。图1添加新窗体图2窗体的编辑拉入框架三个Frame控件，对该控件显示文字“Caption”作如下设置“计算参数设置”“计算值”“气隙”图3框架Frame控件属性设置图4框架Frame控件接着用Frame控件，修改属性caption为“插图”。并拉入图画框。图5 拉入框架Frame控件编辑用“label”“textbox”“comma
3、ndbutton”设置变量输入框和计算值输出文本框，并设置命令按钮“计算”“退出”“帮助”。图6 显示窗体设计布置图1、“计算参数假设值”为输入值，其中，“叠压系数”由实验五中“电机额定数据界面”获得，并在磁路计算界面（本界面）运行时显示出来；由于“叠压系数”要在运行时显示出来，所以要提前加载。在命令编辑框下编辑命令如下：把Form3.TxtKFe的值传送给Txt5,再由Txt5传给Form2.TxtKFe。2、“计算值”分为文本和输出值；图7 程序将“计算值”分为文本值和输出值，然后由变量进行转换和计算的过程。3、插图区需在本界面运行时显示图片，图片可自选；在“C:UsersAdminist
4、ratorDesktop”地址下新建文件夹“*”，在里面添加bmg 格式的图片。图8 新建文件夹“111”图9 添加图片“12”进文件夹在“C:UsersAdministratorDesktop”地址下打开图片文件“12”,加载到图片框。图10 图片显示结果程序如下：图11程序4、“计算”可根据输入数据计算得到输出数据并显示在相应控件区；输入程序如下：图12 程序将文本里的数值赋值给变量，由变量进行计算后得出结果，再将结果传输给输出框文本。随机输入数据进行检验可以计算出结果，输出在计算值框里。图13 计算结果显示5、“退出”切换至MDI主窗体并隐藏本窗体；图14 “退出”程序将Form2隐藏，
5、显示主窗体“MDI”源程序：Option Explicit 定义变量Dim Txt1!, 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) KETxt2 = Val(Text2.Text) alphapTxt3 = Val(Text3.Text) KMNTxt4 = Val(Text4.Text) Kdp1Txt5 =
6、 Val(Text5.Text) KdeltaTxt6 = 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)计算E1 = UNf * Txt1phai = E1 / (4 * Txt3 * Txt4 * N1 * fN)Bdelta = ph
7、ai / (Txt2 * tao * Lef)deltaef = Txt5 * deltaFdelta = (Bdelta / (0.4 * 3.1415926 / 10 6) * deltaef输出Txt7 = Format(E1, #.#)Txt8 = Format(phai, #.#)Txt9 = Format(Bdelta, #.#)Txt10 = Format(deltaef, #.#)Txt11 = Format(delta, #.#) 气隙磁密Txt12 = Format(Fdelta, #.#)End SubPrivate Sub Command2_Click() 退出Form2.HideMDIForm1.ShowEnd SubPrivate Sub Form_Load() 提前加载Image1 = LoadPicture(C:UsersAdministratorDesktop12.bmp)Txt5 = Val(Form3.TxtKFe.Text)TxtKFe = Format(Txt5, #.#)End Sub
