標題: vb上位機怎么不能同時顯示兩個溫度的值呢？ [打印本頁] 作者: 1780392324 時間: 2020-3-29 14:53 標題: vb上位機怎么不能同時顯示兩個溫度的值呢？ 我想做個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