控制计算机上机课教学过程的途径

第一篇：控制计算机上机课教学过程的途径

控制计算机上机课教学过程的途径

一、计算机上机课的重要性与控制上机课教学过程的必要性

如何上好计算机课，切实提高计算机教学的质量，同时引导学生使用好计算机，使计算机真正成为孩子们的良师益友，是计算机教师必须关注的课题。计算机学科不同于其他学科，具有自身的特点，这些特点都显示了计算机上机课的重要性，体现了上机课在计算机教学中不能替代的主干地位。

1．操作性强。不论是计算机程序语言、数据库管理系统、文字处理，还是操作系统，均需要在上机的过程中，不断去认识、理解、巩固、掌握计算机相关的知识。计算机教学若不注重上机课教学，是绝对不能学好计算机的。

2．涉及内容广。计算机学科是一门综合性学科，从有形的硬件到无形的软件，涉及到物理学、数学、美学等等，仅计算机语言也有十多种，常见的操作系统如DOS、WINDOWS、UNIX等，也有好几种，这给计算机教学带来诸多困难，这些困难单靠教师“纸上谈兵”式地上课讲是不解决问题的，要靠学生上机练习时来逐步化解。

3．专业术语多。计算机是一门新兴的学科，产生了许多新的专业术语。如桌面、文件夹、剪切、操作系统、菜单等等。这些专业术语极大部分都可以在上机课中形象化。

现在很多学校都配置了多媒体教室、投影仪等硬件设备，计算机的很多课程都安排在多媒体教室上课。在多媒体教室上课，具有直观形象的优点，但如果以减少上机课来增加此种讲授课，势必会造成由于课堂教学容量增大、学生要接受的信息量很多而一时消化不了的后果。而且在上课过程中，更多的是老师讲，学生听，很少有学生动手操作的机会，这对于学生理解、掌握和应用计算机知识是非常不利的。以上弊端通过足够的上机课教学便能自然地消除。只要抓好上机课的教学，就把握住了计算机教学的关键。但要抓好上机课教学也非易事，若教师思想上认为上机课就是学生上机，可以放任自流，教师则可在旁做自己的其它事情，那就大错特错了。不但会使课堂效率低下，学生学不好，严重影响教学质量，而且还会出现意想不到的事情，甚至产生破坏课堂纪律或损坏机器的现象。因此，对上机课教学过程实施有效控制，对于保障上机课的有序教学、提高计算机教学质量是完全必要的。

当前，已有不少家庭自己配置了电脑。但作为中小学生，只有通过在学校中接受包括教师面对面指导、纠错的上机课教学以后，课后才能有的放矢地去加强训练。而学生能把计算机驯服，让它乖乖听从自己的指挥，他们才会有更大的信心和勇气去学习计算机学科中更深更广的知识，才会对计算机学习真正产生浓厚的兴趣。心理学的研究表明，学习动机中最活跃的成分是兴趣。没有兴趣，学生是不会生动活泼、主动地去学习的。学习兴趣总是作为一个核心动机突出于其它动机之上，支配着人的注意和认知操作，对学生具有最现实、最强有力的影响。兴趣的基础在于需要。当学生通过上机课学习，得心应手地学会计算机操作时，便是这种需要的满足。这一满足又会产生对需要的新的追求，即产生新的兴趣，从而形成在计算机学习上步步上升的良性循环。从这一心理学的角度出发，可以说：对于中小学，抓好了上机课，也就抓好了计算机的教

学，而有效控制上机课的教学过程，则是上机课最为重要的教学策略，必须认真对待，来不得半点马虎。这也是笔者多年在从事计算机教学中深刻体会到的一点心得。

二、计算机上机课进行教学过程控制的途径

那么，教师如何对上机课的教学过程实施有效控制呢?认为可以从以下几方面入手：

1、每次上机课要有明确的操作任务

学生们一般都喜欢上机课，而且是带着兴趣去上机的，如果教师不布置任何任务，让学生自由地操作计算机，久而久之学生就会失去兴趣，甚至觉得无事可干，这对于巩固知识是无益的，上课的秩序也会变得不容乐观。教学是学生在教师的指引下自觉主动地学习的过程，上机课同样需要充分发挥教师的主导作用。因此，教师事先应该设计好一份具有传授知识针对性的上机报告。上机报告实际上是以书面形式给学生的操作任务指令。有些项目需要学生边完成任务边进行填写。上机报告中应有明确的上机步骤，使学生有所依据地操作计算机。上机报告中设计的操作题要既可重复又有一定难度。重复是遵循巩固性教学原则的必要举措，它有助于熟练操作。但又要避免简单的重复，要遵照循序渐进的教学原则，使其又有一个逐步加深的过程。使学生在重复练习中熟练掌握双行合一的功能。其实计算机的很多应用软件都要在不断重复中才会熟能生巧，做到举一反

