资源描述：
《vb(cad) 实验5 电机数据界面编程设计 源程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实验五电机数据界面编程设计一、实验目的1、掌握输入、输出及数据存取的脚本编程方法2、掌握程序调试方法二、实验内容对实验四中“电机数据窗体”进行脚本编程，完善命令区的控件编程并调试程序，实现数据的导入、保存、计算，以及界面的切换。要求：1、“计算”根据输入数据计算得到输出数据并显示在相应控件区；2、“保存数据”保存所有输入、输出数据；3、“导入数据”载入所有已保存的数据；4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体；5、“退出”切换至MDI主窗体并隐藏本窗体；6、“帮助”不做任何操作。三、实验步骤按要求完成实验并给出设计过程
2、，给出相应的脚本程序并加以说明。对命令栏进行编程，分别编程导入数据保存数据计算退出写一步等按钮。1、“计算”根据输入数据计算得到输出数据并显示在相应控件区；通过变量进行运算，再传送到显示变量里，由显示变量(UNF)显示到可视窗口。2、“保存数据”保存所有数据；打开将要保存的文件，将数据赋予变量，把将要保存的数据通过变量写入文件。3、“导入数据”载入所有已保存的数据；打开数据的储存地址，选择将要写入的数据，将数据读出，关闭文件。4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体；将Form3隐藏，并且打开Form1。点击下一步后将
3、出现数据及槽形的界面5、“退出”切换至MDI主窗体并隐藏本窗体；将Form3隐藏，并且打开MDIForm1。6、“帮助”不做任何操作。7、源程序OptionExplicitDimPN!,UN!,ata!,glys!,Lt!,D1!,Di1!,D2!,Di2!,KFe!,Bdelta0!,A0!,P%,fN%,Z1%,Z2%,m1%,a1%,xd%DimUNf!,n!,Zp1!,Zp2!,Ikw!,delta!,Lef!,tao!,t1!,t2!,cjj!,q!,N0!,NC!,ZS!,I10!,N1%,NX%PrivateSubCo
4、mmand1_Click()Open"C:UsersAdministratorDesktop.txt"ForInputAs#Input#1,PN,UN,ata,glys,fN,P,a1,Z1,Z2,Lt,Di1,D1,Di2,D2,KFe,Bdelta0,A0,UNf,n,Zp1,Zp2,Ikw,delta,Lef,tao,t1,t2,N0,NC,N1,cjj,q,I10,NX,ZSForm3.txtPN=PNForm3.txtUN=UNForm3.txtata=ataForm3.txtglys=glysForm3.Comb
5、ofN.Text=fNForm3.Combop.Text=PForm3.Comboa1.Text=a1txtZ1.Text=Z1txtZ2.Text=Z2txtLt.Text=LttxtDi1.Text=Di1txtD1.Text=D1txtDi2.Text=Di2txtD2.Text=D2txtKFe.Text=KFetxtBdelta0.Text=Bdelta0txtA0.Text=A0txtUNf.Text=UNftxtn.Text=ntxtZp1.Text=Zp1txtZp2.Text=Zp2txtIkw.Text=Ikwt
6、xtdelta.Text=deltatxtLef.Text=Leftxttao.Text=taotxtt1.Text=t1txtt2.Text=t2txtN0.Text=N0txtNC.Text=NCtxtN1.Text=N1txtcjj.Text=cjjtxtq.Text=qtxtI10.Text=I10txtNX.Text=NXtxtZS.Text=ZSClose#EndSubPrivateSubCommand2_Click()Open"C:UsersAdministratorDesktop8891.txt"ForOu
7、tputAs#m1=3PN=Val(txtPN.Text)'***********将txtPN.Text的值赋值给PN******************UN=Val(Form3.txtUN)ata=Val(Form3.txtata)glys=Val(Form3.txtglys)fN=Val(Form3.CombofN.Text)P=Val(Form3.Combop.Text)a1=Val(Form3.Comboa1.Text)Z1=Val(txtZ1.Text)Z2=Val(txtZ2.Text)Lt=Val(txtLt.Text
8、)Di1=Val(txtDi1.Text)D1=Val(txtD1.Text)Di2=Val(txtDi2.Text)D2=Val(txtD2.Text)KFe=Val(txtKFe.Text)Bdelta0=Val(txtBdelt
