ｖＤａｔ（ａｌｎｇＤａｔａＦｌａｇ Ａｓ 返回的收到的字节数或者结束符来判断返回结果是Ｖａｎａｎ！，ａｓｎｇＤａｔａＶａｌｕｅ Ａｓ Ｖａｒｉａｎｔ，ａｓｔｒＤａｔａＳｔｒｉｎｇ Ａｓ 否正确，如果返回字节数小于等于Ｏ，则说明没有数据Ｖａｒｉａｎｔ）Ａｓ Ｌｏｎｇ 或者通信出错．程序如下所示： Ｄｉｍｌ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｓｔｒＲｅｔｕｒｎＤａｔａ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ａｒ＿ｅｏｍｐｌｉｍｅｎｔ（０ Ｔｏ ７）Ａｓ Ｉｎｔｅｇｅｒ ７余数 Ｄｉｍ ｑｕｏｔｉｅｎｔ（０ Ｔｏ ７）Ａｓ Ｉｎｔｅｇｅｒ ’商 Ｏｎ ＥｖｉＴ）ｒ Ｒｅｓｕｍｅ Ｎｅｘｔ ＤｉｍｆｌａｇＡｓ Ｌｏｎｇ Ｄａｔａ＝Ｃｈｒ￥（ａｓｎｇＤａｔａＶａｌｕｅ（１８１１ ｆｌａｇ＝ＣｏｌｌｅｃｔＯｎｅＣｏｍｍ０（ｍ ｏｂｊＣｏｍｍＰａｒｅｎｔ，Ｄｅ—ｖＮｕｍｂｅｒ，Ｄａｔａ） ＣｏｌｌｅｃｔＤｅｖＤａｔ＝０ Ｉｆ ｆｌａｇ＜＞０ Ｔｈｅｎ ＣｏｌｌｅｃｔＤｅｖＤａｔ＝－１ ｆｌａｇ＝ＣｏｌｌｅｅｔＯｎｅＣｏｍｍ（ｍ ｏｂｊＣｏｍｍＰａｒｃｎｔ，Ｄｅ—ｖＮｕｍｂｅｒ，ｓｔｒＲｅｔｕｒｎＤａｔａ） ＣｏｌｌｅｃｔＤｅｖＤａｔ＝０ Ｉｆ ｆｌａｇ＜＞０ Ｔｈｅｎ ＣｏｌｌｅｃｔＤｅｖＤａｔ＝－１ 　 ｓｔｒＲｅｍｒｎｌ）ａｔａｌ＝Ｓｐｌｉｔ（ｓｔｒＲｅｔｕｒｎＤａｔａ．”ｎ ２） ａｓｎｇＤａｔａＶａｌｕｅ（１ ７）＝ｓｔｒＲｅｔｕｒｎＤａｔａｌ（ｏ） 如果读取单片机ＩＯＡ口的状态值。

    就把ＩＯＡ０一ＩＯＡ７口作为输入。

    假如ＩＯＡ０一ＩＯＡ７口置为０１０００１１１，用ＰＣ机接收到的数据是十进制６４，需要将十迸制转化为二进制，得到ＩＯＡＯ—ＩＯＡ７口的状态值。

     十进制转化为二进制的程序如下所示： ａｓｎｇＤａｔａＶａｌｕｅｆ０１＝ｏ ａｒ ｃｏｍｐｌｉｍｅｎｔ（０）＝ｓｔｒＲｅｔｕｍＤａｔａ Ｍｏｄ ２ 图１下位机程序设计流程图 ｑｕｏｔｉｅｎｔ（０）＝ｓｔｒＲｅｔｕｍＤａｔａ＼２ Ｆｏｒｉ＝０Ｔｏ ６ ｑｕｏｔｉｅｎｔ（ｉ＋１１＝ｑｕｏｔｉｅｎｔ（ｉ、＼２ ａｒ＿ｃｏｍｐｌｉｍｅｎｔ（ｉ＋１）＝ｑｕｏｔｉｅｎｔ（ｉ）Ｍｏｄ ２ Ｎｅｘｔｊ Ｆｏｒｌ＝０ Ｔｏ ７ ａｓｎｇＤａｔａＶａｌｕｅ（ｉ＋１１＝ａｒ＿ｃｏｍｐｌｉｍｅｎｔ（ｉ） Ｎｅｘｔｊ 对Ｐｕｂｌｉｃ Ｆｕｎｃｔｉｏｎ ＣｏｌｌｅｃｔＯｎｅＣｏｍｍ（ｏｂｊＣｏｍｍＰａｒ—ｅｎｔ Ａｓ Ｌｏｎｇ，ｄａｔ Ａｓ Ｓｔｒｉｎｇ）Ａｓ Ｏｂｊｅｃｔ，ＢｙＶａｌ ｎｕｎｌ ＡｓＬｏｎｇ函数的编写要从读写两方面去考虑。

     ２．２．１从单片机读数据 从单片机读数据，调用函数：Ｐｕｂｌｉｃ Ｆｕｎｃｔｉｏｎ Ｒｅａｄ—Ｄａｔａ（ＢｙＶａｌ Ｃｍｄ Ａｓ Ｓｔｒｉｎｇ，ｏｂｊＣｏｍｍＰａｒｅｎｔ Ａｓ Ｏｂｊｅｅｔ） Ｌｏｎｇ，把想要发的数据帧转换成字节数组的形式，然Ａｓ后通过串口父设备提供的写串行端口函数ｏｂｊＣｏｍｒｎ一 图２测试图雨面面两面稠 万方数据 ＠幽自控月邮局订阈号８２－９４６ ３６０，年＿１１５—单片机开发与应用 中文核心期刊《微计算机信息》（嵌入式与ＳＯＣ）２００６年第２２卷第７－２期 Ｐｕｂｌｉｃ Ｆｕｎｃｔｉｏｎ ＲｅａｄＤａｔａ（ＢｙＶａｌ Ｃｍｄ Ａｓ Ｓｔｒｉｎｇ， 可以应用在凌阳单片机系统中。

    ｏｂｊＣｏｍｍＰａｒｅｎｔ Ａｓ Ｏｂｊｅｅｔ）Ａｓ Ｌｏｎｇ 创新点主要在于一方面把应用越来越广泛的 Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ ＳＰＣＥ０６１Ａ单片机作为ＭＣＧＳ组态软件的设备。

    另一 Ｄｉｍ ｉ Ａｓ Ｌｏｎｇ，ｉＬｏｎ Ａｓ Ｌｏｎｇ 方面在于对上位机与下位机的通信设计，根据通道方 。

    “１ ２“ｏ”“Ｌ。

    “ｄＪ 向的不同分别调用不同的函数，从而使得调试更加方 ＯｕｔＰｕｔＢｙｔｅ（ｉ一１）＝Ａｓｃ（Ｍｉｄ￥（Ｃｍｄ，ｉ，１）） 佰古弧 Ｎｅｘｔｉ 参考文献： ｏｂｊＣｏｍｍＰａｒｅｎｔ．ＣｏｍＯｕｔＤａｔ Ｌｅｎ（Ｃｍｄ）．ＯｕｔＰｕｔＢｙｔｅ０ 『１〕ＭＣＧＳ用户指南〔＾Ｉ】，ｊ晴艰抡通态自动化袄降醐支