宇电aibus通信说明书 - 图文-.docVIP

Dim pv as integer, sv as integer, mv as integer, alm as integer, cs as integer, crc as integer instring = MSComm1.Input pv= Join2Byte(instring(0, instring(1 sv= Join2Byte(instring(2, instring(3 mv= (instring(4 alm= integer(instring(5 cs= Join2Byte(instring(6, instring( 7 crc= Join2Byte(instring(8, instring( 9 Public Function Join2Byte(lowbyte As Byte, highbyte As Byte Dim c As Integer c = highbyte If c 127 Then c = (c - 256 * 256 Else c = c * 256 End If Join2Byte = c + lowbyte End Function AI-5XX 2 5 2006 7