三、融会贯通。

2、每次上机课，要给学生定一个目标，打一个分数

课前老师发了上机报告，学生在机房就有事可做了，但这还不能说已把上机这一教学任务完成了。教学的过程是一种信息反馈的系统的运动过程。遵照及时反馈的教学原则，教师要设法从各方面与学生直接接触，包括观察学生上机，从批改学生作业中了解学生掌握有关知识与技术的情况。如果没有及时的了解和检查，教学的质量往往不高。因此，每次学生完成上机报告后，教师一定要做到在现场当场批改学生作业。批改中，教师在计算机屏幕前，面对面地指出学生操作的不足，给予纠正，并及时公布分数。这一环节一般要花费教师相当多的精力和时间，在时间安排上要有所计划，并且在学生等待批改的时候，教师要安排好这部分正在等待的学生可先做什么事情，以免引起课堂秩序的紊乱。当然，也可以指定几个掌握得较好的学生帮助老师批改，但必须事先统一评分要求。教师在每次上机课遵照公开、公平、公正的原则都对学生的作业进行批改和评分，这就促使学生产生竞争的能动性，激励学生逐步提高，从而形成学习的良性循环。

职业学校的计算机教学对打字技能要求较高。对此类偏重于技能训练的上机课，笔者认为教师应给学生制订学期总目标，再按总目标列出各阶段性目标。每次上机课必须组织考查，课前必须公布本次课的考查要求，以此检验学生阶段性完成情况。考试结果也要做到及时公布，成绩中应有打字的有效速度、输入数、错误数、正确率，根据速度从高到低排出名次，对速度快的学生及时给予表扬，差的学生给予鼓励并按“一把钥匙一把锁”的原则指出其改进、提高的方法。

中等职业类学校若有条件，可以组织全校性的打字比赛。笔者所在职校，为了提高计算机类专业学生的技能水平，学校每学期组织技能鉴定和星级考试，将鉴定成绩作为一门独立的课程学分记载在学生的档案上，同时发给学生相关的星级证书。还把学生的成绩适时公布到校园网，不仅让前十名学生的情况永久性地保留在校园网上，而且又在每学期把各项前十名情况以宣传画的形式张贴在校园内。此种激励方式在我校实施将近三年，学生的成绩一年比一年好，最高纪录每次都有打破。在平时的测验中，学生除了关心自己的分数外，还关心自己达到的星级有没有进步，在班中处于何种档次。事实说明，技能鉴定和星级考试有效地增强了学生的自信心和荣誉感，调动了学生练好专业技能的主动性和积极性，充分发挥了学生在学习中的主体作用，为把学生培养成为经济社会发展需要的高素质劳动者和有用人才打下了扎实的基础。

3、管理上机纪律，做好随堂指导

学生进入机房，任课教师应保持好上课秩序，要充分估计该堂上机课可能出现的问题，引起学生注意。对细节问题也不要放过，最好事先对学生做好相关的交待，例如，学生在机房的座位最好固定，这对于机器维护非常必要，也能防止某些调皮学生恣意破坏。若机房计算机不够，需要几个人合用一台，任课教师一定要有一个解决方法，事后要做好监督，这样就可以避免不必要的纠纷发生。

学生在进行上机报告作业时，任课教师绝不能一直坐在教师机前做自己的事情，必须经常巡视，观察学生的完成情况，及时发现问题，并当面向学生提出，不但要点明其错误或不当之处，而且要扼要地指出其产生的原因，还要向学生提供今后加强针对性练习的方向和办法。对于那些普遍性问题，则应作全班性讲解。有条件的话也可以利用电子教学类软件来随时了解学生的操作情况，但必要的巡视是绝对不能省略的。

在临近下课时，要做好本次上机课的总结，把本次课的必须掌握的要点再重复一遍，还要对于学生的典型操作错误分析原因，并演示正确方法。

4、合理分配时间，掌握教学进度

一般情况下，一次上机课安排两课时90分钟。前5分钟，说明本次上机课的要求，学生完成上机报告安排50分钟，20分钟批改作业，10分钟安排总结，还有5分钟作为机动。若是打字课，则安排50分钟学生自己练习，20分钟安排考查，5分钟公布学生成绩，15分钟讲本次考查中难字的打法及下一次课考查的要求。中间的下课时间应让学生休息一下，给眼睛一个休息的间隙。

三、结束语

计算机上机课的重要性与控制上机课教学过程的必要性对计算机教师提出了更高的要求。作为计算机教师只要重视和关注每一位学生，结合教学实际灵活运用教学原则，特别是理论联系实际原则、启发性原则、直观性原则、循序渐进原则、巩固性原则和及时反馈原则，便能在以上途径中采纳适合自身实际教学的最佳方法或创新更为优化的模式，以真正激发学生的兴趣，达到切实提高计算机教学质量和教学效率之目的。

