VB编程实训总结

VB编程实训总结（共7篇）

VB编程实训总结篇1

1.求自然数1～100之间奇数之和。

2.求自然数1～100之间偶数之和。

3.编程计算从200到1000之间的所有4的倍数之和。

4.编程计算从300到1000之间的所有7的倍数之和。

5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2

6.编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。

7.在窗体的单击事件过程中，编写程序计算1！+2！+3！+ „ +20!

8.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+„+10!,将结果显示在文本框Text1中。(或参照 7 用教材:P86 [例4-21] 方法)

9.编写程序计算：s=1+1/2!+1/3!+„+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。(或参照7 用教材:P87 [例4-22] 方法)

10.编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。

说明: 程序中红色标示的部分控制每行输出5个数

11.求s=a+aa+aaa+„+aaa„aaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。

12.在窗体上输出下三角的九九乘法表。

13.编写程序，将26个字母逆序输出。

14.编写程序，将字符串“山高人为峰”按逆序“峰为人高山”输出。

15.设纸的厚度为0.5毫米，将纸对折，再对折„，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。

16.编写程序，求s的值，s=1×2×3+2×3×4+„+n×(n+1)×(n+2)的值。n由程序输入。

17.编写一个程序，用户连续输入N个值，直到输入非数值数据为止。最后输出其中最大的一个数。

VB编程实训总结篇2

数控3081班于2011年2月21日～3月18日在机电系数控实训室进行了为期四周的实训。

实习的目的主要是：通过实训，让学生把所学的理论知识更好的应用到实践中，通过实训，进一步提高学生分析问题，解决实际问题的能力，培养学生自主学习的能力，养成团结协作、良好的职业道德和职业素养，为以后的工作打下基础。

实训的主要内容是以数控车削、铣削编程和加工为主，辅以仿真加工，让学生更熟练的掌握数控车、铣的编程与数控机床的操作。

在四周的实习时间里，学生通过实训较全面、综合地掌握数控机床的结构和操作，深入，详细地掌握加工工艺等相关知识，能够熟练运用数控车、铣基本指令、循环指令进行编程，掌握常用工、量具的使用方法，能正确测量工件的尺寸，能正确装夹工件，独立操作数控机床加工零件。

实习的第一天，实习指导老师给学生做了实习动员，让学生知道了实习的重要性，明确实习的目的、知道实习中应完成的实习课题、实习中应注意的事项后，数控班的学生就积极地投入到实习中。在四周的实习时间里，数控3091班的学生表现得十分认真积极，每天能认真听实习指导老师进行讲解，看实习指导教师进行示范操作，然后根据老师布置的实习任务进行工艺分析、编程、程序正确后再操作机床加工出零件。在四周的实习时间里，数控3091班的学生大部分都按时按质按量完成了实习的任务。实习中的不足主要是：有个别的学生在实习中精力不集中，程序输入将字母O错输成数字0，导致程序不能运行，不善于通过辨别声音判断切削力是否过大，导致粗加工打刀等现象。

通过这四周的编程与加工训练，全面提高了学生的车、铣编程能力，使学生能够熟练操作机床根据程序加工出工件，为他们以后走上社会工作打下了良好的基础。在以后的实习中，我们实习指导老师争取把实训工作做得更好，让每一个学生都能以积极的态度认真对待实习，让每一个学生在实习中能学到更好的、更先进的技术。

实习指导老师：徐运芳

2011年3月 25 日数控3092班《数控编程与加工实训》实习总结

数控3092班于2011年3 月 21日～4月 15日在机电系数控实训室进行了为期四周的实训。

实训的主要内容是以数控车削、铣削编程和加工为主，辅以仿真加工，让学生更熟练的掌握数控车、铣的编程与数控机床的操作。

实习的第一天，实习指导老师给学生做了实习动员，让学生知道了实习的重要性，明确实习的目的、知道实习中应完成的实习课题、实习中应注意的事项后，数控班的学生就积极地投入到实习中。在四周的实习时间里，数控3092班的学生表现得十分认真积极，每天能认真听实习指导老师进行讲解，看实习指导教师进行示范操作，然后根据老师布置的实习任务进行工艺分析、编程、程序正确后再操作机床加工出零件。在四周的实习时间里，数控3092班的学生按时按质按量完成了实习的任务。

