3.4 具有保存计算结果功能的简化界面的程序_机械振动设计计算与VB编程实例-QQ阅读男生武侠网

上QQ阅读APP看本书，新人免费读10天

设备和账号都新为新人

3.4　具有保存计算结果功能的简化界面的程序

例3.2　设计一个简化界面的程序，并将计算结果另存到“运行记录”中

这实际上是在数值计算程序常用界面的基础上，加上过滤器来建立保存计算的功能。这是在数值计算中用得最多的一种，如图3.22所示。

图3.22　数值计算中用得最多的一种窗体界面

其窗体界面中的菜单部分与在第2章中已介绍过的数值计算源程序常用界面一样，这里不再赘述。

窗体界面中的文本框部分如图3.22所示，在窗体里分别建立20个文本框，文本框属性AutoRedraw设为True，否则窗体上的文本不能稳定保留。

把通用对话框添加到窗体中，在前面3.2“通用对话框”已有详细介绍，这里不再赘述。单击标准工具栏上的按钮，立即弹出本程序界面，如图3.23所示。

图3.23　程序界面

单击按钮便弹出下拉菜单，如图3.24所示。

图3.24　下拉菜单

双击钮便弹出：

Private Sub 计算_Click()事件过程名
End Sub

在事件过程名中编制如下程序代码：

Private Sub 计算_Click()
wrap$ = Chr$(13) + Chr$(10)
vn1$ = "  程序版本号:源程序常用界面/2014-1-27 "
vn2$ = "  程序摘要:源程序常用界面最适用于输出多窗体放不下的项目"
Print " "
Print "   "; vn1$
Print "   "; vn2$
Print " "
Text1.Text = " " & vn1$
string20 = string20 + "    " + Text1.Text + wrap$
Text1.Text = " " & vn2$
string20 = string20 + "    " + Text1.Text + vbCrLf + wrap$
 Print "   最适用于输出数据多的项目类型,"
 Print "   因为所计算的结果在窗体上放不下,"
 Print "   必须通过过滤器将计算结果另存到事先设置好的文本文档里面去,"
 Print "   以便于在那里寻找程序输出的数据。"
 Print "   以便最后复制、粘贴、打印输出。"
 Print ""
Text10.Text = "              源程序运行记录"
string20 = string20 + "    " + Text10.Text + wrap$
Text11.Text = "   最适用于输出数据较多的项目类型,"
string20 = string20 + "    " + Text11.Text + wrap$
Text12.Text = "   因为所计算的结果在窗体上放不下,"
string20 = string20 + "    " + Text12.Text + wrap$
Text18.Text = "   必须通过过滤器将计算结果另存到事先设置好的文本文档里面去,"
string20 = string20 + "    " + Text18.Text + wrap$
Text19.Text = "   以便于在那里寻找程序输出的数据;"
string20 = string20 + "    " + Text19.Text + wrap$
Text19.Text = "   以便最后复制、粘贴、打印输出。"
string20 = string20 + "    " + Text19.Text + vbCrLf + wrap$
CommonDialog1.Filter = "Text Files(*.TXT)|*.txt"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, string20
Close #1
End If
End Sub
Private Sub 退出_Click()
End
End Sub

单击则会弹出保存计算对话框，如图3.25所示。

图3.25　保存计算对话框

选择预先设好的文本文档“运行记录”，注意“运行记录”的路径和名称。不同程序应采用不同的“运行记录”文件名，避免存错。单击对话框上的即把运行结果另存到文本文档“运行记录”上去了。对话框自行退去。存有运行结果的窗体即呈现出来，如图3.26所示。有时程序中有多个过滤器，要多次点击对话框上的对话框才会退去。