组态软件讲座

1、参数曲线实时监控各种仪表数值状态指示组态软件干什么用？VBVC主控窗口：主控窗口：是工程的主窗口或主框架。在主控窗口中可以放置一个设备窗口和多个用户窗口，负责调度和管理这些窗口的打开或关闭。主要的组态操作包括：定义工程的名称，编制工程菜单，设计封面图形，确定自动启动的窗口，设定动画刷新周期，指定数据库存盘文件名称及存盘时间等。设备窗口：设备窗口：是连接和驱动外部设备的工作环境。在本窗口内配置数据采集与控制输出设备，注册设备驱动程序，定义连接与驱动设备用的数据变量。用户窗口：用户窗口：本窗口主要用于设置工程中人机交互的界面，诸如：生成各种动画显示画面、报警输出、数据与曲线图表等。实时数据库：实时

2、数据库：是工程各个部分的数据交换与处理中心，它将MCGS工程的各个部分连接成有机的整体。在本窗口内定义不同类型和名称的变量，作为数据采集、处理、输出控制、动画连接及设备驱动的对象。运行策略：运行策略：本窗口主要完成工程运行流程的控制。包括编写控制程序（ifthen脚本程序），选用各种功能构件，如：数据提取、历史曲线、定时器、配方操作、多媒体输出等。见练习题1选用串口1或串口2通讯速度通讯数据的长度数据流中的停止位个数检验方式：奇、偶、无关键参数设置 修改设备的名称设定设备的工作状态，启动或停止可以设定系统监控的同步性设定设备的站号及地址将组态软件中对应的参数与PLC的信号进行一一对应，从而实现

3、数据交换。当通讯状态标志位为1时，通讯不正常当通讯状态标志位为0时，通讯正常组态软件通过通过控制PLC的中间触点从而实现软触点的功能，然后通过PLC自身的程序来控制系统的功能。填充颜色边线颜色字符颜色水平移动垂直移动大小变化显示输出按钮输入按钮动作可见度闪烁效果思考题设计工程框架建立数据库设置驱动连接动作设计调试运行1、输入文件路径2、输入工程名称与描述3、进入指定的工程4、进入开发界面5、新建设备连接6、为设备指定逻辑名称7、选择通讯端口8、指定设备的物理地址9、设定通讯故障的恢复时间10、完成设定根据选定的机型设定参数测试通讯是否成功设置画面属性绘制画面为控件设置属性选择参数VB篇VB概述

4、VisualBasic（简称VB）是美国微软公司开发的一种可视化编程工具。它功能强大，简单易学，没袭了BASIC系统语言的语法，能够方便快捷地开发Windows应用程序。用VisualBasic环境开发的常用功能：一、文件操作二、图形图像处理三、数据库应用四、通信五、Internet六、开发制作软件设备号识别号正文FCS结束符设备号识别号异常码正文FCS结束符Function FCS(ByVal InputStr As String) As StringDim Slen, i, Xorresult As IntegerDim Tempres As StringSlen = Len(InputS

5、tr)Xorresult = 0For i = 1 To SlenXorresult = Xorresult Xor Asc(Mid$(InputStr, i, 1)Next itempfes = Hex$(Xorresult)If Len(Tempres) = 1 Then tempfes = 0 + tempfesFCS = tempfesEnd FunctionMSComm1.InBufferCount=0MSComm1.PortOpen=TrueOutputStr=InputStr+FCS(InputStr)+*MSComm1.Output=OutputStr+Chr$(13)DoDo

6、EventsLoopWhileMSComm1.InBufferCount15InString=MSComm1.InputMSComm1.PortOpen=False初始化缓冲区发送指令接收响应EndString=Mid$(InString,Len(InString)-Num-5,2)IfEndString=13ThenReadData=errorExitFunctionElseIfEndString=14ThenReadData=errorExitFunctionElseIfEndString=15ThenReadData=errorExitFunctionElseIfEndString=18

7、ThenReadData=errorExitFunctionElseIfEndString=A3ThenReadData=errorExitFunctionElseIfEndString=A8ThenReadData=errorExitFunctionEndIfEndString=Mid$(InString,1,Len(InString)-4)returnFCSString=Mid$(InString,Len(InString)-3,2)FCSString=FCS(EndString)IfFCSStringreturnFCSStringThenReadData=errorExitFunctio

8、nEndIfReturnStr=Mid$(InString,Len(InString)-Num-3,Num)ReadData=ReturnStrFunctionstrint(ByValdstrAsString)AsIntegerIfdstr=FThenstrint=15ElseIfdstr=EThenstrint=14ElseIfdstr=DThenstrint=13ElseIfdstr=CThenstrint=12ElseIfdstr=BThenstrint=11ElseIfdstr=AThenstrint=10Else:strint=Val(dstr)EndIfText4.Text=WYI

9、fWY=15Thenx=Array(1,1,1,1)ElseIfWY=14Thenx=Array(1,1,1,0)ElseIfWY=13Thenx=Array(1,1,0,1)ElseIfWY=12Thenx=Array(1,1,0,0)ElseIfWY=11Thenx=Array(1,0,1,1)ElseIfWY=10Thenx=Array(1,0,1,0)ElseIfWY=9Thenx=Array(1,0,0,1)ElseIfWY=8Thenx=Array(1,0,0,0)ElseIfWY=7Thenx=Array(0,1,1,1)ElseIfWY=6Thenx=Array(0,1,1,0

10、)ElseIfWY=5Thenx=Array(0,1,0,1)ElseIfWY=4Thenx=Array(0,1,0,0)ElseIfWY=3Thenx=Array(0,0,1,1)ElseIfWY=2Thenx=Array(0,0,1,0)ElseIfWY=1Thenx=Array(0,0,0,1)Else:WY=0 x=Array(0,0,0,0)EndIftemp=Val(Mid(Text2.Text,3,2)Iftemp=0Theni=MsgBox(通讯正常,vbOKOnly)ElseIftemp=1Theni=MsgBox(运行时不能执行命令,vbOKOnly)ElseIftemp=2Theni=MsgBox(未安装EPROM,vbOKOnly)ElseIftemp=3Theni=MsgBox(编程时不能执行命令,vbOKOnly)El