Question

vb.net串口通信（求解决，代码执行到向串口发送数据，后没有返回数据信息）

private void button1_Click(object sender, EventArgs e)//发送button
{

dataout = textBox1.Text;//获取textbox1文本框输入的数据
System.Console.WriteLine("=="+dataout+"==");
serialPort1.Write(dataout);//将获取数据写入串口serialport
System.Console.WriteLine("--"+serialPort1.ReadExisting()+"--");

}

private void serialPort1_DataReceived(object sender, System.IO.Ports.SerialDataReceivedEventArgs e)
{

this.Invoke(new EventHandler(SP__Receiving));

}
private void SP__Receiving(object serder, EventArgs e)//接收数据
{
datain =serialPort1.ReadExisting();//获取serialport1中所有可用的字节
//serialPort1.DiscardInBuffer();
textBox2.Text = datain;
}

Answer 1

你打开串口了吗？

追问

serialPort1.Open();//打开
串口打开了

追答

下位机接的是什么？ 另一台PC还是某种智能设备？
能确定命令下发成功了吗？
能确定下位机确实返回回应了吗？

建议你可以用串口监视工具侦听一下串口的通讯内容。

追问

下位机是一台六要素传感器，主要是采集温度、湿度、风向等气象的设备

追答

串行通讯的调试是必须熟练掌握的。
你下载一个 CommMonitor 监视一下吧。
这里不让贴链接，去百度搜一下，一大堆下载的。

追问

刚监视了一下，

我输入的是：82 FF 02 05 00 F8

在监控中显示的是：

序号: 16

COM口: COM4

数据长度: 17

数据: 

 38 32 20 46 46 20 30 32 20 30 35 20 30 30 20 46 38  | 82 FF 02 05 00 F8

追答

哦，你把ASCII码和16进制数字搞混了。

你应该先换算为10进制，再逐一保存到一个Byte数组中，发送这个数组。

类似这样：

Dim B(5) as Byte
B(0) = 162 '&H82
B(1) = 255 '&HFF
B(2) = 2
B(3) = 5
B(4) = 0
B(5) = 248 '&HF8
serialPort1.Write(B)