实习指导老师：徐运芳

VB编程实训总结篇3

1、 VB编程技术的简介

1)VB编程技术的概念。

VB是Visual Basic的缩写，是由微软公司开发的一种可视化的程序设计语言。目前，VB是在世界上被人们使用最多的一种语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。VB是由传统即基础语言而衍生出来的新的语言，VB语言照比传统语言更加的方便和快捷。

2)VB编程技术的发展史。

VB编程技术是由微软公司在1991年推出的，VB编程技术的最初的设计者是阿兰·库珀。VB编程的推出在当时的社会中引起了很大的轰动，人们认为这种可视性的编程语言对于软件的开发历史来讲具有跨时代性的作用。VB编程技术开创了一个新的纪元。在接下来的四年里，VB2.0、VB3.0、VB4.0三个版本应运而生从VB 3.0开始，微软将Access的数据库驱动集成到了VB;从VB 4.0开始，VB也引入了面向对象的程序设计思想。2002年，微软公司将.NET Framework与Visual Basic结合而成为Visual Basic。在之后，基本上VB编程技术每年都会进行版本的更新，每次都会加入更加强大和多样化的技术。随着版本的更新，VB编程技术越来越方面，功能越来越强大，已然成为了现代社会工作中不可缺少的帮手。VB编程技术的应用也变得越来越广泛了。

数控编程实训报告篇4

本实训重点培养学生数控加工的工艺分析与设计、数控加工程序的编写与调试、数控设备的操作与零件加工的能力。同时培养学生工作岗位的适应能力，团队协作能力和分析与解决问题的能力，以及安全、环保、质量与效率意识，为学生从事数控加工人员的工作提供知识与技能保障。

二、实训要求

1、掌握数控加工原理、数控加工工艺分析方法；

2、掌握数控加工程序的结构、相关指令，以及手工编程和自动编程的方法；

3、了解数控车床、铣床工作原理，以及系统构成；

4、掌握数控车床、数控铣床的基本操作；

5、掌握数控加工的编程与零件加工方法；

6、能完成简单轴类零件、盘类零件的数控加工工艺分析、数控加工编程。

三、实训内容与步骤

1、数控车削编程、仿真

数控车床

第一章工艺分析 1.1加工实例内容

图（1-1）

如图（1-1）所示零件，材料为铝，无内孔棒料，小批量生产，使分析其数控车削加工工艺过程。

1.2工艺分析过程

首先，零件图的工艺分析，包括零件图的标注正确性、轮廓描述的完整性及必要的工艺措施等。在这里，我们的仿真软件，是理想化的把加工零件的尺寸调整为完全没有误差，所以零件图我们通常都不标注公差。在正常情况下，是没有这种可能的，所以在零件图的工艺分析过程，请用户注意这一点。

该零件比较简单，由外圆柱面、顺圆弧、逆圆弧和倒角构成，其中直径尺寸与轴向尺寸没有尺寸精度和表面粗糙度的要求。零件材料为铝，切削加工性能较好，没有热处理和硬度要求。

通过上述分析，采取以下几点工艺措施：

零件图上面没有公差尺寸，完全看成是理想化的状态，故变成的时候就直接按照零件图上面的尺寸变成即可。

一端需要加工加工，所以不需要掉头装夹。其次，确定装夹方案。外轮廓加工的时候，由于没有特定要求，所有需要两端任意装夹，这就需要用三抓自动定心卡盘夹紧左端。

第三，确定加工顺序及走刀路线。加工顺序的正确安排，按照由内到外、由粗到精、由近到远的原则确定，在一次加工中尽可能的加工出来较多的表面。又去该零件为单件小批量生产，走刀路线设计不必考虑最短进给路线或者最短空行程路线，外轮廓表面车削走刀路线可沿着零件轮廓顺序进行。

第四，刀具的选择。两次装夹中，其中有外轮廓、顺圆、逆圆，可以选择35度硬质合金端面车道，由于有顺圆，可以选择93°右手偏刀。

