基于TI公司的CC2530实现了IEEE 802.15.4(ZigBee)的无线传感器网络(Wireless Sensor Network，WSN)协议；在分析CSMA-CA算法的基础上，重点讨论了片内集成的命令选通/CSMA-CA处理器的工作机制，同时组建了一个小型星状网络。测试结果表明，在节点通信范围内，节点收发的成功率和正确率均达到了100%。

手把手详细教程：https://blog.csdn.net/h568630659/article/details/121427218，小白也能轻松上手，STM32F1系列通用。

本软件是基于PocketPC平台开发的，采用c#语言，通过虚拟串口访问实现蓝牙模块通信参数配置，收发数据的控制。

采用环形队列对串口大数据进行处理，降低了串口误码率，提高串口抗干扰性。程序中采用一定的通信协议，解决数据干扰问题，用户可根据自己的协议进行修改。该程序工程可用于项目当中，只需简单修改就可以加进去，可移植性较高。

发现网上关于vbrichclient的教程比较少，但这个实在是好东西，实用性，稳定性都比VB自带的winsock好的多，多客户端不用winsock控件数组。　也不用在各窗体上放winsock，直接在模块中就能实现收发 下面直接上代码，窗体和文本钮、按钮大家自行拖放。要用到VB自带隐藏函数varptr()取内存指针(VbMsdn中没有这个函数，实际上很简单^^)。 VbRichClient5.0.38中包含sqlite3.9支持 上面共享中也包含VbRichClient5.0.38支持库 VbRichClient代替winsock 主要使用 cTCPServer cTCPClient cUDP '--------------------------------------------------------------------- '服务器端，代码最简化，要实现多客户端只要用数组存hsocket就可以 Option Explicit Dim WithEvents sv As cTCPServer Dim WithEvents udp1 As cUDP Dim cHsocket& Private Sub Form_Load() Set sv = New cTCPServer sv.Listen sv.GetHost("127.0.0.1"), 35912 Debug.Print sv.GetHost("") Set udp1 = New cUDP udp1.Bind "127.0.0.1", 5616 End Sub Private Sub sv_DataArrival(ByVal hSocket As Long, ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) sv.GetData hSocket, VarPtr(d(0)), BytesTotal '★★关键代码 s = d Text2.Text = Text2.Text & s & vbCrLf Debug.Print "收到：" & BytesTotal End Sub Private Sub sv_TCPAccepted(ByVal hSocket As Long) cHsocket = hSocket Text1.Text = Text1.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub sv_TCPDisConnect(ByVal hSocket As Long) Text3.Text = Text3.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) udp1.GetData VarPtr(d(0)), BytesTotal s = d Text2.Text = Text2.Text & s & vbCrLf End Sub '------------------------------------------------------- '客户端 Option Explicit Dim WithEvents cl As cTCPClient Dim WithEvents udp1 As cUDP Dim cid& Private Sub Command1_Click() cid = cl.Connect("QgB1", 35912) End Sub Private Sub Command2_Click() cl.Disconnect cid End Sub Private Sub Command3_Click() Dim b() As Byte b = Text1.Text cl.SendData cid, VarPtr(b(0)), UBound(b) + 1 End Sub Private Sub Command4_Click() Dim d() As Byte, s$ s = "yessss" d = s udp1.RemoteIP = "127.0.0.1" udp1.RemotePort = 5616 u

发送端通过液晶触摸屏输入字符，然后编写协议发送，采用4.3寸液晶 接收端将接收到的数据解码，然后将有效字符显示在液晶上，采用2.8寸液晶 接收无误码，使用于各种数字无线收发的应用

软件介绍: 在MCGS昆仑通态驱动支持嵌入版、通用版、网络版，可以直接收发网口数据的驱动。网口收发驱动帮助文档.doc本设备构件用于MCGS发送和读取网口数据，MCGS软件与设备通讯之前,必须保证网线连接正确。父设备通讯参数设置应与设备的通讯参数相同。设备通讯参数的具体设置方法参见相关的网络通讯资料。设备构件参数设置“网口收发”子设备参数设置如下：内部属性：本驱动构件无内部属性。 通讯等待时间：通讯数据接收等待时间，默认设置为1000ms,当采集速度要求较高或数据量较大时,设置值可适当减小或增大。 NetComm.dllNetCommE.drvNetCommE_ARMV4.drv网口收发驱动帮助文档.doc

智能手表，嵌入式

MCGSpro自由口通讯驱动，可以自由定义通讯数据与特种通讯协议设备通讯。

MCGSpro自由口通讯驱动，可以自由定义通讯数据与特种通讯协议设备通讯。