实验六电机优化界面设计脚本编程模板_第1页
实验六电机优化界面设计脚本编程模板_第2页
实验六电机优化界面设计脚本编程模板_第3页
实验六电机优化界面设计脚本编程模板_第4页
免费预览已结束,剩余6页可下载查看

付费下载

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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

2、6、“帮助”不做任何操作。三、实验报告要求在实验四、五的基础上,添加设计以下磁路计算界面,并将其作为1 个 MDI 子窗口。要求:启动 VB 后,可选“添加文件” ,将实验 4、5 的窗口文件添加到 MDI 窗体下,再选择新建窗口,生成新窗口,进入窗体设计界面。图 1 添加新窗体图 2 窗体的编辑拉入框架三个Frame 控件,对该控件显示文字“Caption”作如下设置“计算参数设置”“计算值”“气隙”图 3 框架 Frame 控件属性设置图 4 框架 Frame 控件接着用 Frame 控件,修改属性caption 为“插图”。并拉入图画框。图 5 拉入框架Frame 控件编辑用“ labe

3、l”“ textbox ”“commandbutton”设置变量输入框和计算值输出文本框,并设置命令按钮“计算” “退出”“帮助”。图 6显示窗体设计布置图1、“计算参数假设值”为输入值,其中, “叠压系数”由实验五中“电机额定数据界面”获得,并在磁路计算界面(本界面)运行时显示出来;由于“叠压系数”要在运行时显示出来,所以要提前加载。在命令编辑框下编辑命令如下:把 Form3.TxtKFe 的值传送给 Txt5, 再由 Txt5 传给 Form2.TxtKFe 。2、“计算值”分为文本和输出值;图7程序将“计算值”分为文本值和输出值,然后由变量进行转换和计算的过程。3、插图区需在本界面运行时

4、显示图片,图片可自选;在“ C:UsersAdministratorDesktop ”地址下新建文件夹“ * ”,在里面添加 bmg 格式的图片。图 8 新建文件夹“111”图9添加图片“12”进文件夹在“ C:UsersAdministratorDesktop”地址下打开图片文件“12”,加载到图片框。图 10 图片显示结果程序如下:图 11程序4、“计算”可根据输入数据计算得到输出数据并显示在相应控件区;输入程序如下:图12程序将文本里的数值赋值给变量,由变量进行计算后得出结果,再将结果传输给输出框文本。随机输入数据进行检验可以计算出结果,输出在计算值框里。图 13 计算结果显示5、“退出

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)KETxt2 = Val(Text2.Text)alphapTxt3 = Val(Text3.Tex

6、t)KMNTxt4 = Val(Text4.Text)Kdp1Txt5 = Val(Text5.Text)KdeltaTxt6 = Val(TxtKFe.Text)KFe将 form3 的数引用到里面计算E1 = UNf * Txt1phai = E1 / (4 * Txt3 * Txt4 * N1 * fN)Bdelta = 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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论