第五，切削用量的选择。切削用量的选择一般根据毛坯的材料、转速、进给速度、刀具的刚度等因素选择。

第六，数控加工工艺卡的拟定。将前面分析的各项内容综合成数控加工工艺卡片，在这里就不做详细的介绍，用户在做具体的实际加工过程中必须要有这个过程。

第二章加工准备 2.1加工程序

根据零件图编写程序如下（程序以FANUC为例）：装夹： O1234 %1234 T0101 M03S1000 G00X70Z3 G71U1R1P1Q2X0.3Z0.5F150 N1G01X28 Z0 X30Z-2 Z-13 X26Z-15 Z-20 X36Z-30 Z-38 G02X30Z-50R15 G02X40Z-65R25 G03X40Z-95R25 G02X34Z-104R15 G01Z-110 X56Z-121 N2Z-130 G70P1Q2 G00X100Z100 T0202 M03S260 G00X32 Z3 X29.2 G32Z-15F1.5 G00X32 Z3 X28.6 G32Z-15F1.5 G00X32 Z3 X28.2 G32Z-15F1.5 G00X32 Z3 X28.04 G32Z-15F1.5 G00X100Z100 M05 M30

2.2加工步骤

打开程序选择机床机床回零点安装工件和工艺装夹安装刀具

建立工件坐标系上传NC语言自动加工

第三章具体操作 3.1 华中数控系统

3.1.1打开程序选择机床

单机版用户请双击电脑桌面上的VNUC5.0图标，或者从windows的程序菜单中依次展开“legalsoft”-〉 VNUC5.0-〉单机版-〉VNUC5.0单机版。

网络版的用户，直接在客户端的桌面上双击图标进入。或者从windows的程序菜单中依次展开“legalsoft”-〉VNUC5.0-〉网络版-〉VNUC5.0网络版。

网络版用户执行上述操作后会出现如图2所示窗口，输入用户名和密码后，按登录键：

图2 或者，从“开始程序legalsoft服务器VNUCServert”，然后再打开“开始程序legalsoft网络客户端vnuc5.0网络版”单击进入。

进入后，从软件的主菜单里面“选项”中选择“选择机床和系统”如图3所示，进入选择机床对话框，如图4所示，选择华中世纪星车床（增量）。

图3

图4 3.1.2机床回零点

首先弹开急停按钮，点击，然后，就可以调节z轴、x轴的控制按钮进行回零了。

3.1.3安装工件和工艺装夹

首先在菜单栏里面选择“工艺流程”里面选择“毛坯”出现图5对话框：

和图5 选择“新毛坯”，出现图6对话框，按照对话框提示，填写工件要求的数值，如下图所示：

图6 最后，按“确定”。

图7 点击“安装此毛坯”，按“确定”即可。出现图8对话框，用户可以调整毛坯的位置。最后关闭即可。

图8 3.1.4安装刀具选择“工艺流程”，“车刀刀库”，选择刀具，35度车刀，同样方法，根据需要选择刀柄。

图9 3.1.5建立工件坐标系

首先，打开主轴，在控制面板里面选择，进入手动状态，调节和下端面，平完端面之后，我们用试切法对刀，先用一号刀在工件端面试切，如图10，先平一

图10 在主菜单里面点击“工具”选项，打开“测量”工具，测量出试切毛坯直径55.427这个直径值，如图11 图11 此时，假设把工件坐标系定在工件右端面中心，点击

此时出现的画面如下图所示。

图13 然后点击“刀偏表”下面的按钮所出现的画面如下图所示：图14 用键盘在“试切直径”输入X向测量值回车即可。

用键盘在“试切长度”输入Z向试切值（即为0）回车即可。3.1.6上传NC语言

在图15（b）窗口中选择，点击两次，选择自动加工按钮，在选择，从“磁盘程序 F1”选择用户所自动生成的叶轮代码（文件名、路径都是用户自己定义的）

图15 到存放代码文件夹中找寻代码文件（即用户口编写的程序，此代码文件路径是个人规定的）找到文件后，双击，代码自动出现在液晶显示窗口中，如图所示：

图16 3.1.7自动加工

检查好一切准备就绪后，点击

