交互式网络实验模拟系统的设计与实现-首页.doc

交互式网络实验模拟系统的设计与实现 Internet Environment Experiment Simulation System Developed Using VB 吕晓奕* 孟昭鹏** 张树俊** * 天津大学电子信息工程学院计算机系 E-mail: lvxiaoyi@ ** 天津大学网络教育学院 E-mail: mengzp@ 随着计算机和网络在世界上的快速发展和普及，网络教学也得到了广泛的开展。现代远程教育要将大量的实例与图解动态地演示出来，引入虚拟实验可以帮助学习者完成实验教学环节，提高学习者的工程实践能力，同时也节约教学资源。虚拟实验系统的实现是目前网络教学系统开发中的难点问题之一，本文主要介绍为了计算机网络课程中需要进行的实验环节，而采用VB开发的网络实验模拟系统。本文着重分析了在Windows NT安装过程模拟实验的设计中遇到的问题及其解决方法。 关键词： VB ProgressBar MsgBox UpDown PasswordChar 1 引言 现代远程教育与传统的教学方式相比，除没有学习时间、地点的局限和可以由学习者自己安排学习时间和学习进度之外，还可以充分利用计算机独有的特色，增强学习的趣味性和交互性。网络教学不是单纯将文字、图片移到网上，而要将大量的实例与图解动态地演示出来，将平时在普通教室中无法看到和感受到的东西展示在广大的用户面前。虚拟实验可以帮助学习者完成实验教学环节，提高学习者的工程实践能力，同时也节约教学资源。虚拟实验系统的实现是目前网络教学系统开发中的难点问题之一。 2 模拟试验的实现方法 本系统主要通过对计算机网络课程中需要进行的实验环节进行模拟，在学习者的参与下完成Windows NT的安装、远程访问服务器安装等功能,具有真实感和交互性。下面详细地介绍采用Visual Basic实现有关Windows NT的安装过程的模拟实验系统的主要步骤。 2.1 模拟试验开始 启动后,用户将进入Windows NT基于文本的安装阶段，出现Windows NT安装欢迎界面。在基于文本的安装阶段，实验者不能通过点击鼠标来实现控制，只能通过按动键盘来实现各种功能选择和页面转换。其中按键是通过KeyDown事件和KeyUp事件来实现的。按下键 （KeyDown） （KeyUp）KeyPress 事件并不直接地报告键盘状态。KeyDown 和 KeyUp 事件通过Keycode和Shift两参数返回输入字符的信息。其中Keycode指示按下的物理键,Shift指示 SHIFT、CTRL 和 ALT 键的状态。实现这一功能的代码为： Private Sub Form_KeyDown （个如图1所示的对话框来提示用户应该进行的操作。 图1 检测大容量存储设备的提示 这里使用的是预定义对话框中的一种名为MsgBox的函数，其实现方法为：在程序执行过程中，如果出现了错误操作，系统会弹出一个对话框告诉实验者此处执行错误并告知正确的操作方向。使用InputBox函数实现用户输入相关信息的要求。系统用消息对话框来显示信息时，用 MsgBox 函数获得“是”或者“否”的响应，并显示简短的消息，比如：错误、警告或者对话框中的期待，可选取一个按钮来关闭该对话框。实现上述功能的部分代码为： Private Sub Form_KeyDown （ 图2 安装程序复制文件，进行资料收集 2.4 安装程序复制更多的文件，并开始收集与计算机有关的更多资料。 这一个步骤中的复制文件进度表示是通过在一个Form上添加ProgressBar控件和Timer控件来实现的，ProgressBar控件可以形象地表示工作的完成进度。现在对其实现过程做一个介绍： 在Form对象的Load事件中，设置Timer控件的Interval属性。每隔Interval时间，ProgressBar控件的Value属性被更新一次。在Load事件中将ProgressBar控件的Max属性设置为超时间隔。Max属性的值应为Timer停止之前，希望它持续计时的时间。同时为准确地反映经过的时间，ProgressBar的Min属性应设置为1。用Enabled属性启动Timer。实现这个步骤的部分代码为： Private Sub Form_Load （ProgressBar. Max = 100 ProgressBar.Min = 1 End Sub Private Sub Timer1_Timer （ProgressBar.Value + 5 = ProgressBar.Max Then ProgressBar.Value = P