第二篇：计算机上机课教学亮点经验总结

《计算机应用基础》上机课教学经验总结

计算机课程是我校各专业的一门基础课课，它不但有较强的理论性，而且也有很强的实践性，而上机课又是学生加强理论理解的最好途径，通过上机实验学生可以演示和操作软件的各种功能，了解它的特点和作用，逐步熟悉掌握软件的功能及使用，同时也对促进学生掌握理论知识，提高实践动手能力有着举足轻重的作用。下面就结合我平时的教学谈几点意见：

一、课前准备要充分

计算机上机课的准备工作是非常繁琐同样也是非常重要的，教师上课前一定要对该节课的全过程进行周密的思考，包括上机的题目、时间、地点、课时分配、上机次数，硬件 和软件环境等内容，比如，学生上机所需的计算机及有关外部设备都要能正常运行，功能完好，适合学生上机实验，所用的设备要合理分配，集中管理，一些辅助教学设备(如投影仪、黑板等)都要能满足上机实验的要求。选择好所需的操作系统软件、语言环境、应用系统和辅助教学软件，预先把这些软件装人计算机内并调试好随时可供调用等，这些都要和实验管理员提前联系，安排好上机实验的有关亊项，要避免出现漏洞和琉忽。

二、课堂组织要得力

教师是教学的组织者、策划者和整个教学过程的导演，上机操作如果组织不好，就会出现许多问题，如上机目的和要求不明确，学生在上机课上只是充满新鲜好玩的心理，或随心所欲乱玩一气，或看到别人干什么，自己也干什么，结果一节课下来，表面上课堂气氛很轻松、活跃，其实效果很差，学生上完机后觉得自己一节课好像什么也没学会。针对以上情况，作为老师就应该认真组织整个操作过程。

首先，把本节课的主要操作步骤及注意事项强调一遍，并在上机操作以前及上机完毕后让学生完成上机作业，老师要重申本次上机课的目的和要求，指明实验要点和要注意的亊项，对实验中的难点之处和可能出现的问题要给予必要的提示和说明。在实验过程中学生初次使用的应用软件或生疏命令，教师要首先进行演示和讲解。

其次，对学的基本技能的训练要有高标准严要求，学生在操作计算机时一定要按规范和标准进行，如，开机、关机等要按正确的步骤，键盘打字的姿势要正确，特别是学生在做作业时，要训练学生养成良好的习惯。要注意培训学生在计算机使用中的应用能力和应变能力，为学生今后独立操作和使用计箅机打好基础。为了能够充分调动学生学习的积极性。我们可以边讲边练，使每个学生都有亊可做，让被动的理论接受变成主动的动手操作。

最后，引导学生做好总结提升，通过上机实验，督促学生总结上机实验的收获，巩固所学的知识。

三、教学方法要得当

教无定法，贵在得法。在平时的上机课中，教师应采用灵活多样的教学方法，充分调动学生学习的积极性，比如，上机操作时，学生会经常遇到这样或那样的问题，如果教师一一解答操作，不仅教师感到分身乏术而且还限制了学生学习的主动性和积极性，得不到良好的教学效果。

分组教学则可以避免上述弊端。教师将每一横排的人分为一小组，每个小组选水平最高者为小组长。当本组同学遇到问题时，由小组长充当小老师进行辅导。当有些问题较难时，教师要鼓励全组成员一起研究解决。如果处理得当，教师要及时表扬，使学 生充分体会到成功带来的喜悦。这样就能够极大地激发小组 成员的动手能力。既减轻了教师的相对工作，又极大地锻炼了学生们动手解决实际问埋的能力。这远比老师在上机时三番五次的说作业的要求要高效。学生完成作 业后，应该存到教师机的指定的文件夹内。同时，学习PowerPoint时，可以把具体操作步骤形成的文字资料和屏幕广播录像形成的多媒体文件放在班级群里。这两种资料就构成了“帮助系统”。学生如果不僅，可以直接査阅该帮助系统。另外，当遇到比较难的操作课时教师可以让学生讨论和交流，营造合作学习的课堂氛围。几乎所有的学生都有这样的体验，如果自己去学习一款复杂的游戏，自己将花费福多的时间，但是有高手在旁边指点，则事半功倍，很快就能学会。所以上机操作时，大家可以集思广益开展讨论。实践证明，通过讨论，学生对所学知识的理解将更加深刻，掌握将更牢固。

四、效果评价要及时

