Question

VB 串口数据处理

串口设置接收一个字节触发一次Oncomm事件，二进制接收，协议里面是这样表述的，8个字节代表一条完整的信息，第1,2（高位）字节表示地址（1~999），第3字节表示（1~8）,第4和第5字节表示0~9999，希望会的能给个示范，第5到第7我再试着写，感激~~~~~~~~~~

Answer 1

昏暗的缓冲区字符串
昏暗的?作为字符串
DIM A（0?3）字节
点心D（）作为字节
昏暗的intputlen中作为整数
昏暗的?作为整数
点心我作为整数
点心k为整数
暗淡升的整数
点心作为整数

私人小组界首（）

对于i = 0至UBound函数（D）
如果LEN（十六进制）= 1，则
buf = buf中中和“0”？十六进制（D（I（D（I）） ））
其他
缓冲区缓冲区内六角（D（I））
如果

最后子
私人小组zhuanhua （作为字符串）
总和= 0
对于i = 1到LEN（N）
选择案例中旬（N，I，1）
案“0”
> L = 0
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“1”
L = 1
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“2”
L = 2
当k = LEN（N）
L = L * 16

总和= SUM + L / 16 BR />案“3”
L = 3
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“4”
L = 4
当k = LEN（N）
L = L * 16

的总和=总和+ L / 16
案例“10”
L = 5
当k = LEN（N）
L = L * 16
下一步“
>金额= sum + L / 16
案“6”
L = 6
当k = LEN（N）
L = L * 16
下一页
总和= SUM + L / 16
案“7”
L = 7
当k = LEN（N）
L = L * 16 />“下一步”
总和= SUM + L / 16
案“8”
L = 8
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“9”
L = 9
当k = LEN（N）
升= L * 16

总和= SUM + L / 16
案例“A”
L = 10
当k =我为LEN（N） /> L = L * 16

总和= SUM + L / 16
案“B”
L = 11
K = I为LEN（N ）
L = L * 16

总和= SUM + L / 16
案“C”
L = 12
K = I LEN（N）
L = L * 16

总和= SUM + L / 16
案“D”
L = 13
K表= LEN（N）
L = L * 16

总和= SUM + L / 16
案“E”
L = 14 />当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“F”
L = 15
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
选择
下一页
END SUB

私人小Command1_MouseDown（按钮如Integer，Shift键为整数，X为单，?作为单）
MSComm1.Output =

对于i = 0?4
如果MID（BUF，1，2）>“FF”，然后
BUF =左（buf中，8 - 2 * I）
如果

END SUB

私人小组Command1_MouseUp（按钮为整数，整数Shift键，X为单，Y作为单）
zhuanhua中旬（BUF，3，2）：
Text2.Text = Text2.Text价和CHR（32）
zhuanhua中旬（BUF，5，2）
文本2。文本= Text2.Text价和CHR（32）
BUF =“
末次

私人小组Form_Load（）
MSComm1.CommPort = 3 ...... /> MSComm1.Settings =“9600，N，8,1”
MSComm1.RThreshold = 1
MSComm1.PortOpen =
A（0）=＆HFF
一（ 1）=＆H6
一（2）=＆HA7
A（3）=＆HAC
末次

私人小组MSComm1_OnComm（）
选择案例MSComm1.CommEvent
案例comEvCD
案例comEvCTS
案例comEvDSR
案例comEvReceive

MSComm1.InputMode = comInputModeBinary
intputlen = MSComm1。 InBufferCount
REDIM D（intputlen）
D = MSComm1.Input
界首

案例comEvSend

Text1.Text =缓冲区BR />
子

根据要求的情况下改变

Answer 2

昏暗的缓冲区字符串
昏暗的?作为字符串
DIM A（0?3）字节
点心D（）作为字节
昏暗的intputlen中作为整数
昏暗的?作为整数
点心我作为整数
点心k为整数
暗淡升的整数
点心作为整数

私人小组界首（）

对于i = 0至UBound函数（D）
如果LEN（十六进制）= 1，则
buf = buf中中和“0”？十六进制（D（I（D（I）） ））
其他
缓冲区缓冲区内六角（D（I））
如果

最后子
私人小组zhuanhua （作为字符串）
总和= 0
对于i = 1到LEN（N）
选择案例中旬（N，I，1）
案“0”
> L = 0
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“1”
L = 1
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“2”
L = 2
当k = LEN（N）
L = L * 16

总和= SUM + L / 16 BR />案“3”
L = 3
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“4”
L = 4
当k = LEN（N）
L = L * 16

的总和=总和+ L / 16
案例“10”
L = 5
当k = LEN（N）
L = L * 16
下一步“
>金额= sum + L / 16
案“6”
L = 6
当k = LEN（N）
L = L * 16
下一页
总和= SUM + L / 16
案“7”
L = 7
当k = LEN（N）
L = L * 16 />“下一步”
总和= SUM + L / 16
案“8”
L = 8
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“9”
L = 9
当k = LEN（N）
升= L * 16

总和= SUM + L / 16
案例“A”
L = 10
当k =我为LEN（N） /> L = L * 16

总和= SUM + L / 16
案“B”
L = 11
K = I为LEN（N ）
L = L * 16

总和= SUM + L / 16
案“C”
L = 12
K = I LEN（N）
L = L * 16

总和= SUM + L / 16
案“D”
L = 13
K表= LEN（N）
L = L * 16

总和= SUM + L / 16
案“E”
L = 14 />当k = LEN（N）
L = L * 16

总和= SUM + L / 16
案“F”
L = 15
当k = LEN（N）
L = L * 16

总和= SUM + L / 16
选择
下一页
END SUB

私人小Command1_MouseDown（按钮如Integer，Shift键为整数，X为单，?作为单）
MSComm1.Output =

对于i = 0?4
如果MID（BUF，1，2）>“FF”，然后
BUF =左（buf中，8 - 2 * I）
如果

END SUB

私人小组Command1_MouseUp（按钮为整数，整数Shift键，X为单，Y作为单）
zhuanhua中旬（BUF，3，2）：
Text2.Text = Text2.Text价和CHR（32）
zhuanhua中旬（BUF，5，2）
文本2。文本= Text2.Text价和CHR（32）
BUF =“
末次

私人小组Form_Load（）
MSComm1.CommPort = 3 ...... /> MSComm1.Settings =“9600，N，8,1”
MSComm1.RThreshold = 1
MSComm1.PortOpen =
A（0）=＆HFF
一（ 1）=＆H6
一（2）=＆HA7
A（3）=＆HAC
末次

私人小组MSComm1_OnComm（）
选择案例MSComm1.CommEvent
案例comEvCD
案例comEvCTS
案例comEvDSR
案例comEvReceive

MSComm1.InputMode = comInputModeBinary
intputlen = MSComm1。 InBufferCount
REDIM D（intputlen）
D = MSComm1.Input
界首

案例comEvSend

Text1.Text =缓冲区BR />
子

根据要求的情况下改变