- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实验六 电机气隙磁路计算界面设计
一、实验目的
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
文档评论(0)