'*******************节点信息统计
If no_repeat_numb = 0 Then
remenber_data_buffer(0) = recdata_buffer(9)
remenber_data_buffer(1) = recdata_buffer(10)
no_repeat_numb = 1
Text7.Text = no_repeat_numb
Text6.SelStart = Len(Text6.Text)
Text6.Text = Text6.Text + vbCrLf
Text6.Text = Text6.Text & "Node" & no_repeat_numb & ":" & H_add & Space(1) & L_add & vbCrLf _
& Space(4) & "Temperature:" & t_temp & "℃" & vbCrLf _
& Space(4) & "Humidity:" & h_temp & "%RH" & vbCrLf _
& Space(4) & "Votage:" & v_temp & "V"
'& "Time:" & Now
Text6.SelLength = 1
Text6.SelStart = Len(Text6.Text)
Length_1 = Len(Text6.Text)
recdata_buffer(9) = 0
recdata_buffer(10) = 0
ElseIf no_repeat_numb = 1 Then
remenber_data_buffer(2) = recdata_buffer(9)
remenber_data_buffer(3) = recdata_buffer(10)
no_repeat_numb = 2
Text7.Text = no_repeat_numb
Text6.SelStart = Len(Text6.Text)
Text6.Text = Text6.Text + vbCrLf
Text6.Text = Text6.Text & "Node" & no_repeat_numb & ":" & H_add & Space(1) & L_add & vbCrLf _
& Space(4) & "Temperature:" & t_temp & "℃" & vbCrLf _
& Space(4) & "Humidity:" & h_temp & "%RH" & vbCrLf _
& Space(4) & "Votage:" & v_temp & "V"
'& "Time:" & Now
Text6.SelLength = 1
Text6.SelStart = Len(Text6.Text)
Length_1 = Len(Text6.Text)
recdata_buffer(9) = 0
recdata_buffer(10) = 0
Else
For i = 0 To no_repeat_numb - 1
If (recdata_buffer(10) <> remenber_data_buffer(2 * i + 1)) Then
no_repeat_temp = no_repeat_temp + 1
ElseIf (recdata_buffer(9) <> remenber_data_buffer(2 * i)) Then
no_repeat_temp = no_repeat_temp + 1
Else
i = no_repeat_numb + 1
End If
Next
If (no_repeat_numb = no_repeat_temp) Then
remenber_data_buffer(2 * no_repeat_numb) = recdata_buffer(9)
remenber_data_buffer(2 * no_repeat_numb + 1) = recdata_buffer(10)
no_repeat_numb = no_repeat_numb + 1
Text7.Text = no_repeat_numb
Text6.SelStart = Len(Text6.Text)
Text6.Text = Text6.Text + vbCrLf
Text6.Text = Text6.Text & "Node" & no_repeat_numb & ":" & H_add & Space(1) & L_add & vbCrLf _
& Space(4) & "Temperature:" & t_temp & "℃" & vbCrLf _
& Space(4) & "Humidity:" & h_temp & "%RH" & vbCrLf _
& Space(4) & "Votage:" & v_temp & "V"
'& "Time:" & Now
Text6.SelLength = 1
Text6.SelStart = Len(Text6.Text)
Length_1 = Len(Text6.Text)
recdata_buffer(9) = 0
recdata_buffer(10) = 0
no_repeat_temp = 0
Else
End If
End If
End If
repeat_numb = repeat_numb + 1 '收到节点总数量
Text13.Text = repeat_numb
End If