《计算机原理》课程的cai软件的设计与实现

《《计算机原理》课程的cai软件的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、卷第3期苏张大学学报(自然科学全V;1.18N《3第招2(执】22川12文章编号:1000-2073(2002)03-0040-04《计算机原理》课程的CAI软件设计与实现‘张庆伟(苏州大学理学院数学系，江苏苏州215006)摘要:给出了使用VisualBasic6.0设计《计算机原理》课件的意义、功能和技术特点关键词;VB;CAI;计算机原理;多煤体中图分类号:TP311.52文狱标识码:A0引言随着计算机技术的迅猛发展及教育改革的深人展开，许多教师为了改变传统的单一教学模式，完善教学手段，采用CAI软件使课堂教学生动活泼，收到了较好的效果.计算机课程的教学又有其自身的特点，技术更新周

2、期快，而教材有时跟不上这种变化，所以要求教师要不断地学习新知识，对授课内容进行调整.在讲解新内容时，由于计算机原理课程的结构图比较多，如果没有教材参考，很难讲清楚.有了(AI软件能够较好地解决这个问题.为此我们设计了一套咤计算机原理)的辅助教学系统.VisualBasic6.0具有简单易学，开发周期短等特点，所以选择它作为开发本系统的软件工具设计并实现了电子教案、例题及解答和成绩管理子系统.1系统功能的设计与实现1.1电子教案子系统在进人此子系统时在屏幕上开辟两个窗口，左边为树形结构显示章节的目录窗口，右边窗口为显示章节内容的文档窗口.也可以关闭左边窗口使授课内容全屏显示在显示时可以改变

3、字体和字号，播发背景音乐.操作简单，使用方便.窗口结构见图.1.2例题及解答子系统每节都配有一定数量的例题，可帮助学生巩固所学的知识.把典型的例题作为详细讲收稿日期:2002一04一18作者简介:张庆伟(1960一》，女，吉林辽源市人，硕士，主要从事计算机应用研究万方数据第3期张庆伟(计算机原理》课程的CAI软件设计与实现图1窗口结构解，分析解题思路，培养学生解决问题的能力.部分题作为课堂练习，了解学生对知识的掌握情况，达到讲练结合每一节的习题按题型分类显示.13成绩管理子系统对学生的成绩用计算机来管理，可根据平时、期中和期末成绩计算总成绩.根据期末成绩统计各分数段的人数，给出学生的成绩

4、分布图，有利于通过考试了解学生的学习情况，反馈教学中的薄弱环节，改进教学方法.也可查询学生成绩.打印成绩表.2技术特点2.1通用性强对章节目录的节点、授课内容及例题都可以进行添加、删除和修改.因为授课的内容要跟上时代的发展.利用Treeview控件来显示章节目录，使用右击鼠标的方法从弹出的快捷菜单中选择不同的操作来完成对目录节点的重命名、添加、删除和保存.文档窗口的内容是在Treeview控件Nodeclick事件中调用Richtextbox控件的Loadfile方法直接打开对应的文件(+.Rtf).通过右击文档窗口从弹出的菜单中选择操作，可以改变字体、字号和粗体显示;设置背景与前景的显

5、示颜色;保存对文档和例题内容所作的修改.2.1.1目录节点的重命名PrivateSubmnu-rename-Click()DimndTempAsNodeDimstrpmameAsStringDimstrmnameAsStringDimstroldnameAsStringDimstroldidAsStringIf(str<>"")Thenstroldname=TreeViewl.Selectedltem.Textstrodname=InputBox$(“请输人新的节点名称“，“重命名“，stroldname)TreeViewl.SelectedItem.Text=strrnnametree

6、viewsave=TrueEndIf万方数据苏州大学学报‘自然科学)第18卷EndSub2.1.2添加节点PrivateSubrrmutree-add-Click()If(str<>“”)ThenfrmTreeAdd.ShowElseMsgBox请选择父节点”，vbExclamation,堤示!“EndIfEndSub2.1.3删除节』点PrivateSubtnnutree-del-Click()If(str<>-)Thenif(M斑)3-C确ilstf'节点的删除吗，，徒浑困从〕十vlQuestion厂提示内=vbYe0叨”、treeviewsave=TrueTreeviewl.Nod

7、es.RemoveTreeViewl.SelectedItem.KeyEndIfElseM%Box"请选择节点”,vbExclamation,“提示!“EndIfEndSub2.1.4保存节，11,11PrivateSubmnuTreeSave-Click()Iftreeviewsave=TrueThenIf(MsgBox(“保存目录吗?‘，vbYesNo十vbQuestion,‘提醒勺，vbYes)ThenSave-TreeFil