实验六 电机优化界面设计脚本编程讲解.docVIP

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