组态软件讲座学习教案

1、会计学1组态软件组态软件(run jin)讲座讲座第一页，共57页。第1页/共57页第二页，共57页。参数(cnsh)曲线实时监控各种( zhn)仪表数值状态指示组态软件干什么用？第2页/共57页第三页，共57页。VBVC第3页/共57页第四页，共57页。第4页/共57页第五页，共57页。第5页/共57页第六页，共57页。第6页/共57页第七页，共57页。第7页/共57页第八页，共57页。主控窗口：是工程的主窗口或主框架。在主控窗口中可以放置一个设备窗口和多个用户窗口，负责调度和管理这些窗口的打开或关闭。主要的组态操作包括：定义工程的名称，编制工程菜单，设计封面图形，确定自动启动的窗口，设定动

2、画刷新周期，指定数据库存盘文件名称及存盘时间等。设备窗口：是连接和驱动外部设备的工作环境。在本窗口内配置数据采集与控制输出设备，注册设备驱动程序，定义连接与驱动设备用的数据变量。用户窗口：本窗口主要用于设置工程中人机交互的界面，诸如(zhr)：生成各种动画显示画面、报警输出、数据与曲线图表等。实时数据库：是工程各个部分的数据交换与处理中心，它将MCGS工程的各个部分连接成有机的整体。在本窗口内定义不同类型和名称的变量，作为数据采集、处理、输出控制、动画连接及设备驱动的对象。运行策略：本窗口主要完成工程运行流程的控制。包括编写控制程序（ifthen脚本程序），选用各种功能构件，如：数据提取、历史

3、曲线、定时器、配方操作、多媒体输出等。第8页/共57页第九页，共57页。第9页/共57页第十页，共57页。第10页/共57页第十一页，共57页。第11页/共57页第十二页，共57页。第12页/共57页第十三页，共57页。第13页/共57页第十四页，共57页。第14页/共57页第十五页，共57页。第15页/共57页第十六页，共57页。第16页/共57页第十七页，共57页。第17页/共57页第十八页，共57页。第18页/共57页第十九页，共57页。见练习题1第19页/共57页第二十页，共57页。第20页/共57页第二十一页，共57页。第21页/共57页第二十二页，共57页。选用(xunyng)串口

4、1或串口2通讯(tngxn)速度通讯数据的长度数据流中的停止位个数检验方式：奇、偶、无关键参数设置 第22页/共57页第二十三页，共57页。修改(xigi)设备的名称设定(shdn)设备的工作状态，启动或停止可以设定系统监控的同步性设定设备的站号及地址第23页/共57页第二十四页，共57页。第24页/共57页第二十五页，共57页。将组态软件中对应的参数与PLC的信号(xnho)进行一一对应，从而实现数据交换。第25页/共57页第二十六页，共57页。当通讯(tngxn)状态标志位为1时，通讯(tngxn)不正常当通讯状态标志位为0时，通讯正常第26页/共57页第二十七页，共57页。组态(zti)

5、软件通过通过控制PLC的中间(zhngjin)触点从而实现软触点的功能，然后通过PLC自身的程序来控制系统的功能。第27页/共57页第二十八页，共57页。填充颜色边线颜色字符颜色水平移动垂直移动大小变化显示输出(shch)按钮输入按钮动作可见度闪烁效果第28页/共57页第二十九页，共57页。第29页/共57页第三十页，共57页。思考题第30页/共57页第三十一页，共57页。第31页/共57页第三十二页，共57页。设计(shj)工程框架建立(jinl)数据库设置驱动连接动作设计调试运行第32页/共57页第三十三页，共57页。第33页/共57页第三十四页，共57页。第34页/共57页第三十五页，共

6、57页。1、输入文件(wnjin)路径2、输入(shr)工程名称与描述第35页/共57页第三十六页，共57页。3、进入指定(zhdng)的工程4、进入(jnr)开发界面第36页/共57页第三十七页，共57页。5、新建设备(shbi)连接6、为设备指定(zhdng)逻辑名称第37页/共57页第三十八页，共57页。7、选择(xunz)通讯端口8、指定(zhdng)设备的物理地址第38页/共57页第三十九页，共57页。9、设定通讯故障(gzhng)的恢复时间10、完成(wnchng)设定第39页/共57页第四十页，共57页。根据选定的机型设定(shdn)参数测试(csh)通讯是否成功第40页/共57

