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

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

《实验六 电机优化界面设计脚本编程.docx》由会员分享，可在线阅读，更多相关《实验六 电机优化界面设计脚本编程.docx（12页珍藏版）》请在冰豆网上搜索。

实验六电机优化界面设计脚本编程

实验六电机气隙磁路计算界面设计

一、实验目的

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”

源程序：

OptionExplicit'定义变量

DimTxt1!

Txt2!

Txt3!

Txt4!

Txt5!

Txt6!

DimUNf!

fN%,N1%,delta!

tao!

Lef!

E1!

phai!

Bdelta!

deltaef!

Fdelta!

PrivateSubCommand1_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.4*3.1415926/10^6））*deltaef

'输出

Txt7=Format（E1,"###.####"）

Txt8=Format（phai,"###.####"）

Txt9=Format（Bdelta,"###.####"）

Txt10=Format（deltaef,"###.####"）

Txt11=Format（delta,"###.####"）'气隙磁密

Txt12=Format（Fdelta,"###.####"）

EndSub

PrivateSubCommand2_Click（）'退出

Form2.Hide

MDIForm1.Show

EndSub

PrivateSubForm_Load（）'提前加载

Image1=LoadPicture（"C:

\Users\Administrator\Desktop12.bmp"）

Txt5=Val（Form3.TxtKFe.Text）

TxtKFe=Format（Txt5,"###.####"）

EndSub