VisualBasic程序设计教程项目式陈秀莉王体英项目七设计文件操作程序新幻灯片.ppt

PPT研究院 POWERPOINT ACADEMY * * * * 项目七　设计文件操作程序 项目七　设计文件操作程序 【主要内容】 本项目是介绍Visual Basic程序如何访问文件，主要包括文件分类、Visual Basic操作文件的方法和文件系统控件等内容。 【学习目标】 了解数据文件的分类 掌握利用顺序文件的基本操作 掌握利用随机文件的基本操作 掌握文件系统控件的使用方法 任务1访问顺序文件 一、任务分析 本任务是计算小区用户的电费。编程从顺序文件中读取数据，进行计算，再把计算结果写入顺序文件。 二、相关知识 （一）文件的概念 （二）文件的基本操作 （三）顺序文件的基本操作 （四）常用的文件函数 三、任务实施 1.新建一个工程PROG1.vbp，窗体文件为Frm1. Frm。窗体设计如图7-1所示，2个命令按钮，标题分别为“输入”和“计算”，名称依次为Cmd1和Cmd2。 图7-1 窗体设计界面 2.用Write语句将三个业主的房号、姓名、用电量写顺序文件“ D:\VBJC\al\al7-1\Powerc.dat”,编写命令按钮Cmd1的单击事件代码如图7-2所示。 图7-2 写顺序文件代码 3. 用Input语句按原有的数据类型从Powerc.dat中读出数据，计算总用电量和电费，并在窗体上显示。电费。编写命令按钮Cmd2的单击事件代码，如图7-5所示。 4.运行程序，单击窗体中的计算按钮，则在窗体中可见电费charge的值。 图7-5 读顺序文件代码 总结： 文本文件一旦创立，就可分3步向其中写入或读出数据：第一步，打开文本文件；第二步，写入或读出数据；第三步，关闭文件。 四、随堂练习 计算学生的平均成绩。编程将两个学生的学号、姓名和成绩写入顺序文件，从顺序文件中读取数据，计算平均成绩，把计算结果显示在窗体中。 任务2 访问随机文件 一、任务分析 本任务是计算小区用户的电费。编程从随机文件中读取数据，进行计算，再把计算结果写入随机文件。 二、相关知识 （一）顺序文件和随机文件比较 （二）随机文件的基本操作 三、任务实施 1.新建一个工程Prog2.vbp，窗体文件为Frm1. Frm。窗体设计如图7-6所示，3个命令按钮，标题分别为“写入”、“读出”和“退出”，名称依次为Cmd1 、Cmd2和Cmd3。 图7-6 程序的运行界面 2. 建立一个随机文件，向该文件写入小区业主的房号、姓名、用电量和电费，其中电费根据电量计算。编写程序代码如下： 编写标准模块代码，定义记录类型 Type propertyp No As String * 6 Name As String * 10 Pow As Single Powc As Single End Type 在通用声明区，定义模块级变量 Private pt As propertyp Private lastrec As Integer 在窗体的加载事件中编写代码如下： Private Sub Form_Load() Open D:\VBJC\al\al7-2\Powerc.dat For Random As #1 Len = Len(pt) lastrec = Lof(1) / Len(pt) ‘计算最后一条记录的记录号 End Sub 在文本框Text3的Change事件中编写代码如下： Private Sub Text3_Change() Dim x As Single x = Val(Text3.Text) Text4.Text = Str(0.5653 * x) ‘计算电费并输入文本框 End Sub 在标题为“写入”命令按钮的单击事件编写代码如下： Private Sub Cmd1_Click() pt.No = Text1.Text pt.Name = Text2.Text pt.Pow = Val(Text3.Text) pt.Powc = Val(Text4.Text) lastrec = lastrec + 1 Put #1, lastrec, pt ‘将记录写入文件 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub 4. 从随机文件中读取记录，编写代码将小区业主的房号、姓名、用电量和电费从文件中读出并显示在“立即”窗口，代码如下： Private Sub Cmd2_Click()