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

实验五 电机数据界面编程设计 一、实验目的 1、掌握输入、输出及数据存取的脚本编程方法 2、掌握程序调试方法 二、实验内容 对实验四中“电机数据窗体”进行脚本编程，完善命令区的控件编程并调试程序，实现数据的导入、保存、计算，以及界面的切换。 要求： 1、“计算”根据输入数据计算得到输出数据并显示在相应控件区； 2、“保存数据”保存所有输入、输出数据； 3、“导入数据”载入所有已保存的数据； 4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体； 5、“退出”切换至MDI主窗体并隐藏本窗体； 6、“帮助”不做任何操作。 三、实验步骤 按要求完成实验并给出设计过程，给出相应的脚本程序并加以说明。 对命令栏进行编程，分别编程 导入数据 保存数据 计算 退出 写一步等按钮。 1、“计算”根据输入数据计算得到输出数据并显示在相应控件区； 通过变量进行运算，再传送到显示变量里，由显示变量(UNF)显示到可视窗口。 2、“保存数据”保存所有数据； 打开将要保存的文件，将数据赋予变量，把将要保存的数据通过变量写入文件。 3、“导入数据”载入所有已保存的数据； 打开数据的储存地址，选择将要写入的数据，将数据读出，关闭文件。 4、“下一步”切换至“槽形数据及绘制界面”并隐藏本窗体； 将 点击下一步后将出现数据及槽形的界面 5、“退出”切换至MDI主窗体并隐藏本窗体； 将 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(Form3.txtglys) fN = Val(Form3.CombofN.T