按钮和

按钮，此时机床开始自动加工。加工完成图

2、数控铣削编程、仿真

二.数控铣床

第一章工艺分析 1.1 加工实例内容加工要求图：

加工分析：

加工后图：

图（1-1）

如图（1-1）所示零件，材料为45#钢，65*30料，小批量生产，使分析其数控铣削加工工艺过程。

1.2工艺分析过程零件图的工艺分析

零件图的工艺分析，包括零件图的标注正确性、轮廓描述的完整性及必要的工艺措施等。在这里，我们的仿真软件，是理想化的把加工零件的尺寸调整为完全没有误差，所以零件图我们通常都不标注公差。在正常情况下，是没有这种可能的，所以在零件图的工艺分析过程，还没有全面到位，请用户注意这一点。

确定装夹方案

根据零件结构的特点，可以用底面、外轮廓定位,工艺板装夹。确定加工顺序及走刀路线

加工顺序的正确安排，按照基面先行、先粗后精原则确定。为了使表面有好的表面质量，采用顺铣方式铣削。深度进给可以在xz平面（或yz平面）来回铣削逐渐进刀到既定深度。

刀具的选择

根据零件的结构特点，铣削叶轮的间距限制，可以选择Φ10刀，粗加工可以选择Φ10高速钢立铣刀，精加工选择Φ10硬质合金立铣刀。

切削用量的选择

切削用量的选择一般根据毛坯的材料、转速、进给速度、刀具的刚度等因素选择。数控加工工艺卡的拟定

将前面分析得各项内容综合成数控加工工艺卡片，在这里，就不做详细的介绍，用户在做具体的实际加工过程中必须要有这个过程。

第二章加工准备 2.1 加工程序程序如下

O0001;G54 G90 M3 S800;G0 X0 Y39.5;Z100.;Z5.;G01 Z-5.F100;Y37.67;X-35.82 Y11.64;X-22.14 Y-30.47;X22.14;X35.82 Y11.64 X0 Y37.67 Y36.G02 X5.71 Y31.85 R6.G01 X10.65 Y16.65 G03 X12.55 Y15.27 R2.G01 X28.53 G02 X32.06 Y4.42 R6.G01 X19.13 Y-4.98 G03 X18.40 Y-7.21 R2.G01 X23.34 Y-22.42 G02 X14.11 Y-29.12 R6.G01 X1.18 Y-19.73 G03 X-1.18 R2.G01 X-14.11 Y-29.12 G02 X-23.34 Y-22.42 R6.G01 X-18.04 Y-7.21 G03 X-19.13 Y-4.98 R2.G01 X-32.06 Y4.42 G02 X-28.53 Y15.27 R6.G1 X-12.55 G03 X-10.65 Y16.65 R2.G01 X-5.71 Y31.85 G02 X0 Y36.R6 G01 Y39.5 G00 Z100.M05 M30

由于工件不可能作手工编程，所以我们借助其他软件生成NC代码，这个过程在这里我们就忽略，这部分主要涉及到用户对这些软件的熟练掌握程度，当自动生成NC程序后，保存到用户规定的目录下，就可以了。

自动生成NC代码的软件主要可以用CAXA、MASTCAM、ProE、UG、等等。2.2 加工流程

打开程序选择机床机床回零点安装工件和工艺装夹安装刀具

建立工件坐标系上传NC语言自动加工

第三章具体操作 3.1 华中世纪星系统 3.1.1打开程序选择机床

单机版用户请双击电脑桌面上的VNUC5.0图标，或者从windows的程序菜单中依次展开“legalsoft”-〉VNUC5.0-〉单机版-〉VNUC5.0单机版。

网络版的用户，需先打开服务器，然后在客户端的桌面上双击图标进入。或者从windows的程序菜单中依次展开“legalsoft”-〉VNUC5.0-〉网络版-〉VNUC5.0网络版。

网络版用户执行上述操作后会出现如图2所示窗口，输入用户名和密码后，按登录键：

图2

进入后，从软件的主菜单里面“选项”中选择“选择机床和系统”如图3所示，进入选择机床对话框，选择华中世纪星铣床。