7、页第四十一页，共57页。第41页/共57页第四十二页，共57页。设置(shzh)画面属性绘制(huzh)画面第42页/共57页第四十三页，共57页。为控件设置(shzh)属性选择(xunz)参数第43页/共57页第四十四页，共57页。VB篇第44页/共57页第四十五页，共57页。VB概述(ish)VisualBasic（简称VB）是美国微软公司开发的一种可视化编程工具。它功能强大，简单易学，没袭了BASIC系统语言(yyn)的语法，能够方便快捷地开发Windows应用程序。用VisualBasic环境开发的常用功能(gngnng)：一、文件操作二、图形图像处理三、数据库应用四、通信五、Inte

8、rnet六、开发制作软件第45页/共57页第四十六页，共57页。第46页/共57页第四十七页，共57页。第47页/共57页第四十八页，共57页。设备(shbi)号识别号正文FCS结束符设备号识别号异常码正文FCS结束符第48页/共57页第四十九页，共57页。Function FCS(ByVal InputStr As String) As StringDim Slen, i, Xorresult As IntegerDim Tempres As StringSlen = Len(InputStr)Xorresult = 0For i = 1 To SlenXorresult = Xorresu

9、lt Xor Asc(Mid$(InputStr, i, 1)Next itempfes = Hex$(Xorresult)If Len(Tempres) = 1 Then tempfes = 0 + tempfesFCS = tempfesEnd Function第49页/共57页第五十页，共57页。第50页/共57页第五十一页，共57页。MSComm1.InBufferCount=0MSComm1.PortOpen=TrueOutputStr=InputStr+FCS(InputStr)+*MSComm1.Output=OutputStr+Chr$(13)DoDoEventsLoopWhi

10、leMSComm1.InBufferCount15InString=MSComm1.InputMSComm1.PortOpen=False初始化缓冲区发送(fsn)指令接收(jishu)响应第51页/共57页第五十二页，共57页。EndString=Mid$(InString,Len(InString)-Num-5,2)IfEndString=13ThenReadData=errorExitFunctionElseIfEndString=14ThenReadData=errorExitFunctionElseIfEndString=15ThenReadData=errorExitFunctio

11、nElseIfEndString=18ThenReadData=errorExitFunctionElseIfEndString=A3ThenReadData=errorExitFunctionElseIfEndString=A8ThenReadData=errorExitFunctionEndIf第52页/共57页第五十三页，共57页。EndString=Mid$(InString,1,Len(InString)-4)returnFCSString=Mid$(InString,Len(InString)-3,2)FCSString=FCS(EndString)IfFCSStringretur

12、nFCSStringThenReadData=errorExitFunctionEndIfReturnStr=Mid$(InString,Len(InString)-Num-3,Num)ReadData=ReturnStr第53页/共57页第五十四页，共57页。Functionstrint(ByValdstrAsString)AsIntegerIfdstr=FThenstrint=15ElseIfdstr=EThenstrint=14ElseIfdstr=DThenstrint=13ElseIfdstr=CThenstrint=12ElseIfdstr=BThenstrint=11ElseIf

13、dstr=AThenstrint=10Else:strint=Val(dstr)EndIf第54页/共57页第五十五页，共57页。Text4.Text=WYIfWY=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=8

14、Thenx=Array(1,0,0,0)ElseIfWY=7Thenx=Array(0,1,1,1)ElseIfWY=6Thenx=Array(0,1,1,0)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)EndIf第55页/共57页第五十六页，共57页。temp=Val(Mid(Text2.Text,3,2)Iftemp=0Theni=MsgBox(通讯正常,vbOKOnly)ElseIftemp=1Theni=MsgBox(运行时不能执行命令,vbOKOnly)ElseIftemp=2Theni=MsgBox(未安装EPROM,vbOKOnly)ElseIft