vb上位机怎么不能同时显示两个温度的值呢？

ID:703703 · 发表于 2020-3-29 14:53

我想做个vb上位机能与51单片机进行无线通信，vb上位机怎么不能同时显示两个温度的值呢？
希望哪位大佬帮我看看。（我菜鸟一枚）
Private Sub Form_Load()
On Error GoTo skip
Winsock1.LocalPort = 6000
Winsock1.Listen
Exit Sub
skip:
If Err.Number = 10048 Then
MsgBox "端口冲突，退出!", vbOKOnly, "注意!"
End
End If
End Sub

Private Sub Text1_Change()
Text1.Text = dd
End Sub

Private Sub Text2_Change()
Text2.Text = mystr
End Sub

Private Sub Winsock1_Close()
If winxock1.State <> sckClosed Then Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByValbytestotal As Long)
Dim mystr As String
Dim dd As String
Winsock1.GetData mystr
Winsock1.GetData dd
Text1.Text = dd
Text2.Text = mystr
End Sub

帐号		自动登录	找回密码
密码			立即注册