久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 1263|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

vb上位機(jī)怎么不能同時(shí)顯示兩個(gè)溫度的值呢？

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:703703 發(fā)表于 2020-3-29 14:53 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
我想做個(gè)vb上位機(jī)能與51單片機(jī)進(jìn)行無(wú)線通信，vb上位機(jī)怎么不能同時(shí)顯示兩個(gè)溫度的值呢？
希望哪位大佬幫我看看。（我菜鳥一枚）
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好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表
主站蜘蛛池模板： 国产精品色婷婷久久58 | 日韩欧美精品一区 | 91在线精品一区二区 | 三级av在线| 中文字幕精品一区二区三区精品 | 国产精品高潮呻吟久久久久 | 国产精品免费一区二区三区 | 欧美日本亚洲 | 国产一区二区高清在线 | 婷婷狠狠 | 一区二区国产在线 | 久草青青草 | 狠狠操你 | 一级免费黄色 | 亚洲欧美综合精品久久成人 | 国产精品久久久久久亚洲调教 | 国产精品91网站 | 亚洲欧美男人天堂 | 欧美一区不卡 | 国产视频中文字幕 | 狠狠操电影 | 亚洲 欧美 激情 另类 校园 | 欧美日韩一区二区三区视频 | 一区二区三区四区在线播放 | 国产精品久久久久久久久久久久久 | www精品美女久久久tv | 久久久国产精品网站 | 中文字字幕在线中文乱码范文 | 成人精品视频在线 | 中文字幕人成乱码在线观看 | 午夜丁香视频在线观看 | 中文字幕一区二区三区不卡在线 | 国产精品高清在线 | 国产一区二区在线免费观看 | 欧美精品一区二区三区在线播放 | 青青草这里只有精品 | 免费在线黄 | 色综合视频| 91精品久久久久久久久久小网站 | 国产99视频精品免费播放照片 | 蜜月aⅴ免费一区二区三区 99re在线视频 |