计算机毕业论文cai教学软件中数据的分割
(8页)
本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！
9.9 积分
XX大学毕业论文CAI教学软件中数据的分割姓 名： 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 status2数据的分割数据的分割分为两个步骤进行：第一步：把文章以字形为根据分解成段落。字形的标识与命令标识相关。程序如下：'把整个一页分成若个段落Public Sub FunDivide(ByRef SourceStr As String, ByRef Destination As String, ByRef Position As Integer, ByRef propName As String)Dim ControlICode As StringDim codCommand As StringDim ss As StringDim SourceLen As LongSourceLen = Len(SourceStr)Destination = ““ControllCode = Mid(SourceStr, Position, 1)If (Control ICode 二 “\”)ThenEnd IfPosition = Position + 1LoopEnd IfEnd IfEnd Sub第二步：把段落分别地分成一行一行，为向标签框内填充作准备。分行的依据 是除去控件和图形的区域。图形位于右上角，用一条水平线和竖直线来分界。'分段为块Public Sub LineDivide(ByRef afterDivide As String, By Vai Source As String, By Vai ScaleLO As Integer)Dim LL As IntegerDim Ls As StringDim start As Integerstart = 1LL = Len(Source)DoLs = Mid(Source, start, ScaleLO) start 二 start + ScaleLOIf afterDivide 二""ThenafterDivide = LsElseafterDivide = afterDivide + Chr(13) + Chr( 10) + LsEnd IfLoop While (start = LL)End Sub这两个全局函数位于标准模块basCommFun.bas中，同时，在该模块中定义了许多全局变量和常量，用来监控程序的运行状态。如：Option ExplicitPublic jobStatus As Integer4jobStatus=0第一界面状态4jobStatus=l编辑界面模式jobStatus二2教学界而模式Public Const Margin = 50Public Const ZLF= 180，小五号字的大小TwipPublic Const ZF = 210"五号字的大小Twipo止常显示内容。Public Const ZLFo = 240，小四号字的大小TwipPublic Const ZFo = 285，四号字的大小TwipPublic Const ZLT = 300，小三号字的大小Twip。标题。Public Const ZT = 3153数据的演示“三号字的大小Twip在数据显示时，首先在窗体上放置若干个标签框和四个图片框，并使他们处于 不可见状态。在运行编辑时，显示用的控件都不可见；在运行演示时，编辑用的 控件都不可见。通过控制变量jobStatus来实现这种功能。显示程序如下：Private Sub cmdPreview_Click()Dim dspContent(2, 10) As StringDim Counter As IntegerDim JJ As IntegerDim picLeftside As IntegerDim picBottom As IntegerDim chrNum As IntegerpicLeftside = 0picBottom = 0Dim LsStr As StringpicLeftside =frmMainForm.Width 图 2 运行状态picBottom = frmMainForm^Top Fig 2 run statusCounter = 0For JJ = 0To3If picFigure(JJ).Picture Then3With frmMainForm.picFigure(JJ).Left = .Width - Margin 一 100 -picFigure(JJ). Width? picFigure(JJ). Visible = TrueIf JJ = 0ThenpicFigure(JJ).Top = .Top + 1picBottom = picBottom + ? picFigure(JJ).Top+ .picFigure(JJ).HeightElse.picFigure(JJ).Top = .picFigure(JJ - l).Top + .picFigure(JJ?"HeightpicBottom = picBottom + .picFigure(JJ).HeightEnd IfEnd WithEnd IfpicLeftside = frmMainForm.picFigure(0).LeftNext JJ以上程序段用于计算图片框组的左边和累加起来的底边，分存储于变 量picLeftSide和pciBottom屮。用这两个变量在右上角上划出了一个区域，以保 证文本不会显不在图形后面。For JJ = 0 To 9frmMainForm.lblDisplayContent(JJ).Left = 1NextfrmMainForm.txtContent. Visible = FalsefrrnMainForrn.crndPreview.Visible 二 False frmMainForm.cmdPreviewClose. Visible = True上面的语句用于切换到预览状态或是关闭编辑状态。Dim LL As String4LL = frmMainForm.txtContent.TextDo While (Len(frmMainForm.txtConten匚Text) start)Call FunDivide(LL, dspContent( 1, Counter), start, dspContent(05Counter))Counter = Counter + 1Loop2、把段落分割成行For JJ = 0 To CounterWith frmMainForm .lblDisplayContent(JJ)>Left = 13、 计算行宽和判断字号If dspContent(0, JJ) = "titl" Then」blDisplayContent(JJ).FontSize = 15 chrNum = (picLeftside ? 2 * Margin - 100) / ZLTElself dspContent(0, JJ) = "text" Then? lblDisplayContent(JJ).FontSize = 10.5chrNum = (picLeftside - 2 * Margin - 100) / ZFElseEnd IfLsStr 二““Call LineDivide(LsStr, dspContent(l, JJ), chrNum) '分割成行.lblDisplayContent(JJ).Caption = LsStr '装载数据If JJ 0 Then?lblDisplayContent(JJ).Top = .lblDisplayContent(JJ ? l).Top+ .lblDisplayContent(JJ ? l).HeightEnd If4、 显示数据.lblDisplayContent(JJ). Visible = TrueEnd WithNext JJEnd Sub所有的数据以页为单位存储于数据中，编辑吋，通过“上一页"和“下一页"来刷 新数据；同理，在播放时也通过这两种指令来刷新窗休。所不同的是编辑时可以 修改数据库，而在演示时不能修改数据库。本软件很好地解决了在VB文本框中输入文字不能设置字体，不能回车换行的问题，并且在编辑文本和图象时能够通过程序控制，动态调整界面控件位置, 实现图文混排，在实际运行中取得了较好的效果。5参考文献[1 ] Wang Dong. Program Design With Visual Basic 6?0? Tsinghua University Press.2000⑵ Jarol S. Guide to Develop Multimedia Program With Visual Basic. Science Press 关键词： 计算机 毕业论文 cai 教学 软件 数据 分割
天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
如果觉得《计算机教学软件cai 计算机毕业论文cai教学软件中数据的分割》对你有帮助，请点赞、收藏，并留下你的观点哦！
