我想做個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
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
