求RS232发送和接收数据包的C语言程序

Question

如题所述

Answer 1

首先，串口调试软件的波特率最好设置成9600，这种波特率也支持显示中文的，
USB转串口看你用的什么芯片，经过实验采用CH340或是341的是没有问题的，其他还有待验证。

串口调试软件也很重要，有些软件会奇怪出现乱码，但并不是程序错误，推荐你用小丁的sscom32，个人感觉很棒！ ;**************************************************************************
; 程序名称：单片机串口发送中文字符实验，232通信程序
; 硬件说明：打开《串口调试助手》，波特率设为9600速率，11.0592晶体
; 注 意：《串口调试助手》要设置好COM号(请核对是否和设备管理器的COM编号一致)
; 操作说明：下载程序后打开串口调试助手sscom32.exe即可显示，或按一下复位开关
;***************************************************************************/
ORG 0000H
AJMP main
ORG 0030H
main: MOV 20H,#00H
MOV TMOD,#22H ;定时器工作方式
MOV SCON,#40H
MOV TH1,#0FAH ;波特率9600
MOV PCON,#80H
SETB TR1
SETB REN ;允许接收
ajmp start
start: mov dptr,#num ;查表
send : clr a ;
movc a,@a+dptr
cjne a,#'$',send_2
ajmp $ ;遇到$停止。
send_2:mov sbuf,a
JNB TI,$ ;串行发送一帧结束了吗？
CLR TI ;
inc dptr ;指针加一
Ljmp send
num:
db 0dh,0ah,0dh,0ah,"XY900_USB型单片机学习板USB-232串口中文发送试验 "
db 0dh,0ah,0dh,0ah,"-----心情解梦-----"
db 0dh,0ah,0dh,0ah,"我梦见自己和前女友生了一个小孩,自己用婴儿车推着孩子在山间的公路上不停地走..."
db 0dh,0ah,0dh,0ah,"最佳答案："
db 0dh,0ah,0dh,0ah,"首先,你们之间的感情给你留下了很深刻的东西，我想那些镜头可能是你们在一起时你所感受到的---那也许可能会是真的景物..."
db 0dh,0ah,0dh,0ah,"其次，也可能是代表某种心情,我猜想是不是你们曾经的爱情让你觉得幸福但同时也有隐隐作痛...回忆让你觉得不安全和无法掌握。",0dh,0ah,'$'
end

Answer 2

如果有确定的接收字节长度,设置Rthreshold等于接收字节长度有利接收正确率提高.由于你的几个下位机返回数据包字节不等长,你可根据寻址命令发出前预先改变Rthreshold值来保证接收返回符合要求的字节长度.
不然你接收多少字节符合你改发下一寻址命令呢?程序代码处理难度较高.
实际下位机返回数据包可在其代码中补一定其它字节来达到等长,从而使接收代码变得简洁.
等长接收数据后可对接收处理清0来等待下次接收.
补充：
假如下位机的返回数据按地址号能确定接收字节长度，下列代码可实现接收不等长数据，仅供参考：
Private Sub MSComm1_OnComm()
On Error Resume Next
Dim BytReceived() As Byte
Dim strBuff As String
Dim strData As String
Dim i As Integer
Dim x As Integer
Select Case MSComm1.CommEvent
Case 2
MSComm1.InputLen = 0
strBuff = MSComm1.Input
BytReceived() = strBuff
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
strData = strData & "0" & Hex(BytReceived(i))
Else
strData = strData & Hex(BytReceived(i))
End If
Next
Text3 = Text3 + strData
If Left(strData, 2) = "00" And Len(strData) = 8 Then
Text1(0).Text = Left(strData, 8)
Call DataClear
ElseIf Left(strData, 2) = "01" And Len(strData) = 10 Then
Text1(1).Text = Left(strData, 10)
Call DataClear
End If
End Select
End Sub

Public Sub DataClear()
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0
Text3 = ""
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 'COM端口
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '采用二进制传输
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
'MSComm1.SThreshold = 1 '如果传输缓冲区完全空时产生MSComm事件
MSComm1.RThreshold = 1 '不产生MSComm事件
MSComm1.PortOpen = True
Text3 = "" '打开端口
End Sub
我可以帮助你，你先设置我最佳答案后，我百度Hii教你。本回答被提问者采纳

Answer 3

不用中断接收：
uchar rece(void)
{
uchar temp;
while(RI==0);
RI=0;
temp=SBUF;
return temp;
}本回答被网友采纳