VBCAD試驗(yàn)5電機(jī)數(shù)據(jù)界面編程設(shè)計(jì)源程序

實(shí)驗(yàn)五電機(jī)數(shù)據(jù)界面編程設(shè)計(jì)一、實(shí)驗(yàn)?zāi)康?、掌握輸入、輸出及數(shù)據(jù)存取的腳本編程方法2、掌握程序調(diào)試方法二、實(shí)驗(yàn)內(nèi)容對(duì)實(shí)驗(yàn)四中“電機(jī)數(shù)據(jù)窗體”進(jìn)行腳本編程，完善命令區(qū)的控件編程并調(diào)試程序，實(shí)現(xiàn)數(shù)據(jù)的導(dǎo)入、保存、計(jì)算，以及界面的切換。要求：1、“計(jì)算”根據(jù)輸入數(shù)據(jù)計(jì)算得到輸出數(shù)據(jù)并顯示在相應(yīng)控件區(qū)；2、“保存數(shù)據(jù)”保存所有輸入、輸出數(shù)據(jù)；3、“導(dǎo)入數(shù)據(jù)”載入所有已保存的數(shù)據(jù)；4、“下一步”切換至“槽形數(shù)據(jù)及繪制界面”并隱藏本窗體；5、“退出”切換至MDI主窗體并隱藏本窗體；6、“幫助”不做任何操作。三、實(shí)驗(yàn)步驟按要求完成實(shí)驗(yàn)并給出設(shè)計(jì)過(guò)程，給出相應(yīng)的腳本程序并加以說(shuō)明。對(duì)命令欄進(jìn)行編程，分別編程導(dǎo)入數(shù)據(jù)保存數(shù)據(jù)計(jì)算退出寫(xiě)一步等按鈕。1、“計(jì)算”根據(jù)輸入數(shù)據(jù)計(jì)算得到輸出數(shù)據(jù)并顯示在相應(yīng)控件區(qū)；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￡' '比常*常比**常***將陸值后的叮?里進(jìn)行計(jì)算*********水********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,"*#*.*#*#*") '*常*富*****常*將計(jì)算后的值按格式輸出到顯示區(qū)常*常*常*常*富*****富***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通過(guò)變量進(jìn)行運(yùn)算，再傳送到顯示變量里，由顯示變量(UNF)顯示到可視窗口。2、“保存數(shù)據(jù)”保存所有數(shù)據(jù);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打開(kāi)將要保存的文件，將數(shù)據(jù)賦予變量，把將要保存的數(shù)據(jù)通過(guò)變量寫(xiě)入文件。3、“導(dǎo)入數(shù)據(jù)”載入所有已保存的數(shù)據(jù)；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打開(kāi)數(shù)據(jù)的儲(chǔ)存地址，選擇將要寫(xiě)入的數(shù)據(jù)，將數(shù)據(jù)讀出，關(guān)閉文件。4、“下一步”切換至“槽形數(shù)據(jù)及繪制界面”并隱藏本窗體；?rivateSubComm ch()Fcrm3.HideFermIrShowEndSnb將Form3隱藏，并且打開(kāi)Forml。

點(diǎn)擊下一步后將出現(xiàn)數(shù)據(jù)及槽形的界面5、“退出”切換至MDI主窗體并隱藏本窗體;Privit&SubComm孫西，lick。Form3.HideMD工FormLSho卡EndSub將Form3隱藏，并且打開(kāi)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' '***********將賦值后的變量進(jìn)行計(jì)算******************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=