VB(CAD) 实验5 电机数据界面编程设计 源程序.docVIP

实验五 电机数据界面编程设计 一、实验目的 1、掌握输入、输出及数据存取的脚本编程方法 2、掌握程序调试方法 二、实验内容 对实验四中“电机数据窗体”进行脚本编程，完善命令区的控件编程并调试程序，实现数据的导入、保存、计算，以及界面的切换。 要求： 1、“计算”根据输入数据计算得到输出数据并显示在相应控件区； 2、“保存数据”保存所有输入、输出数据； 3、“导入数据”载入所有已保存的数据； 4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体； 5、“退出”切换至MDI主窗体并隐藏本窗体； 6、“帮助”不做任何操作。 三、实验步骤 按要求完成实验并给出设计过程，给出相应的脚本程序并加以说明。 对命令栏进行编程，分别编程 导入数据 保存数据 计算 退出 写一步等按钮。 1、“计算”根据输入数据计算得到输出数据并显示在相应控件区； 通过变量进行运算，再传送到显示变量里，由显示变量(UNF)显示到可视窗口。 2、“保存数据”保存所有数据； 打开将要保存的文件，将数据赋予变量，把将要保存的数据通过变量写入文件。 3、“导入数据”载入所有已保存的数据； 打开数据的储存地址，选择将要写入的数据，将数据读出，关闭文件。 4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体； 将Form3隐藏，并且打开Form1。 点击下一步后将出现数据及槽形的界面 5、“退出”切换至MDI主窗体并隐藏本窗体； 将Form3隐藏，并且打开MDIForm1。 6、“帮助”不做任何操作。 7、源程序 Option Explicit Dim PN!, UN!, ata!, glys!, Lt!, D1!, Di1!, D2!, Di2!, KFe!, Bdelta0!, A0!, P%, fN%, Z1%, Z2%, m1%, a1%, xd% Dim UNf!, n!, Zp1!, Zp2!, Ikw!, delta!, Lef!, tao!, t1!, t2!, cjj!, q!, N0!, NC!, ZS!, I10!, N1%, NX% Private Sub Command1_Click() Open C:\Users\Administrator\Desktop\.txt For Input As # 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, ZS Form3.txtPN = PN Form3.txtUN = UN Form3.txtata = ata Form3.txtglys = glys Form3.CombofN.Text = fN Form3.Combop.Text = P Form3.Comboa1.Text = a1 txtZ1.Text = Z1 txtZ2.Text = Z2 txtLt.Text = Lt txtDi1.Text = Di1 txtD1.Text = D1 txtDi2.Text = Di2 txtD2.Text = D2 txtKFe.Text = KFe txtBdelta0.Text = Bdelta0 txtA0.Text = A0 txtUNf.Text = UNf txtn.Text = n txtZp1.Text = Zp1 txtZp2.Text = Zp2 txtIkw.Text = Ikw txtdelta.Text = delta txtLef.Text = Lef txttao.Text = tao txtt1.Text = t1 txtt2.Text = t2 txtN0.Text = N0 txtNC.Text = NC txtN1.Text = N1 txtcjj.Text = cjj txtq.Text = q txtI10.Text = I10 txtNX.Text = NX txtZS.Text = ZS Close # End Sub Private Sub Command2_Click() Open C:\Users\Administrator\Desktop\889\1.txt For Output As # m1 = 3 PN = Val(txtPN.Text) ***********将txtPN.Text的值赋值给PN****************** UN = Val(Form3.txtUN) ata = Val(Form3.txtata) glys = Val(