图3 图4

图5 3.1.2机床回零点

弹开别处在+X点击机床按钮、+Y、+Z

到回零状态，此时指示灯变亮，点击坐标轴控制按钮使之分按钮，此时机床回零，液晶显示屏显示如下：

图6 机床指令坐标系X、Y、Z分别为零。3.1.3安装工件和工艺装夹

首先在菜单栏里面选择“工艺流程/毛坯” 出现如图5对话框：

图7 选择“新毛坯”，定义毛坯，按照对话框提示，填写工件要求的数值，如下图所示：

图8 选择“数控加工工艺装夹”虎钳装夹、选择毛坯1，点击“上、下、左、右”调整工件位置，最后确定。

图9 在图5中选择“设定压板”

图10 最后，确定即可，选择毛坯列表里面设定的新毛坯，安装。3.1.4安装刀具 “工艺流程”“铣床刀具库”，设置立铣刀，直径为10，如图8所示

图11 3.1.5建立工件坐标系首先，在菜单栏里面选择“工艺流程基准对刀”后出现下图12a所示对话框，把刀具半径更改为5，最后“确定”。

图12（a）图12(b)调节对刀仪移动图12（b）所示的位置，同时选择塞尺为0.1，把鼠标放到视图中，点击鼠标右键，选择“显示手轮”。调节旋钮到 “×1”挡选择按钮调节，再调节手轮。，此时手动的调节倍率为1/1000mm，同时点击增量按钮同时选择其中的按钮，调节、，对刀仪器跟工件的距离，最后出现“塞尺检查结果，合适”此时记录下X1的坐标值为-687.960。

图13 抬刀，点击，调节、、使对刀仪移动刀工件右侧，如图所示：

图14 用上述同样的方法，最后得到X2为-612.360工件坐标系X轴方向坐标为X=（-687.96-612.36）/2=-650.160。同理，Y轴坐标为-338.310，Z轴坐标为-475.020 下一步就是设置参数，打开“显示辅助视图”关闭对刀视图，在窗口中点击鼠标右键，“隐藏手轮”。点击液晶显示屏下面的按钮，此时出现输入提示栏，在控制面板上输入或者从键盘输入

按钮改正，最X-650.160 Y-338.310 Z-475.020如图所示，其中出现错误的输入时，可以用后将坐标时输入，如图13(b)所示：

图15(a)

图15(b)3.1.6上传NC语言

在图15（b）窗口中选择自动加工按钮，选择，从“磁盘程序生成的代码（文件名、路径都是用户自

图16（a）

”选择用户所自动己定义的）

图16(b)图16(c)打开后出现下图的画面。

图17

四、实训总结

转眼间我期望已久的实训周已经过去，经过一周的实训让我学到了许多知识，回想实训这几天我确实有很大的收获。在师傅的耐心指导和鼓励下，圆满完成了实训任务，从总体上达到了实训预期的目标和要求。这次实训给了我一次全面的、系统的实践锻炼机会，巩固了所学的理论知识，增强了我的数控操作能力，我进一步从实践中认识到数控的重要性。

《可编程控制器》实训任务书篇5

（电气122）

一、实训的目的

通过典型PLC控制环节的设计与实现，加深理解与巩固电气控制与PLC控制的基本知识，提高PLC应用编程的实际技能，初步具备PLC逻辑控制系统的设计与调试能力，以及工程实践能力。

二、实训内容与要求

1、实训内容

设计题目1 电动机的Ｙ-△起动控制

控制要求：

（1）电动机M能实现正、反向Y-△启动。（2）电气操作流程说明：

按动正向启动按钮SB2，KM1和KM4闭合（Y型起动），经3秒后KM4断开，KM3闭合，实现正向△型运行；按动反向启动按钮SB3，KM2和KM4闭合（Y型起动），经3秒后KM4断开，KM3闭合，实现正向△型运行，按停车按钮SB1，电动机M停止运行。

设计要求:（1）根据电动机Y-△起动要求，设计PLC外部电路（配合通用器件板开关元器件）；（2）连接PLC外部（输入、输出）电路，编写用户程序；（3）输入、编辑、编译、下载、调试用户程序；（4）得到正确的运行结果。

