一、什么是I2C通信
專注于為中小企業(yè)提供網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)岱山免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了近1000家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
二、I2C通信特征:串行、同步、非差分、低速率
注: 串口通信和I2C通信屬于低速通信, 用電平信號(hào)即可. 網(wǎng)線和USB線屬于高速通信, 所以用差分信號(hào).
三、I2C通信的突出特征
注: 主設(shè)備會(huì)以 廣播 的形式發(fā)送8位的從設(shè)備地址(其實(shí)8位中只有7位是從設(shè)備地址, 還有一位bit0是讀寫位)到總線, 總線上的所有從設(shè)備都能收到這個(gè)地址, 并且收到地址后和自己的地址比較. 如果相等, 則發(fā)送ACK應(yīng)答. 否則不應(yīng)答.
四、I2C通信的主要用途
Acknowledge: 以上部分資料文字來自@朱有鵬
I2C burst mode
是I2C連續(xù)寫的mode和速率沒有關(guān)系,使用該功能可以寫寄存器節(jié)約時(shí)間。
I2C transmission speed
standard mode: 100kbps
fast mode: 400kbps
high-speed mode: 3.4Mbps (但是有些外設(shè)不支持這么高的速率,所以不能跑到這么高的速率。具體能支持到多大需要查看具體外設(shè)的spec)
沒辦法,VB做不了底層。其一VB不支持驅(qū)動(dòng)開發(fā)。其二PC不能直接控制硬件IO。只能通過PC跟單片機(jī)的通信,告訴單片機(jī)控制IIC器件。
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
本文名稱:vb.neti2c通信 vb tcp通信
鏈接URL:http://chinadenli.net/article14/dogdige.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計(jì)、ChatGPT、網(wǎng)站收錄、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站排名、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)