这是极其关键而必要的一步，学生完成任务之后，非常希望老师能对自己的成果进行肯定，产生成就感。例如，要求学生用PowerPoint给朋友制作一张多媒体贺卡时，在作品中要求包含移动渐变、形状渐变、淡入淡出，插人声音等知识要点，学生完成后直接保存在教师机上。随着一个“任务”完成，学生就会获得满足感、成就感，从而激发了他们的求知欲望，逐步形成一个感知心智活动的良性循环教师应尽可能当堂评分，并登记在册。对“任务”完成得好的同学，要当场进行表扬，并通过屏幕广播的形式给所有的学生欣赏，再让做得好 的学生给其它同学讲解他(她)是如何完成这优秀作品的，这祥将大大提高学生学习的兴趣。

总之，要上好一节上机课并不容易，它需要我们老师精心备课，只有准备充分、组织得力、方法得当、评价及时，才能有效地调动学生的积极性，使课堂生动、有效，使学生学有所成、学有所用。

三分校

王欢

2016-11-4

第三篇：运动控制上机实验报告

基于SIMULINK的双闭环直流调速系统仿真

张磊

（江南大学 物联网工程学院, 江苏 无锡 214122)摘要：本文首先介绍了双闭环直流调速系统的组成及其特性，接着建立了其动态数学模型，分析了其动态性能，并通过SIMULINK仿真技术研究了其抗负载扰动能力。实验结果表明，双闭环直流调速系统具有良好的抗负载扰动特性。

关键词:抗负载扰动 动态数学模型 动态性能 SIMULINK The double-loop DC speed control system simulation

Based on SIMULINK

Zhang Lei(School of Internet of Things Engineering, Jiangnan University, Wuxi Jiangsu 214122, China)Abstract:This paper introduces the double-loop DC speed system components and their characteristics, and then built its dynamic mathematical model to analyze its dynamic performance, and through SIMULINK simulation technology for its anti-load disturbances.Experimental results show that the double-loop DC speed control system has a good anti-load disturbance characteristics.Keywords: Anti-load disturbance Dynamic mathematical model Dynamic Performance SIMULINK

1引言

转速、电流双闭环直流调速系统调速范围宽、平稳性好、稳速精度高以及具有良好的动态性能，广泛应用于冶金、建材、印刷、电缆、机床和矿山等行业，在拖动领域中发挥着极其重要的作用，具有动态响应快、抗干扰能力强等优点。采用PI调节的单个转速闭环直流调速系统可以在保证系统稳定的前提下实现转速无静差，但是，如果对系统的动态性能要求较高，例如要求快速起制动，突加负载动态速降小等等，单闭环系统就难以满足需要，可以采用转速和电流两个调节器构成转速、电流双闭环调速系统，以获得近似理想的过渡过程。

图1 转速、电流双闭环直流调速系统 为了获得良好的静、动态性能，转速和电流两个调节器一般采用PI调节器，这样构成的双闭环直流调速系统的电路原理图，如图2所示。图中标出了两个调节器输入输出电压的实际极性，它们是按照电力电子变换器的控制电压Uc为正电压的情况标出的，并考虑到运算放大器的倒相作用。图中还表示了两个调节器的输出都是带限幅作用的，转速调节器ASR的输出限幅电压Um*决定了电流给定电压的最大值，电流调节器ACR的输出限幅电压Ucm限制了电力电子变换器的最大输出电压Udm。

2双闭环双闭环直流调速系统的组成及其特性

2.1转速、电流双闭环直流调速系统的组成

为了实现转速和电流两种负反馈分别起作用，在系统中设置了两个调节器，分别调节转速和电流，即分别引入转速负反馈和电流负反馈。二者之间实行嵌套连接，如图1所示。即把转速调节器的输出当作电流调节器的输入，再用电流调节器的输出去控制电力电子变换器UPE。从闭环结构上看，电流环在里面，称作内环；转速环在外边，称作外环。这就形成了转速、电流双闭环调速系统。

图2 双闭环直流调速系统电路

原理图 2.2稳态结构图和静特性

双闭环直流系统的稳态结构图如图3所示，分析双闭环调速系统静特性的关键是掌握PI调节器的稳稳态特征，一般存在两种状况：饱和——输出达到限幅值；不饱和——输出未达到限幅值。当调节器饱和时，输出为恒值，输入量的变化不再影响输出，除非有反向的输入信号使调节器推出饱和，此时饱和的调节器暂时隔断了输入和输出间的联系，相当与使该调节环开环。当调节器不饱和时，PI作用使输入偏差电压U在稳太时总是为零。

实际上，在正常运行时，电流调节器是不会达到饱和状态的。因此，对于静特性来说，只有转速调节饱和与不饱和的两种情况。

图3 双闭环直流调速系统的

稳态结构框图

3双闭环直流调速系统的数学模型

3.1双闭环调速系统的动态数学模型

双闭环控制系统数学模型的主要形式仍然是以传递函数或零极点模型为基础的系统动态结构图。双闭环直流调速系统的动态结构框图如图4所示，图中WASR(s)和WACR(s)分别表示转速调节器和电流调节器的传递函数。为了引出电流反馈，在电动机的动态结构框图中必须把电枢电流Id显露出来。