设计题目2 自动送料装车系统

控制要求 : 初始状态：绿灯（L1）亮，红灯（L2）灭，允许汽车开进装料，此时，进料阀门（k1），料斗阀门（k2），电动机（M1，M2，M3）皆为OFF状态。

当汽车到来时，检测开关S3接通（负载板上未设，可从通用器件板选取），红色信号灯L2亮，绿色L1灭，传送带驱动电动机M3运行；2秒后，电动机M2运行；再经过2秒钟M1运行，依次顺序起动送料系统。

电动机M3运行后，进料阀门K1即可打开料斗进料，（设1料斗物料足够装满1车）当料斗装满，检测开关S1=1时，要将进料阀门K1关闭；料斗出料阀门K2在M1运行及料满（S1=1）后，打开放料，物料通过传送带的传送，装入汽车。（编程注意当K2动作、装车开始后，K1=0即料不满属于正常动作，不必再进料，也不要停止装车）。

当装满汽车后，称重开关S2动作，料斗出料阀门K2关闭，同时电动机M3断电停止，2秒后M2停止，再过2秒M1停止，L1亮，L2灭，表示汽车可以开走。

设计要求:（1）根据自动送料装车系统的控制要求，设计PLC外部电路，；

（2）连接PLC外部（输入、输出）电路（配合通用器件板开关元器件），编写用户程序；

（3）输入、编辑、编译、下载、调试用户程序；（4）得到正确的运行结果。

设计题目3 多种液体自动混合系统

控制要求:（1）液体自动混合系统的初始状态：

在初始状态，容器为空，电磁阀Y1，Y2，Y3，Y4 和搅拌机M以及加热元件R均为OFF，液面传感器L1，L2，L3和温度检测T均为OFF。

（2）液体混合操作过程：

按动启动按钮，电磁阀Y1闭合（Y1为ON），开始注入液体A，当液面高度达到L3时（L3为ON）→ 关闭电磁阀Y1（Y1为OFF），液体A停止注入，同时，开启电磁阀门Y2（Y2为ON）注入液体B , 当液面升至L2时（L2为ON）→ 关闭电磁阀Y2（Y2为OFF），液体B停止注入，同时，开启电磁阀Y3（Y3为ON），注入液体C，当液面升至L1时（L1为ON）→ 关闭电磁阀Y3（Y3为OFF），液体C停止注入，然后开启搅拌电动机M，搅拌10秒 → 停止搅拌，加热（启动电炉R）→ 当温度（检测器T动作）达到设定值时 → 停止加热（R为OFF），并放出混合液体（Y4为ON），至液体高度降为L3后，再经5秒延

时，液体可以全部放完 → 停止放出（Y4为OFF）。液体混合过程结束。

按动停止按钮，液体混合操作停止。

设计要求:（1）按液体混合要求，设计PLC外部电路;（2）连接PLC外部（输入、输出）电路，编写用户程序；（3）输入、编辑、编译、下载、调试用户程序；（4）得到正确的运行结果。

设计题目4 水塔水位自动控制系统

控制要求:（1）初始状态：水箱没有水，液位开关S4断开（S4为OFF）。

（2）控制要求：本装置上电后，按动启动按钮，电动阀Y通电（Y为ON）水箱开始注水，水箱水位达到S4高度后，液位开关S4闭合（S4为ON），水箱水位达到S3高度(水满)时，液位开关S3闭合（S3为ON）→ 注水电动阀Y断电（Y为OFF），水箱停止注水。此后，随着水塔水泵抽水过程的进行，水箱液面逐渐降低，液位开关S3（S3＝OFF）复位，随着抽水过程的继续进行，水箱液面继续降低，当液面低于开关S4时，液位开关S4复位（S4为OFF）→ 电动+阀Y再次通电（Y为ON）水箱(自动)注水，水位达到S3时再次停止注水。如此循环，使水箱水位保持在S3～S4之间。

当水箱水位高于S4液位，并且水塔水位低于水塔最低允许液面开关S2时（液位开关S2为OFF）→ 水泵电动机M开始运行，向水塔抽水。当液面达到最高液位开关S1时 → 水塔电机M停止抽水（M为OFF）；循环控制使得水塔水位自动保持在S1～S2之间变化。

