COMLIB 通讯程序示例.doc

1. COMLIB 通讯程序示例 1. 1 PC ( COM1 和 COM2 ) 按字节发送 - 接收 全局变量 VAR_GLOBAL (* Test COM1 at PC Interface COM1 *) COM1InData AT %IB100 : PcComInData; COM1OutData AT %QB100 : PcComOutData; COM1RxBuffer : ComBuffer; COM1TxBuffer : ComBuffer; (* Test COM2 at PC Interface COM2 *) COM2InData AT %IB200 : PcComInData; COM2OutData AT %QB200 : PcComOutData; COM2RxBuffer : ComBuffer; COM2TxBuffer : ComBuffer; END_VAR 后台程序：ComBackground PROGRAM ComBackground VAR COM1Control : PcComControl; COM2Control : PcComControl; END_VAR COM1Control( COMin := COM1InData , COMout := COM1OutData , TxBuffer := COM1TxBuffer , RxBuffer := COM1RxBuffer ); COM2Control( COMin := COM2InData , COMout := COM2OutData , TxBuffer := COM2TxBuffer , RxBuffer := COM2RxBuffer ); 测试程序：TESTCOM1 PROGRAM TESTCOM1 VAR SendData : ARRAY[0..9] OF BYTE := 1,2,3,4,5,6,7,8,9,10; RecData : ARRAY[0..9] OF BYTE; COM1Send : SendByte; COM2Rec : ReceiveByte; Delay : TON; I : BYTE; Index : BYTE := 0; END_VAR (* 按字节方式发送数据到 COM1 *) Delay(IN := TRUE,PT := T#100MS); IF Delay.Q THEN Delay(IN := FALSE); FOR i := 0 TO 9 DO COM1Send( SendByte := SendData[i], TxBuffer := COM1TxBuffer); END_FOR FOR i := 0 TO 9 DO SendData[i] := SendData[i] + 1; END_FOR END_IF (* 按字节方式从 COM2 接收数据 *) COM2Rec( RxBuffer := COM2RXbuffer); IF COM2Rec.ByteReceived THEN RecData[Index] := COM2Rec.ReceivedByte; Index := Index + 1; IF Index = SIZEOF(RecData) THEN Index := 0; END_IF END_IF 主程序：MAIN PROGRAM MAIN VAR END_VAR TESTCOM1; 1.2 PC ( COM1 和 COM2 ) 按字符串发送-接收 全局变量 : 同上 后台程序：ComBackground 同上 测试程序：TESTCOM1 PROGRAM TESTCOM1 VAR SendString : STRING := $$Hello, welcome to BECKHOFF !$$; RecString : STRING; (注：可变换为无 Prefix 和 Suffix 示例，应加：TIMEOUT := T#80MS ) Prefix : STRING := $$; Suffix : STRING := $$; TimeOut : TIME := T#0MS; Reset : BOOL; COM1SString : SendString; COM2RString : ReceiveString; Delay : TON; END_VAR (* 按字符串方式发送数据到 COM1 *) Delay(IN :=