图4 双闭环直流调速系统的

动态结构框图

3.2起动过程分析

双闭环调速系统突加给定电压Un*由静止状态起动时，转速和电流的动态过程如图5所示。在起动过程中转速调节器ASR经历了不饱和、饱和、退饱和三种情况，整个动态过程分成图中标明的Ⅰ、Ⅱ、Ⅲ三个阶段。

图5 双闭环直流调速起动过程的

转速和电流波形

第I阶段（0—t1）电流上升的阶段。突加给定

电压 Un*后，Id上升，当Id小于负载电流IdL时，电

机还不能转动。当Id≥IdL后，电机开始起动，由于机电惯性作用，转速不会很快增长，转速调节器ASR输入偏差电压仍较大，ASR很快进入饱和状态，而ACR一般不饱和。直到Id≈Idm，Ui≈Uim*。在这一阶段中，ASR很快进入并保持饱和状态，ACR一直不饱和。

第II阶段（t1--t2）恒流升速阶段。ASR始终

是饱和的，转速环相当于开环，系统为在恒值电流Uim*给定下的电流调节系统，基本上保持电流Id恒定，因而系统的加速度恒定，转速呈线性增长，直到n=n*。电机的反电动势E也按线性增长，对电流调节系统来说，E是一个线性渐增的扰动量，为了克服它的扰动，Ud0和Uc也必须基本上按线性增长，才能保持Id恒定。当ACR采用PI调节器时，要使其输出量按线性增长，其输入偏差电压必须维持一定的恒值，也就是说，Id应略低于Idm。在这一阶段，ASR处于饱和状态，电流无静差系统，转速线性上升，Id略小于Idm。

第Ⅲ阶段（t2 以后）转速调节阶段。ASR

和ACR都不饱和，ASR起主导作用，ACR力图使

Id尽快地跟随Ui*，或者说，电流内环是一个电流随动子系统。当n=n*时，ASR输入偏差为零，但其输出却由于积分作用还维持在限幅值Uim*，所以电机仍在加速，使转速超调。ASR输入偏差电压变负，开始退出饱和，Ui*和Id很快下降。但是，只要Id仍大于负载电流IdL，转速就继续上升。直到Id=IdL时，转矩Te=TL，则dn/dt=0，转速n才到达峰值（t=t3时）。此后，电动机在负载的阻力下减速，在一小段时间内（t3-t4），Id

综上所述，双闭环直流调速系统的起动过程有以下三个特点：（1）饱和非线性控制；（2）转速超调；（3）准时间最优控制。

4双闭环直流调速系统的抗负载扰动仿真

双闭环调速系统一般来说具有比较满意的动态性能。对于调速系统，最重要的动态性能是抗干扰性。主要是抗负载扰动和抗电网电压扰动的性能。本文研究了双闭环调速系统的抗负载扰动性能。

双闭环调速系统的抗负载扰动结构图如图5所示，负载扰动作用在电流环之后，因此只能靠转速调节器ASR来产生抗负载扰动的作用。

图5 双闭环调速抗负载扰动作用

本文研究了双闭环调速系统的抗负载扰动性能，基于MATLAB/SIMULINK接线图如图6所示，无扰动信号、阶跃扰动信号、正弦扰动信号作用下输出转速仿真结果如图7的（a）（b）（c）所示。

图6双闭环调速系统的抗负载扰动接线图

(a)无扰动信号

（b）阶跃扰动信号

（c）正弦扰动信号

实验结果表明，IdL改变时，负载扰动能较快的反映到被调量n上，从而得到调节，该系统具有很好的抗负载扰动性能。小结

由双闭环调速系统抗负载扰动作用的动态结构图可以看出，负载扰动作用在电流环之外，转速环之内，所以双闭环调速系统在抗扰动方面和单闭环调速系统只能依靠转速环来进行抗扰调节。通过以上的仿真实验，转速环有效地抑制并消除了负载扰动的影响。

参考文献：

[1]王兆安，等.电力电子技术[M].北京：机械工业出版社，2000.[2]张广溢，等.电机学[M].重庆：重庆大学出版社，2002.[3]王军.自动控制原理[M].重庆：重庆大学出版社，2008.[4]导向科技.Protel DXP电子电路设计培训教程[M].北京：人民邮电大学出版社，2003.[5]周渊深.交直流调速系统与Matlab仿真[M].北京：中国电力出版社，2004.

第四篇：计算机上机实习报告

计算机上机实习报告

姓名：张陆浩 班级：高材11001 学号：201001978 老师：张老师 熊老师 时间：2011年12月24日

一．实验目的: 1.熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2.主要掌握VB语言中的标准模块的建立﹑数据文件的读出与写入、数组与选择结构的运用，图形操作等内容

