- 1、本文档共42页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Visual Basic程序设计教程 项目式 陈秀莉 王体英 项目七设计文件操作程序新
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()
文档评论(0)