Dim Command, node, begin, number as string Dim Answerlen as
integer node="03" '节点号 Command="RR" '命令为读IR区 begin="0000"
'从IR000开始 number=10 '读取长度 Answerlen=51
'计算接收字符串长度 进行命令发送和接收应答处理：
Dim FCS, I as integer Dim s ,f as
string s="@"+node+Commad+begin+number FCS=0 For i=1 to
Len(s) FCS=FCS xor Asc(Mid$(s,i,1) ) '帧校验码FCS Next
i f=Hex$(FCS) If Len(f)=1 Then f="0"+f Commfrm.MSComm1.Output=s +
f + "*" + CHR$(13) '命令帧发送 Do Dummy=DoEvents() Loop Untill
Commfrm.MSComm1.InbufferCount >= Answerlen '等待应答帧 Do tag1=
Commfrm.MSComm1.Input Loop Untill Commfrm.MSComm1.InbufferCount=0
'读完应答帧 上述程序具有相当的通用性，对于其它设备不同的只是各自的数据帧格式，因而只需做相应少量修改即可。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
