山东轻工业学院实验报告规范（暂行）.docVIP

山东轻工业学院实验报告 成绩 课程名称 程序设计实践I 指导教师 王庆祥 实验日期 2007.12 院（系） 信息科学与技术 专业班级 计算机科学与技术06－2 实验地点 专业实验室 学生姓名 王晓宁 学号 200603011052 同组人 无 实验项目名称 简易浏览器 一、实验目的和要求 实验目的：结合前面所学的内容完成一个综合性的实验 实验要求：完成一个不少于10小时编程工作量的程序，内容不得抄袭他人或者网络上已有程序。并完成一份设计报告，其中必须写明项目需求，项目详细设计，并写明参与的每个人在其中完成的项目部分。 二、实验原理 用vb中的WebBrowser、progress、等控件对网页进行搜索和浏览。在vb中可以直接用 WebBrowser控件对网页进行浏览，当它载入时progress控件记录它的进程，同时在Labe控件中纪录网页名。这些控件所需代码很少，是vb中的高级控件。 当然其中还需要一些代码来完善程序比如保存网页，新建窗体，临时纪录网址供用户进行查阅等。 三、主要仪器设备、试剂或材料 微型计算机；VB6.0语言编译环境。 四、综合设计报告 1.功能分析 本程序是一个小型的浏览器，它支持单页浏览也就是不能多页浏览网页，可以对网页进行刷新、前进、后退、停止。当然也可以对网页进行保存同时可以新建窗体。在浏览网页时可以显示网址和网名。有进程条，可以显示当前进程是多少用 % 来表示，如果打开网页失败给出提示信息。在下面的状态栏中给出当前的时间和进程条。在菜单栏中有编辑菜单在它的子菜单中可以对网页进行复制、粘贴、剪切。在收藏夹的子菜单中可以查看所收藏的网页和收藏网页。 在文件菜单的子菜单里可以打印网页和设置网页 2.功能/模块/数据库设计 在程序运行后WebBrowser控件要随窗体的变化而变化当窗体最大化后,各控件的相对位置不发生改变。首先在combox中输入要浏览的网页网址，同时combox控件临时记录这个网址以便下次浏览时直接点击combox控件可以显示以前输入的网址。然后点击搜索按钮程序自动链接该网址，在链接过程中在Labe 控件给出网页名和进度百分数，同时在下边的状态栏中的进程条显示进程。点击返回按钮网页返回上一级，点击前进按钮网页链接到下一级。在网页打开失败后可以刷新网页重新打开也可以点击停止按钮中止打开网页。 如果有想要保存的网页可以点击菜单栏中的保存网页按钮，如果想要新建窗体则点击菜单栏中的新建窗体按钮。 在菜单栏中有编辑菜单在它的子菜单中可以对网页进行复制、粘贴、剪切。在收藏夹的子菜单中可以查看所收藏的网页和收藏网页。 在文件菜单的子菜单里可以打印网页和设置网页。 3.主要代码或流程图 流程图 4.分工和实现（写明每个人负责的模块或工作） 小组成员姓名 学号 所负责模块 所占比例（百分比） 王晓宁 200603011052 全部 100% 5.个人所负责工作的功能/代码/内容说明 Option Explicit Public AllowPopup As Boolean Dim n As Integer Dim m As Integer Dim filename As String Dim hpfilename As String Private Function FileWrite(ByVal URL As String, Optional actions = 0) 写文件的操作 If actions = 0 Then Open filename For Output As #1 ElseIf actions = 1 Then Open filename For Append As #1 Else Exit Function End If Print #1, URL Close #1 End Function Private Function FileExist() A