计算机毕业cai教学软件中数据的分割.docVIP

XX大学 毕业论文 CAI教学软件中数据的分割 姓 名： 2014年6月25日 CAI教学软件中数据的分割 摘要： 本文使用面向对象的高级语言Visual Basic6.0设计了一套既能 编辑，又能应用于教学演示的高级CAI软件。使用本软件，用指定的格式输入 CAI数据，并在其中设置断点；同时，用本软件进行播放，可实现模拟教学目的。 本文着重论述了如何输入数据、分割数据和显示数据的算法。 Abstract:Using the advanced language Object Oriented -Visual Basic 6.0, the author developed a set of advanced CAI software, which can be used in data editing and teaching. This software can be used to input CAI data in assigned format and set breakpoints. At the mean time, it can be used to display data in order to realize the objective of simulated teaching. This article emphasizes on the algorithm of data input, data split and data display. 随着计算机的普及和网络技术的发展，计算机辅助教学(CAI)越来越受到人 们的重视。但纵观目前流行的CAI软件，大多只能进行简单的放映，而不具备 编辑能力，为数很少的几个能够编辑的软件，操作乂很复杂，不能针对教学特点。 基于此，作者设计了一个既能辑状态的一角，左边 图1编辑状态 为文字区，右边为指令区。 Fig.l edit status 2数据的分割 数据的分割分为两个步骤进行： 第一步：把文章以字形为根据分解成段落。字形的标识与命令标识相关。 程序如下： 把整个一页分成若个段落 Public Sub FunDivide(ByRef SourceStr As String, ByRef Destination As String, ByRef Position As Integer, ByRef propName As String) Dim ControlICode As String Dim codCommand As String Dim ss As String Dim SourceLen As Long SourceLen = Len(SourceStr) Destination = ““ ControllCode = Mid(SourceStr, Position, 1) If (Control ICode 二 “\”)Then End If Position = Position + 1 Loop End If End If End Sub 第二步：把段落分别地分成一行一行，为向标签框内填充作准备。分行的依据 是除去控件和图形的区域。图形位于右上角，用一条水平线和竖直线来分界。 分段为块 Public Sub LineDivide(ByRef afterDivide As String, By Vai Source As String, By Vai ScaleLO As Integer) Dim LL As Integer Dim Ls As String Dim start As Integer start = 1 LL = Len(Source) Do Ls = Mid(Source, start, ScaleLO) start 二 start + ScaleLO If afterDivide 二Then afterDivide = Ls Else afterDivide = afterDivide + Chr(13) + Chr( 10) + Ls End If Loop While (start = LL) End Sub 这两个全局函数位于标准模块basCommFun.bas中，同时，在该模块中定义了 许多全局变量和常量，用来监控程序的运行状态。如： Option Explicit Public jobStatus As Integer 4jobStatus=0第一界面状态 4jobStatus=l编辑界面模式 jobStatus二2教学界而模式 Public Const Margin = 50 Public Const ZLF= 180 ，小五号字的大小Twip Public Const ZF = 210 五号字的大小Twipo止常显