通过MSComm控件进行WINCC串口通讯总结

通过MSComm控件进行WINCC串口通讯总结目的：通过MSComm控件实现WINCC串口通讯（C脚本和VB脚本两种方式）

测试环境：操作系统win7

WINCC版本：V7.2

帮助工具：串口调试工具

ASPD虚拟串口工具

测试WINCC组态画面：

测试试验过程画面：

1、通过VB实现串口通讯

画面对象“打开画面”VB大事脚本：

SubOnOpen()

DimobjMSComm,tagConnection

SetobjMSComm=hmiRuntime.Screens("串口通讯VB版").ScreenItems("COM")

SettagConnection=HMIRuntime.Tags("tagConnection1")

IfobjMSComm.PortOpen=FalseThen

'Assigncomportnumber

objMSComm.Commport=4

'Values:9600Baud,N-NoParity,8-Databit,1-Stopbit

objMSComm.Settings="9600,N,8,1"

objMSComm.RThreshold=1

objMSComm.SThreshold=0

objMSComm.InBufferCount=0

objMSComm.InputLen=0

objMSComm.PortOpen=True

tagConnection.Write(True)

HMIRuntime.Trace("Portopen."vbCrLf)

Else

HMIRuntime.Trace("Portisalreadyopened."vbCrLf)

EndIf

EndSub

MSComm控件OnComm对象大事：

SubOnOpen()

DimobjMSComm,tagConnection

SetobjMSComm=HMIRuntime.Screens("串口通讯VB版").ScreenItems("COM")

SettagConnection=HMIRuntime.Tags("tagConnection1")

IfobjMSComm.PortOpen=FalseThen

'Assigncomportnumber

objMSComm.Commport=4

'Values:9600Baud,N-NoParity,8-Databit,1-Stopbit

objMSComm.Settings="9600,N,8,1"

objMSComm.RThreshold=1

objMSComm.SThreshold=0

objMSComm.InBufferCount=0

objMSComm.InputLen=0

objMSComm.PortOpen=True

tagConnection.Write(True)

HMIRuntime.Trace("Portopen."vbCrLf)

Else

HMIRuntime.Trace("Portisalreadyopened."vbCrLf)

EndIf

EndSub

“SEND按钮”鼠标左键按下大事：

SubOnLButtonDown(ByValItem,ByValFlags,ByValx,ByValy)

DimobjMSComm

DimstrTemp,buffer

HMIRuntime.Trace("Communication!"vbCrLf)

SetobjMsComm=HMIRuntime.Screens("串口通讯VB版").ScreenItems("COM")

Setbuffer=HMIRuntime.Tags("Buffer1")

strTemp=buffer.Read

IfobjMSComm.PortOpen=TrueThen

IfstrTemp""then

objMSComm.Output=strTemp

EndIf

EndIf

EndSub

2、通过C脚本实现串口通讯

画面对象“打开画面”C大事脚本：

#include"apdefap.h"

voidOnOpenPicture(char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName)

{

#defineGetObjectGetObject

__object*pdl=NULL;

__object*pic=NULL;

__object*obj=NULL;

inti,j;

pdl=__object_create("PDLRuntime");

if(pdl)

{

printf("portopengetpdlok");

}

pic=pdl-GetPicture("串口通讯C版");

if(pic)

{

printf("portopengetpicok");

}

obj=pic-GetObject("COM");

if(obj)

{

printf("portopengetobjok");

}

if(obj-PortOpen==0)

{

obj-Commport=3;

obj-Settings="9600,N,8,1";

obj-RThreshold=1;

obj-SThreshold=0;

obj-InBufferCount=0;

obj-InputLen=0;

obj-PortOpen=1;

}

__object_delete(obj);

__object_delete(pic);

__object_delete(pdl);

}

MSComm控件OnComm对象大事：

#include"apdefap.h"

voidOnComm(char*lpszPictureName,char*lpszObjectName)

{

#defineGetObjectGetObject

__object*pdl=NULL;

__object*pic=NULL;

__object*obj=NULL;

char*data="";

pdl=__object_create("PDLRuntime");

if(pdl)

{

printf("portopengetpdlok");

}

pic=pdl-GetPicture("串口通讯C版");

if(pic)

{

printf("portopengetpicok");

}

obj=pic-GetObject("COM");

if(obj)

{

printf("portopengetobjok");

}

SetTagChar("BufferTemp",obj-Input);

printf("BufferTemp:%s",GetTagChar("BufferTemp"));

if(strcmp(GetTagChar("BufferTemp"),""))

{

SetTagChar("Buffer1",GetTagChar("BufferTemp"));

}

__object_delete(obj);

__object_delete(pic);

__object_delete(pdl);

}

“SEND按钮”鼠标左键按下大事：

#include"apdefap.h"

voidOnLButtonDown(char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName,UINTnFlags,intx,inty)

{

#defineGetObjectGetObject

__object*pdl=NULL;

__object*pic=NULL;

__object*obj=NULL;

char*data="";

pdl=__object_create("PDLRuntime");

if(pdl)

{

printf("portopengetpdlok");

}

pic=pdl-GetPicture("串口通讯C版");

if(pic)

{

printf("portopengetpicok");

}

obj=pic-GetObject("COM");

if(obj)

{

printf("