McLeanrmal MHB11-0416-G307

McLeanrmal MHB11-0416-G307

０３Ｈ＝１７４Ｈ，溢出部分不計(jì)，故ＳＵＭＨ為'７'，ＳＵＭＬ為‘４’，相應(yīng)的ＡＳＣＩＩ碼為“３７Ｈ”，“３４Ｈ”。應(yīng)答報(bào)文中４個(gè)字節(jié)的十六進(jìn)制數(shù)，其相應(yīng)的ＡＳＣＩＩ碼為８?jìng)€(gè)字節(jié)，故應(yīng)答報(bào)文長(zhǎng)度為１２個(gè)字節(jié)。

根據(jù)ＰＣ機(jī)與ＦＸ系列ＰＬＣ的傳輸應(yīng)答過(guò)程編制出如下所示的通信程序流程圖略。

利用ＶＢ的ＭＳＣｏｍｍ控件，按照流程圖可以編寫(xiě)如下通信程序?qū)崿F(xiàn)ＰＣ機(jī)與ＦＸ系列ＰＬＣ之間的串行通信以完成數(shù)據(jù)的讀取。ＭＳＣｏｍｍ控件可以采用輪詢(xún)或事件驅(qū)動(dòng)的方法從端口獲取數(shù)據(jù)。在這個(gè)例子中使用了輪詢(xún)方法。

（１）通信口初始化

Ｐｒｉｖａｔｅ Ｓｕｂ Ｉｎｉｔｉａｌｉｚｅ()

ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ ＝ １

ＭＳＣｏｍｍ１．Ｓｅｔｔｉｎｇｓ ＝ ″９６００,Ｅ,７,１″

ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＳｉｚｅ ＝ １０２４

ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＳｉｚｅ ＝ １０２４

ＭＳＣｏｍｍ１．ＩｎｐｕｔＬｅｎ ＝ ０

ＭＳＣｏｍｍ１．ＩｎｐｕｔＭｏｄｅ ＝ ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ

ＭＳＣｏｍｍ１．Ｈａｎｄｓｈａｋｉｎｇ ＝ ｃｏｍＮｏｎｅ

ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ

Ｅｎｄ Ｓｕｂ

（２）請(qǐng)求通信與確認(rèn)

Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ＭａｋｅＨａｎｄＳｈａｋｉｎｇ() Ａｓ Ｂｏｏｌｅａｎ

Ｄｉｍ ＩｎＰａｃｋａｇｅ Ａｓ Ｓｔｒｉｎｇ