设计要求:（1）按水塔水位的控制要求，设计PLC外部电路；（2）连接PLC外部（输入、输出）电路，编写用户程序；（3）输入、编辑、编译、下载、调试用户程序；（4）得到正确的运行结果。

设计题目5 十字路口交通灯控制系统（采用步进控制指令编程）

控制要求

(1)系统受一个启动按钮控制，按下启动按钮，信号灯系统开始工作，直到按下停止按钮，系统停止工作。

(2)系统启动后，南北红灯亮25秒，在此同时东西绿灯亮20秒，到20秒时东西绿灯开始闪亮，闪亮3秒后绿灯熄灭、东西黄灯亮，东西黄灯亮2秒后熄灭，然后东西红灯亮，南北红灯熄灭，南北绿灯亮。

(3)东西红灯亮30秒，在此同时南北绿灯亮25秒，到25秒时南北绿灯开始闪亮，闪亮3秒后熄灭、南北黄灯亮，南北黄灯亮2秒后熄灭，又回到南北红灯亮，东西红灯熄灭，东西绿灯亮的状态。

(4)两个方向的绿灯闪亮间歇时间均为0.5秒。

(5)两个方向的信号灯，按上面的要求周而复始地进行工作。

参考接线图

设计题目6 机械手控制系统设计

三、实训参考

电气控制与可编程控制器

四、实训考核办法

1、爱护实验设备、遵守纪律、学习态度端正（20%）

2、各阶段程序任务完成情况（60%）

VB常用算法总结篇6

一、变量值的交换

算法思想：若交换两个变量的值，必须引入第三个新的变量进行传递。以下代码是错误的：

X=12 ：Y=34 ：X=Y ：Y=X 正确的代码是：

X=12 ：Y=23 ：T=X ：X=Y ：Y=T

二、判断一个数是否能被另一个数整除

算法思想：可以用整除的定义（余数为0）或X除以Y等于X整除Y等表达式进行判断。条件表达式可以为：X mod Y=0

或

X＼ Y=X/Y

或

Int(X/Y)=X/Y 如果以上条件表达式为True，则表示X能被Y整除。

三、累加、阶乘、计数和求平均值

算法思想：使用循环语句，并用一个变量存放累加的中间及最终结果。注：累加求和时变量初值为0，计算阶乘时变量初值为1。

统计计个数（计数）时可用一个变量作为统计个数的累加变量，每次加1即可。求平均值算法思想是先求和，再除以个数。条件求和（或计数）：在循环语句中加入If－End If判断语句。

例题：计算1到10之间所有整数的累加和以及10！。n=10 sum=0

‘累加求和时，变量的初值一定为0 prod=1

‘累乘（连乘）时，变量的初值一定为1 For i=1 To n

sum=sum+i

prod=prod*i Next i Print sum,prod

例题：统计0—100之间能被3整除的数的个数、累加和及其平均值。

s=0

n=0

For i=0 To 100

If i mod 3 =0 Then

s=s+i

n=n+1

End If

Next i

Print n,s,s/n

四、随机数的产生 [a,b]之间的随机整数 Int((b-a+1)*rnd)+a(a,b)随机数（b-a）*rnd +a

五、求若干个数中最大值或最小值

六、常用字符处理函数

Mid函数：从字符串指定位置取指定个字符，格式为Mid(字符,p,n)，从第p个字符开始，向后截取n个字符（若n省略则取到最后）。

Left和Right函数：从字符串左边或右边取指定个字符，格式为 Left(字符,n)和Right(字符,n)。Len函数：测试字符串长度。

UCase和LCase函数：UCase将小写字母转换为大写字母；LCase将大写字母转换为小写字母。

Instr([首字符位置 , ] 字符串1, 字符串2 [ , n])：在字符串1中查找字符串2，如果找到，返回字符串2的第一个字符在字符串1中出现的位置。首字符位置是可选的，如果不指定，从字符串起始位置开始查找；如果指明，从指定的位置开始查找。