3.了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.二．实习要求：

（一）。用记事本新建一个文本文件，将本班M名学生N门考试课的成绩输入到这个文件中，建议按如下形式存放（注：20=M<=50,5<=N<=8，下文以M=4，N=3为例）: 学号

姓名

英语

数学

物理

化学

VB 1

张陆浩

2

林丹

3

李宗伟

4

李永波

（二）。将N门考试课以及其分数输入到另一个数据文件（文件类型同上题）中，建议以下列形式存放： 编号 课程名称 课程学分 1 英语 5.0 2 数学 4.5 3 物理 5.0 4 化学 4.5 5 VB 4.5

（三）。请编写一个简单的学生成绩管理程序，以完成以下功能： 1.根据以上两文件内容分别计算每个学生N门课程的加权平均分（保留两位小数，四舍五入），按平均分排列名次，平均分相同则名

次并列。用VB创建一个数据文件，存放班级的成绩表。

2.分别统计全班每门课的平均分,并计算各分数段(90分以上;80～89;70～79;60～69;60分以下)的学生数。.3.打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。

4.显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)。

5.屏幕显示优等生名单及打印每门课程成绩分布图。优等生条件(只要满足三个中任一个就可以): a)平均分>=90分

b)名次在本班位于前四名

c)平均分>=85分,并且至少有一门课的成绩>=95分

三、实习步骤

1、用记事本新建一个学生成绩文本文件(其中包括学生学号，成绩，姓名，课程及成绩)。

2、用记事本新建一个课程学分文本文件。

3、编辑菜单编辑器：编辑四个可拉式菜单，包括学生成绩、成绩处理、成绩编辑、画图。

4、编辑代码：分别编辑打印学生成绩和学分代码，编辑加权平均分、各科平均分、分数段、成绩条、排名、优等生、差等生的代码，还有画各科目成绩人数图的代码。

5、调试程序代码并保存。

6、打印代码。

三.相关数据列表：

（一）。源文件

（1）成绩

学号 姓名 英语 数学 物理 化学 VB 1 张陆浩 97 98 97 97 98 2 林丹 92 87 79 91 84 3 李宗伟 75 96 83 75 73 4 李永波 89 93 83 86 82 5 王仪涵 92 79 89 86 80 6 汪鑫 93 65 86 68 84 7 付海峰 94 91 89 92 80 8 湛龙 86 83 88 80 92 9 盖德 68 79 54 72 71 10 陶菲克 69 76 59 81 75 11 佐佐木 85 83 68 57 71 12 李娜 94 63 62 65 53 13 陈金 86 79 89 94 83 14 兰洋 91 93 92 89 75 15 小志 95 89 93 86 87 16 棃一名 92 86 83 67 59 17 吴凯飞 67 75 57 82 62 18 江方 93 80 73 76 84 19 胡艳 74 68 58 63 71 20 张继原 68 95 68 84 93（2）.学分

编号 课程名称 课程学分 1 英语 5.0 2 数学 4.5 3 物理 5.0 4 化学 4.5 5 VB 4.5 四．运行效果：

（一）.学生管理

（1）打开课程成绩及学分

（2）打开计算的加权平均分﹑排名及各科平均分

