10年以前编辑过一个串口程序,已经忘的差不多了。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名、网站空间、营销软件、网站建设、通城网站维护、网站推广。
你这个只是按钮事件往串口发数据,事件完了,不会检测接受到的数据。你应该加个时间事件,定期检测接收的到数据并显示。
首先应该弄清楚串口发送和接受的数据是字符还是十六进制数据(字节)。
假如是十六进制数据(字节),只要分别定义输出字节数组和输入字节数组。
输出传完后,接收的数据就在输入字节数组。其他的就是串口属性设置的问题了,你也应该懂得。
补充:
Private Sub Command1_Click()
Dim data(6) As Byte
Dim recieve(1000) As Byte
If Not MSComm1.PortOpen Then
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
data(0) = HAA
data(1) = HAA
data(2) = H1
data(3) = H0
data(4) = H90
data(5) = HA5
data(6) = H1
MSComm1.Output = data
( 这里加一段延时)
MSComm1.Input = recieve
End Sub '发送测试指令,让下位机进行采集
直接用上面的程序调试一下,鼠标点在参数上可以显示结果。
当然还有一个办法,看一下是你的程序的问题还是硬件连接的问题可以从网上下一个串口调试助手,很直观
这问题LZ在Csdn上发了两帖,已经给了答复!
不知为何又在此处发帖?
服务器先进行
Bind ()绑定服务器的端口
然后BeginReceive接受客户端发送的数据
客户端Bind ()绑定客户端接受和发送数据的端口
SendTo()来发送数据就可以
不需要进行BeginConnect,因为UDP不需要连接