1、实验六 电机优化界面设计脚本编程模板实验六 电机气隙磁路计算界面设计一、实验目的1、掌握异界面的数据调用方法及其脚本编程方法2、掌握图片显示的脚本编程方法3、掌握特殊事件下显示数据或图片的脚本编程方法4、掌握程序调试方法二、实验内容在实验四、五的基础上,添加设计以下磁路计算界面,并将其作为1个MDI子窗口。要求:1、“计算参数假设值”为输入值,其中,“叠压系数”由实验五中“电机额定数据界面”获得,并在磁路计算界面(本界面)运行时显示出来;2、“计算值”分为文本和输出值;3、插图区需在本界面运行时显示图片,图片可自选;4、“计算”可根据输入数据计算得到输出数据并显示在相应控件区;5、“退出”切换
2、至MDI主窗体并隐藏本窗体;6、“帮助”不做任何操作。三、实验报告要求在实验四、五的基础上,添加设计以下磁路计算界面,并将其作为1个MDI子窗口。要求:启动VB后,可选“添加文件”,将实验4、5的窗口文件添加到MDI窗体下,再选择新建窗口,生成新窗口,进入窗体设计界面。图1添加新窗体图2窗体的编辑拉入框架三个Frame控件,对该控件显示文字“Caption”作如下设置“计算参数设置”“计算值”“气隙”图3框架Frame控件属性设置图4框架Frame控件接着用Frame控件,修改属性caption为“插图”。并拉入图画框。图5 拉入框架Frame控件编辑用“label”“textbox”“com
3、mandbutton”设置变量输入框和计算值输出文本框,并设置命令按钮“计算”“退出”“帮助”。图6 显示窗体设计布置图1、“计算参数假设值”为输入值,其中,“叠压系数”由实验五中“电机额定数据界面”获得,并在磁路计算界面(本界面)运行时显示出来;由于“叠压系数”要在运行时显示出来,所以要提前加载。在命令编辑框下编辑命令如下:把Form3.TxtKFe的值传送给Txt5,再由Txt5传给Form2.TxtKFe。2、“计算值”分为文本和输出值;图7 程序将“计算值”分为文本值和输出值,然后由变量进行转换和计算的过程。3、插图区需在本界面运行时显示图片,图片可自选;在“C:UsersAdmini
4、stratorDesktop”地址下新建文件夹“*”,在里面添加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 =
7、phai / (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
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2