(三）.编辑

（1）打开计算的各科人数分布

（2）打开按学号查找每个学生的成绩 a）输入要查找学生的学号

b）得到该生的成绩条

（3）打开查找到的优等生信息

（4）打开不及格学生的分布

（四）.成绩分布图

五．实习小结

通过两个星期的上机实习，我体会颇深，不仅表现在VB语言程序设计中，而且表现在与人交流和独立自主完成任务的决心中。

本次上机在VB程序设计中我学会了很多以前不会或根本一点都不懂的东西。比如，在程序设计过程中，刚开始我弄不清楚怎样把编辑的文件读到VB中，但是通过询问老师和同学讨论，终于弄清了思路，即先将文件打开，再将数据分别放入若干个数组中，最后再将它读出来。除此之外，我还明白了变量的作用域对编程的重要性和子过程，函数过程数据处理的帮助。而对以前学的，像选择结构，循环结构等也进行了巩固和运用。在数据处理和打印的时候进行了大量运用。为了使程序更人性化化，我还运用了msgbox，inputbox等方法，使我对所学的知识进行了综合的运用。

我相信通过这次实习，我对VB和计算机语言都有了更深刻的认识。虽然在实习的过程中，我发现了自己在编写程序中的不足，像思维不够严密等，但我相信，只要认真、努力就一定会有收获

六.程序代码

（一）.创建标准模块

Type student “定义变量：student” number As String * 9 name As String * 3 score(1 To 5)As Single average As Single rank As Integer End Type Type class “定义变量：class” num As String * 9 nam As String * 3 scor As Single End Type Public stu()As student, cla()As class, sumscor As Integer, subj()As class Public q(5)As Integer, t(5)As Integer, x(5)As Integer, y(5)As Integer, h(5)As Integer “定义删除空格函数” Public Function deletespace(str As String)As String Dim i% i = InStr(str, “ ”)Do While i <> o str = Replace(str, “ ”, “ ”)i = InStr(str, “ ”)Loop deletespace = str End Function Public Sub addave(stu()As student, cou()As course)“定义计算加 For i = 1 To UBound(stu)权平均分 Dim jqpj!, x!, y!的子过

程

x = 0 y = 0 For j = 1 To 5 x = x + cou(j).score y = y + stu(i).score(j)* cou(j).score Next j stu(i).jqpj = y / x Next i End Sub Public Sub mc(stu()As student)“定义计算排名的子过程” For i = 1 To UBound(stu)stu(i).rank = 0 For j = 1 To UBound(stu)If stu(i).jqpj <= stu(j).jqpj Then stu(i).rank = stu(i).rank + 1 End If Next j Next i End Sub(二).读取考试成绩和课程学分（1）.打开文件

Private Sub studentscore_Click()CommonDialog1.Filter = “文本文件|*.txt” CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Line Input #1, str1 Print str1 Do While Not EOF(1)Line Input #1, str str = deletespace(Trim(str))a = Split(str, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).number = a(0)stu(n).name = a(1)For i = 1 To 5 stu(n).score(i)= a(i + 1)Next i Loop For i = 1 To n Print stu(i).number;Spc(1);stu(i).name;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(3);Next j Print Next i Close #1 End Sub Private Sub classrank_Click()CommonDialog2.Filter = “文本文件|*.txt” CommonDialog2.ShowOpen Open CommonDialog2.FileName For Input As #2 Line Input #2, str2 Print str2 sumscor = 0 Do While Not EOF(2)Line Input #2, str3 str3 = deletespace(Trim(str3))b = Split(str3, “ ”)m = m + 1 ReDim Preserve cla(m)cla(m).num = b(0)cla(m).nam = b(1)cla(m).scor = b(2)sumscor = sumscor + Val(cla(m).scor)Loop For k = 1 To m Print cla(k).num;Spc(2);cla(k).nam;Spc(3);cla(k).scor;Spc(3)Next k End Sub(2).分数处理

Private Sub ran_Click()“加权平均分及名次” Form1.Cls For n = 1 To 20 sum = 0 For i = 1 To 5 sum = sum + stu(n).score(i)* cla(i).scor Next i stu(n).average = Format(sum / sumscor, “##.##”)Next n For n = 1 To 20 stu(n).rank = 1 For j = 1 To 20 If stu(n).average < stu(j).average Then stu(n).rank = stu(n).rank + 1 End If Next j Next n Print “学号”;Spc(6);“姓名”;Spc(4);“英 语”;Spc(2);“数 学”;Spc(2);“ 物 理”;Spc(3);“化 学”;Spc(2);“V B”;Spc(2);“加权平均分”;Spc(2);“名次” For n = 1 To 20 Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i Print stu(n).average;Spc(3);stu(n).rank Next n End Sub Private Sub eaverage_Click()“ 课程平均分”

Print Spc(7);“英 语”;Spc(1);“数 学”;Spc(1);“ 物 理”;Spc(1);“化 学”;Spc(1);“V B” Print “平均分”;For i = 1 To 5 sum = 0 For n = 1 To 20 sum = sum + stu(n).score(i)Next n j = Format(sum / 20, “00.00”)Print Spc(2);j;Next i End Sub（3）.编辑 Private Sub scor_Click()“计算打印个分数段人数” Form1.Cls Print “范围”;“英 语”;Spc(3);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(3);“V B” For i = 1 To 5 For n = 1 To 20 Select Case stu(n).score(i)Case 90 To 100 q(i)= q(i)+ 1 Case 80 To 89 x(i)= x(i)+ 1 Case 70 To 79 t(i)= t(i)+ 1 Case 60 To 69 h(i)= h(i)+ 1 Case Else y(i)= y(i)+ 1 End Select Next n Next i Print “>90”;For i = 1 To 5 Print Spc(4);q(i);Next i Print Print “80_89”;For i = 1 To 5 Print Spc(4);x(i);Next i Print Print “70_79”;For i = 1 To 5 Print Spc(4);t(i);Next i Print Print “60_69”;For i = 1 To 5 Print Spc(4);h(i);Next i Print Print “<60”;For i = 1 To 5 Print Spc(4);y(i);Next i End Sub Private Sub stuscolist_Click()“打印成绩条” Form1.Cls n = InputBox(“请输入学号”)Print “学号”;Spc(5);“姓名”;Spc(3);“英 语”;Spc(3);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(3);“V B” Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i End Sub Private Sub excellent_Click()“打印优等生” Form1.Cls Dim t As Integer Print “姓名”;Spc(4);“学号”;Spc(8);“英 语”;Spc(4);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(4);“V B”;Spc(6);“平均分”;Spc(4);“名次” For i = 1 To 20 t = 0 For j = 1 To 5 If stu(i).score(j)>= 95 Then t = t + 1 End If Next j If stu(i).average >= 85 And t >= 2 Or stu(i).average >= 90 Or stu(i).rank <= 3 Then Print stu(i).name;Spc(2);stu(i).number;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(5);Next j Print stu(i).average;Spc(5);stu(i).rank End If Next i End Sub Private Sub ugstulist_Click()“打印不及格学生” Form1.Cls For n = 1 To 20 For i = 1 To 5 If stu(n).score(i)< 60 Then Print stu(n).number;stu(n).name;stu(n).score(i);cla(i).nam;cla(i).scor End If Next i Next n End Sub（5）.成绩分布图

Private Sub Command1_Click()“新建窗体form2” For i = 0 To 4 Picture1(i).Scale(0, 14)-(100, 0)Picture1(i).Line(10, 2)-(92, 2), vbRed Picture1(i).Print “分数段” Picture1(i).Line(10, 2)-(10, 14), vbRed Picture1(i).Print “人数” For j = 2 To 10 Step 2 Picture1(i).CurrentY = j + 2 Picture1(i).CurrentX = 4 Picture1(i).Print j Next j Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Line(10, 2)-(26, 2 + q(1 + i)), vbGreen, BF Picture1(i).CurrentX = 26 Picture1(i).CurrentY = 2 Picture1(i).Line(26, 2)-(42, 2 + x(i + 1)), vbRed, BF Picture1(i).CurrentX = 42 Picture1(i).CurrentY = 2 Picture1(i).Line(42, 2)-(58, 2 + t(i + 1)), vbGreen, BF Picture1(i).CurrentX = 58 Picture1(i).CurrentY = 2 Picture1(i).Line(58, 2)-(74, 2 + h(i + 1)), vbRed, BF Picture1(i).CurrentX = 74 Picture1(i).CurrentY = 2 Picture1(i).Line(74, 2)-(90, 2 + y(i + 1)), vbGreen, BF Picture1(i).Line(10, 2)-(26, 2), vbGreen Picture1(i).Line(26, 2)-(42, 2), vbRed Picture1(i).Line(42, 2)-(58, 2), vbGreen Picture1(i).Line(58, 2)-(74, 2), vbRed Picture1(i).Line(74, 2)-(90, 2), vbGreen Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Print “ >=90 80-89 70-79 60-69 <=60” Next i End Sub

第五篇：计算机工程制图上机

计算机工程制图上机

报 告

姓 名：

班 级： 学 号：

2012年6月 计算机工程制图上机

报告

1.图幅与比例的选择

通过计算选用A4打印纸。比例的选择是1:1 2.图层的建立

建立三个图层，分别是轮廓线图层、中心线图层、标注线图层；然后分别设置他们的颜色、线型、和线宽，最后确定并应用。

3.绘图的过程

首先打开CAD2008工作界面，然后依上所述建立图层；在将中心线图层置为当前，选择正交命令，画出所需的条中心线。接下来将轮廓线图层置为当前，选择圆命令，画出图形所需不同半径的圆；之后选择圆中的“相切相切半径”命令，将所需连接的圆连接起来。调用修剪命令，将多余的线和多余的圆修剪掉，整个图形就画好了。

4.标注

尺寸的标注，注意标注的位置是否合理，标注连续与基准的使用，标注中创建块命令，都可以让标注更快捷，标注形位公差和上下偏差的方法，技术要求无。

第一步将标注线图层置为当前，而后在标注菜单栏中新建一个对象；将其按图形标注时所需的要求进行设置，再将其置为当前，在标注中调用相应的标注命令来完成对图形的标注。

5.心得体会

画图看起来很容易，但是画图的过程中存在很多小的技巧和问题，如何画的又快又好，怎样画是最省力的，有许多方法是值得我们去好好学习下的，遇到有些画不出来的东西，很多都是我们机械制图的功底不行，基本的知识没有掌握，特别我想提下尺寸标注的问题，看似是最简单的问题，可是标注起来问题出的哪里都是，关于箭头的反向，字体的大小，位置，标注的引线，从中说明很多东西不能只凭眼睛看，实践是检验真理的唯一标准

通过绘图过程的操做，熟悉了绘图工具和命令的调用；更使我懂得了绘图时一定要细心，看清要求在动手。保持绘图界面的清晰，如果弄得乱七八糟，在修建的时候很容依做错，再改就不方便了。最重要的是要善于对所发生的事物进行总结，积累经验。