VBCAD试验5电机数据界面编程设计源程序

实验五电机数据界面编程设计一、实验目的1、掌握输入、输出及数据存取的脚本编程方法2、掌握程序调试方法二、实验内容对实验四中“电机数据窗体”进行脚本编程，完善命令区的控件编程并调试程序，实现数据的导入、保存、计算，以及界面的切换。要求：1、“计算”根据输入数据计算得到输出数据并显示在相应控件区；2、“保存数据”保存所有输入、输出数据；3、“导入数据”载入所有已保存的数据；4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体；5、“退出”切换至MDI主窗体并隐藏本窗体；6、“帮助”不做任何操作。三、实验步骤按要求完成实验并给出设计过程，给出相应的脚本程序并加以说明。对命令栏进行编程，分别编程导入数据保存数据计算退出写一步等按钮。1、“计算”根据输入数据计算得到输出数据并显示在相应控件区；PrivateSubCcmmajxd3_Clich()PH=Vai(txtPHText)UH=Vai(txtUNText)ata-Vai(txtata.Text)glys=Vai(txt^lys.Text)£H-Val(Fi)rfn3,ComBoEF.Text)P-Vail(Fwih3.Conbap.Text)al-ValfFarmS.ComBosl.Text)Z1-Vai(txtZlText)72-Vai(txtZZ.Text)Lt=Vsl(txtLt.Text)DiL=Vai(txtillText)Di=Vil(txtDlText)Di2=Val(txtri2,Text)D2=YslHxtD2Tot)KFe-Vai(txtKFe.Text)BdeltaO=ValCtKtBdeltaD,Text)AO=Vai(tstAO.Text)ml=3l£ComBoG.Text="三角形"Then'UWE-UN£lseUWE-UN/Sqr⑶EniI£ .―工踊=PN*1000/ml/UH£' '比常*常比**常***将陆值后的叮•里进行计算*********水********n-60*£TI/PIpl=21/(2*P)Zp2=Z2/(2*P)delta=0.3*10*(04+7*SqrOil*Lt))/10000LeE=Lt+2*delta=3.14*Bil/(2*P)tl=3.14*Dil/Z1t2=3,14*D2/Z2HO=(((ata/10。)*(glys/100)*(314*Dil))*A0/1k力/mlHC=HO*U*ml/Z1KI=Int(HC)Ml=HX*Z1/ml/alZS=Hl/2cjj=360*P/Z1q=Z1/(2*P)/mlIIO=IK/(ata/100)/(^Lys/100)— >w - an an-fe ■ ■j>iaj〔— ——J_g■ ・、,・>»hi・m>■>>txtVH£=Format(UHE,"*#*.*#*#*") '*常*富*****常*将计算后的值按格式输出到显示区常*常*常*常*富*****富***txtn=Format(n,txtZpl=Format(Zpl,txtZpZ=Format(Zp2,"it###*##*")txtlk*f=Format《工、林.it####")txtd^lta=Format(delta,"it##.#####")txtLef=F^mat(Le£,飞###*##*")txtt»=Furmat(tao,、抑.#####")txttl=Format(tl,t«tt2=Format(t2,txtMD=Format(MO."###.#####")tKtMC=Fermat(HC.It#It")txtll=Format(Hl,*###.#####*5txtajj"PomatCcjji"##1.###日")t«tQ=Format((v'###.#####")txtHO=F^rmatdlO.txtNX=Format^txtZS=Format(ZS,EndSub通过变量进行运算，再传送到显示变量里，由显示变量(UNF)显示到可视窗口。2、“保存数据”保存所有数据;Pri.viteS&Ccmm cJ5(0Open\Vsers\A.dmirListritflr\res]<t9p\39-txt^ForOutputAs#39(hl=3PN=Val(txtPHText) '*常比***比率***将丘日心T&xt的值赋值给FN**1**1***比****1**1****UN=Va(Farm3,txtlffi)ata—Val(Forni3.txtata)glys=Vai(FormS.txtglys)£K=y«l(Fqth3.Combo£HrText)F=VeJ(Forin3.Conbop-Text)al=Yai(Formi3.Comboal.Text)Ml=VaCtstZlText)72=VdCtKtZZText)Lt=Vsl(t!；tLt.Text)Di1=VolCtxtDi1.Text)DI-VdCt^tDlText)Di2=Val(txtDi2Text)D2-Vd(t^tD2.Text)KFe-Vol(txtKFe.Text)BdelteD=Val(tEtBdeltaD,Text)AO=Vd(tstAOText)1H£=Val(txtW£Text)n=Vai(txtnText)Zpl=¥al(titZpl.Text)Zp2=VaKtxtZpl.Text)iJcir=Vai(txtZpl.Text)delta=Val(txtdelta.Text)Lef=Val(txtLe£.Text)tao=¥el(txttao.Text)tl=Val(tsttl.Text)t2=Vd.(tKtt2,Text)BO=Vd(tstHOText)HC=Vd(tstMCText)N1=ViKt^tHl.Text)cjj=VaiCtutojj.Text)q=Val(txtQ,Text)IIO=Val(txtllO.Text)K=VdCtstWIText)ZS=Vd-Uxtzs.Text)Write439,FM,UK,ata.glys,£KP,虱,ZL及,Lt,DiLDLDi2,12,好*BdeltaO^AD,UNEjivZpLZp2,Ikw, Le£tao,tLt2>ND,配，Hl,cjjj备I1QMX；ZSCloxa#39EndSub打开将要保存的文件，将数据赋予变量，把将要保存的数据通过变量写入文件。3、“导入数据”载入所有已保存的数据；PrivateSubCommutil_ClicJ!(0Open\Vsers\A-Jministr4tt)r\resJ<tt)p\39-txt*ForInputMs#39Input#39,PM,UK,毗褊glys,£N；?fal,ZbI2fLt,UiL31；Di2,%KFe；B&lPorm3.txtPK=PNPorm3.txtlfff=UN?orm3-txtata.=ata.?orm3.txt^Lys=glysForm3-Ccmtoflf-Text=£HFcrm3.ComliQp.Text=PForin3.Coalioal.Tsct-altxtZL.Text=Z1txtZE.Text=72txtLt.Text=LttxtDil.Text-Diltxtil.Test«ritxtri2,Text=Di2txtrzTest=D2txtKFeText=KFetitBdeltaD.Text=BdeltaOtxtAO.Test=ADtxtW£Text=UN£txtnText=nText=ZpltxtZpS.Text=Zp2txtlkw.Text=Ixwtxtdelta.Text=deltatxtL^f.Text=L电Etxtt^o,Text=t电。txttl.Test=tltxtt2Test=t2txtNO.Test=NDtxtNC.Test=NCtxtll.Text=Hltxtcjj.Text=ojjtxtQ.Text=1txtl10.Text=IIOtxtHX.Text=HXtxtZS.Text=ZSClose#39EndSub打开数据的储存地址，选择将要写入的数据，将数据读出，关闭文件。4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体；?rivateSubComm ch()Fcrm3.HideFermIrShowEndSnb将Form3隐藏，并且打开Forml。

点击下一步后将出现数据及槽形的界面5、“退出”切换至MDI主窗体并隐藏本窗体;Privit&SubComm孙西，lick。Form3.HideMD工FormLSho卡EndSub将Form3隐藏，并且打开MDIForml。6、“帮助”不做任何操作。PrivateSubCommon由一Click0EndSub7、源程序OptionExplicitDimPN!,UN!,ata!,glys!,Lt!,D1!,Dil!,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%PrivateSubCommand1_Click()Open"C:\Users\Administrator\DesktopX.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.CombofN.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=Ikwtxtdelta.Text=deltatxtLef.Text=Leftxttao.Text=taotxttl.Text=t1txtt2.Text=t2txtN0.Text=N0txtNC.Text=NCtxtNl.Text=N1txtcjj.Text=cjjtxtq.Text=qtxtI10.Text=I10txtNX,Text=NXtxtZS.Text=ZSClose#EndSubPrivateSubCommand2_Click()Open"C:\Users\Administrator\Desktop\889\1.txt"ForOutputAs#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)Di1=Val(txtDi1.Text)D1=Val(txtD1.Text)Di2=Val(txtDi2.Text)D2=Val(txtD2.Text)KFe=Val(txtKFe.Text)Bdelta0=Val(txtBdelta0.Text)A0=Val(txtA0.Text)UNf=Val(txtUNf.Text)n=Val(txtn.Text)Zp1=Val(txtZpl.Text)Zp2=Val(txtZpl.Text)Ikw=Val(txtZpl.Text)delta=Val(txtdelta.Text)Lef=Val(txtLef.Text)tao=Val(txttao.Text)t1=Val(txtt1.Text)t2=Val(txtt2.Text)N0=Val(txtN0.Text)NC=Val(txtNC.Text)N1=Val(txtN1.Text)cjj=Val(txtcjj.Text)q=Val(txtq.Text)I10=Val(txtI10.Text)NX=Val(txtNX.Text)ZS=Val(txtZS.Text)Write#郭剑鹏,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,ZSClose#郭剑鹏EndSubPrivateSubCommand3_Click()PN=Val(txtPN.Text)UN=Val(txtUN.Text)ata=Val(txtata.Text)glys=Val(txtglys.Text)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)Di1=Val(txtDi1.Text)D1=Val(txtD1.Text)Di2=Val(txtDi2.Text)D2=Val(txtD2.Text)KFe=Val(txtKFe.Text)Bdelta0=Val(txtBdelta0.Text)A0=Val(txtA0.Text)ml=3IfCombo5.Text="三角形"Then'UNf=UNElseUNf=UN/Sqr(3)EndIfIkw=PN*1000/m1/UNf' '***********将赋值后的变量进行计算******************n=60*fN/PZp1=Z1/(2*P)Zp2=Z2/(2*P)delta=0.3*10*(0.4+7*Sqr(Di1*Lt))/10000Lef=Lt+2*deltatao=3.14*Di1/(2*P)t1=3.14*Di1/Z1t2=3.14*D2/Z2N0=(((ata/100)*(glys/100)*(3.14*Di1))*A0/Ikw)/m1NC=N0*a1*m1/Z1NX=Int(NC)N1=NX*Z1/m1/a1ZS=