Asc函数：返回字符串中第一个字符的ASCII码。Chr函数：将一个数值转换为其所对应的字符。

字符的比较规则是按ASCII码顺序比较，规则为空格<”A”～”Z”<”a”～”z” 小写字母的ASCII比大写字母的ASCII小32。

例题：

1．将所有文本转换为大写（小写）字母

可以直接使用UCase（LCase）函数转换。例如： Text2.Text=UCase(Text1.Text)2．对某个字符串的所有字符逐一处理

算法思想：如果对某个字符串的所有字符逐一处理，即从字符串的第1个字符开始到最后一个字母，每次处理1个字符。可以使用For循环实现。通用代码为：

For i=1 To Len(s)

s1=Mid(s,i,1)……

Next i 3．字符转换

算法思想：通过字符的ASCII码进行处理（使用Asc函数），然后再使用Chr函数将ASCII转换成字符。例题：将文本框Text1中字符按如下规律转换a－b、b－c……z－a，并显示在文本框Text2中。

s = Text1.Text n = Len(s)For i = 1 To n

s1 = Mid(s, i, 1)

If s1 >= “a” And s1 <= “y” Then

s2 = s2 + Chr(Asc(s1)+ 1)

ElseIf s1 = “z” Then

s2 = s2 + “a”

End If Next i Text2.Text = s2 例题：将文本框Text1中的小写字母转换其对应的大写字母，将大写字母转换成小写字母，并显示在文本框Text2中。

Private Sub Command1_Click()s = Text1.Text n = Len(s)m = Asc(“a”)m)

End If

If s1 >= “A” And s1 <= “Z” Then

s2 = s2 + Chr(Asc(s1)+ m)

End If Next i Text2.Text = s2 End Sub 5．统计某字符出现次数

算法思想：对字符串中字符逐一判断，如果是某字符，则统计变量加1。

例题：统计文本框Text1中字符i和j出现的次数（不区分大小写）。

Private Sub Command1_Click()

s = Text1.Text

n = Len(s)

For i = 1 To n

s1 = Mid(s, i, 1)

If UCase(s1)= “I” Then ni = ni + 1

If UCase(s1)= “J” Then nj = nj + 1

Next i

Print ni, nj

End Sub

八、素数

素数定义：只能被1和本身整除的正整数称为素数（或称质数）。例如11就是素数，它只能被1和11整除。算法思想：判别某数n是否是素数的方法有很多，最简单的是从素数的定义来求解。对于n，从i=2，3，…，n-1判别n能够被i整除，只要有一个能整除，n就不是素数，否则n是素数。此种算法比较简单，但速度慢，因此，可以将n被2到（或n/2）间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。

注：执行For循环时，循环变量等于终值仍进入循环，遇到Next语句，循环变量会自动加上步长，因此如果循环正常完成后，循环变量的值将大于终值。例如：

For i=1 To 4 If …… Then Exit For Next i Print i 如果循环正常结束，则输出结果为5（大于4）。如果循环过程中满足If条件，执行Exit For语句退出循环，则i的值一定小于5。

例题：判断n是否是素数。Private Sub Command2_Click()n = Val(Text1.Text)For j = 2 To n100 * a)/ 10)c = i-Int(i / 10)* 10 If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i End If Next i End Sub

Private Sub Command1_Click()For n = 100 To 999 s = 0 a = n Do While a <> 0 b = a Mod 10 s = s + b * b * b a = a＼ 10 Loop If s = n Then Print n Next n End Sub

十一、斐波那切数列的输出

该数列前两项为1，1从第三项开始，an=an-1+an-2

十二、进制转换十三、三个数排序

十四、分段函数

十五、图形输出（双重循环）

十六、百鸡百钱问题

十七、迭代法P116页

十八、输入a,b,c,的值，求方程ax2+bx+c=0的解。

注意：对象只考文本框、标签、命令按钮和窗体。

本学期计算机基础及VB程序设计复习指导如下：

1、计算机基础的50道复习题，试卷上占20分，选择15题，填空5题。

2、VB习题集第一到五章控制结构的课后习题及试题解析（其中，控件只考窗体、文本框、标签、命令按钮）试卷上占40分。