//接收数据
procedure TFrm_https://www.doczj.com/doc/286360662.html,m1ReceiveData(Sender: TObject;
Buffer: PAnsiChar; BufferLength: Word);
var i:integer;
rbuf,sbuf:array[1..21] of byte;
tmpstr,tmphex,tmpview:string;
begin
tmpstr:='';
tmphex:='';
move(buffer^,pchar(@rbuf)^,bufferlength);
for i:=1 to BufferLength do
begin
tmpstr:=tmpstr+char(rbuf[i]); //字符型
tmphex:=tmphex+inttohex(rbuf[i],2); //16进制型
end;
if trim(tmpstr)<>'' then
viewstring:=viewstring+tmpstr;
if tmphex='0A' then
begin
//Memo1.Lines.Add(viewstring);
if Edit1.Text<>viewstring then
Edit1.Text:=viewstring;
viewstring:='';
end;
end;
//发送数据
procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:='';
commflg:=true;
for i:=1 to high(sbuf) do
begin
if not https://www.doczj.com/doc/286360662.html,m1.writecommdata(@sbuf[i],1) then
begin
commflg:=false;
break;
end;
//发送时字节间的延时
sleep(5);
viewstring:=viewstring+inttohex(sbuf[i],2)+' ';
if not commflg then messagedlg('发送失败!',mterror,[mbyes],0);
end;
viewstring:='发送'+viewstring;
Form1.memo1.lines.add(viewstring);
Form1.memo1.lines.add('');
end;
procedure TForm1.sentcustom();
var str11:string ;
i,j,k:integer;
tmpstr:string;
begin
if Edit1.Text<>'' then
begin
str11:=Trimplace(Edit1.Text); //替换字符串中的所有空格
i:=round(length(str11)/2); //获得字符串长度,除2取整后加1
setlength(sbuf,i+1); //重新设定发送数组范围
for j:=1 to i do
begin
tmpstr:=copy(str11,j*2-1,2);
if tmpstr='' then
tmpstr:='00';
sbuf[j]:=byte(strtoint('$'+tmpstr)); //将变量转换为byte数组end;
end
else
begin
sbuf[1]:=byte($53); //帧头
sbuf[2]:=byte($54);
sbuf[3]:=byte($2C);
sbuf[4]:=byte($47);
sbuf[5]:=byte($53);
sbuf[6]:=byte($2C);
sbuf[7]:=byte($2B);
sbuf[8]:=byte($20);
sbuf[9]:=byte($20);
sbuf[10]:=byte($20);
sbuf[11]:=byte($30);
sbuf[12]:=byte($2E);
sbuf[13]:=byte($30);
sbuf[14]:=byte($30);
sbuf[15]:=byte($20);
sbuf[16]:=byte($6B);
sbuf[17]:=byte($67);
sbuf[18]:=byte($20);
sbuf[19]:=byte($20);
sbuf[20]:=byte($0D);
sbuf[21]:=byte($0A);
end;
end;
var
Form1: TForm1;
viewstring:string;
rbuf,sbuf:array of byte;
implementation
{$R *.dfm}
//此处用于自动获取系统的串口数目以及名称，调用api函数实现相关功能procedure EnumComPorts(Ports: TStrings);
var
KeyHandle: HKEY;
ErrCode, Index: Integer;
ValueName, Data: string;
ValueLen, DataLen, ValueType: DWORD;
TmpPorts: TStringList;
begin
ErrCode := RegOpenKeyEx(
HKEY_LOCAL_MACHINE,
'HARDWARE\DEVICEMAP\SERIALCOMM',
0,
KEY_READ,
KeyHandle);
if ErrCode <> ERROR_SUCCESS then
Exit; // raise EComPort.Create(CError_RegError, ErrCode);
TmpPorts := TStringList.Create;
try
Index := 0;
repeat
V alueLen := 256;
DataLen := 256;
SetLength(ValueName, ValueLen);
SetLength(Data, DataLen);
ErrCode := RegEnumValue(
KeyHandle,
Index,
PChar(ValueName),
Cardinal(ValueLen),
nil,
@ValueType,
PByte(PChar(Data)),
@DataLen);
if ErrCode = ERROR_SUCCESS then
begin
SetLength(Data, DataLen);
TmpPorts.Add(Data);
Inc(Index);
end
else
if ErrCode <> ERROR_NO_MORE_ITEMS then
exit; //raise EComPort.Create(CError_RegError, ErrCode);
until (ErrCode <> ERROR_SUCCESS) ;
TmpPorts.Sort;
Ports.Assign(TmpPorts);
finally
RegCloseKey(KeyHandle);
TmpPorts.Free;
end;
end;
procedure TForm1.SetComPort();
begin
//获取计算机中的串口列表，并设置电子秤的串口号
EnumComPorts(ComboBox1.Items);
if ComboBox1.Items.Count>0 then
begin
ComboBox1.ItemIndex:=0; //ComboBox1.Items.Count-1;
https://www.doczj.com/doc/286360662.html,mName:=ComboBox1.Text;
//Comm1.StopComm; //打开之前先关闭串口
//Comm1.StartComm; //打开串口；
if Comm1.PortOpen=true then
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已打开'
else
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已关闭'
//上面可使用循环向各个串口接收或发送数据来判断电子秤的串口号end
else
begin
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已关闭';
end;
//showmessage(inttostr(ComboBoxComList.Items.Count));
end;
//替换字符串中的空格函数
function Trimplace(str: string): string;
var
tmp: string;
p : Integer;
begin
tmp := Trim(str);
while Pos(' ',tmp)>0 do
begin
p := Pos(' ',tmp);
tmp := Copy(tmp,1,p-1)+Copy(tmp,p+1,Length(tmp)-p);
end;
Result := tmp;
end;
//自定义发送数据过程
procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:='';
commflg:=true;
//showmessage(inttostr(high(sbuf)));
for i:=1 to high(sbuf) do
begin
if not https://www.doczj.com/doc/286360662.html,m1.writecommdata(@sbuf[i],1) then
begin
commflg:=false;
break;
end;
//发送时字节间的延时
sleep(5);
viewstring:=viewstring+inttohex(sbuf[i],2)+' ';
if not commflg then messagedlg('发送失败!',mterror,[mbyes],0);
end;
viewstring:='发送'+viewstring;
Form1.memo1.lines.add(viewstring);
Form1.memo1.lines.add('');
end;
function strToHexStr(str:string):string;
var
c:char;
ss:string;
i:integer;
begin
while str<>'' do begin
c:=str[1];
ss:=ss+format('%0x',[ord(c)]);
delete(str,1,1);
end;
strtohexStr:= ss;
end;
procedure TForm1.sentcustom();
var str11:string ;
i,j,k:integer;
tmpstr:string;
begin
if Edit1.Text<>'' then
begin
str11:=Trimplace(Edit1.Text); //替换字符串中的所有空格
i:=round(length(str11)/2); //获得字符串长度,除2取整后加1
setlength(sbuf,i+1); //重新设定发送数组范围
for j:=1 to i do
begin
tmpstr:=copy(str11,j*2-1,2);
if tmpstr='' then
tmpstr:='00';
sbuf[j]:=byte(strtoint('$'+tmpstr)); //将变量转换为byte数组end;
end
else
begin
sbuf[1]:=byte($53); //帧头
sbuf[2]:=byte($54);
sbuf[3]:=byte($2C);
sbuf[4]:=byte($47);
sbuf[5]:=byte($53);
sbuf[6]:=byte($2C);
sbuf[7]:=byte($2B);
sbuf[8]:=byte($20);
sbuf[9]:=byte($20);
sbuf[10]:=byte($20);
sbuf[11]:=byte($30);
sbuf[12]:=byte($2E);
sbuf[13]:=byte($30);
sbuf[14]:=byte($30);
sbuf[15]:=byte($20);
sbuf[16]:=byte($6B);
sbuf[17]:=byte($67);
sbuf[18]:=byte($20);
sbuf[19]:=byte($20);
sbuf[20]:=byte($0D);
sbuf[21]:=byte($0A);
end;
end;
procedure TForm1.FormCreate(Sender: TObject); //设置串口号
begin
SetComPort();
end;
procedure TForm1.Button1Click(Sender: TObject); //打开串口
begin
Comm1.StopComm;
Comm1.StartComm;
if Comm1.PortOpen=true then
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已打开'
else
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已关闭';
end;
procedure TForm1.Button2Click(Sender: TObject); //关闭串口
begin
Comm1.StopComm;
if Comm1.PortOpen=true then
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已打开'
else
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已关闭'
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Edit1.Text='' then
begin
sbuf[1]:=byte($53); //帧头
sbuf[2]:=byte($54);
sbuf[3]:=byte($2C);
sbuf[4]:=byte($47);
sbuf[5]:=byte($53);
sbuf[6]:=byte($2C);
sbuf[7]:=byte($2B);
sbuf[8]:=byte($20);
sbuf[9]:=byte($20);
sbuf[10]:=byte($20);
sbuf[11]:=byte($30);
sbuf[12]:=byte($2E);
sbuf[13]:=byte($30);
sbuf[14]:=byte($30);
sbuf[15]:=byte($20);
sbuf[16]:=byte($6B);
sbuf[17]:=byte($67);
sbuf[18]:=byte($20);
sbuf[19]:=byte($20);
sbuf[20]:=byte($0D);
sbuf[21]:=byte($0A);
end;
senddata;//调用发送函数
end;
procedure TForm1.Button5Click(Sender: TObject); //打开串口，开始连续发送数据begin
sentcustom();
Comm1.StopComm;
Comm1.StartComm;
Timer1.Enabled:=true;
if Comm1.PortOpen=true then
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已打开'
else
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已关闭';
end;
procedure TForm1.Button6Click(Sender: TObject); //停止发送数据，关闭串口begin
Timer1.Enabled:=false;
Comm1.StopComm;
if Comm1.PortOpen=true then
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已打开'
else
Label1.Caption:='串口状态：'+ComboBox1.Text+'串口已关闭';
end;
procedure TForm1.FormShow(Sender: TObject);
begin
//SetLength(@sbuf,1..22);
end;
end.
全日制普通本科生毕业设计 基于MATLAB实时串口数据采集与曲线显示REAL-TIME SERIAL DATA ACQUISITION AND FIGURE SHOW BASED ON MATLAB 学生姓名： 学号： 年级专业及班级： 指导老师及职称： 学院： 提交日期：2011年5月
全日制普通本科生毕业论文（设计） 诚信声明 本人郑重声明：所呈交的本科毕业论文（设计）是本人在指导老师的指导下，进行研究工作所取得的成果，成果不存在知识产权争议。除文中已经注明引用的内容外，本论文不含任何其他个人或集体已经发表或撰写过的作品成果。对本文的研究做出重要贡献的个人和集体在文中均作了明确的说明并表示了谢意。本人完全意识到本声明的法律结果由本人承担。 毕业论文（设计）作者签名： 年月日
目录 摘要 (1) 关键词 (1) 1前言 (2) 1.1 Matlab实时串口数据采集研究现状及发展趋势 (2) 1.2研究的目的和意义 (4) 1.3论文的组织结构 (5) 2Matlab下实时串口数据采集概要 (5) 2.1 Matlab的Serial类 (5) 2.2 数据采集 (6) 2.3曲线显示 (7) 3实时串口数据采集与曲线显示的实现 (8) 3．1实时串口通信的实现 (8) 3.2数据采集的实现 (9) 3.3曲线显示GUI的实现 (10) 4基于MATLAB的实时串口数据采集与曲线显示的具体做法 (12) 4.1数据采集的一般流程 (12) 4.1.1创建接口对象并设置属性 (12) 4.1.2打开串口设备对象 (12) 4.1.3读写串口操作 (13) 4.1.4关闭并清除设备对象 (13) 4.2基于Matlab中断方式的实时串行通信编程 (13) 4.3绘制采集数据的曲线波形和数据显示 (14) 4.3.1绘制曲线波形 (14)
串行通信接收接口（LED） 基本要求：掌握RS232串口的协议，运用DE2的串口进行接收PC的数据。波特率为9600,8位数据位，无奇偶校验，一个停止位。 硬件验证要求：在PC机通过“串行通信调试助手”软件 发送数据，DE2通过串口接收数据，完成接收数据后在LED上面进行显示。 在完成基本要求的基础上，可以通过拨码开关来选择奇偶校验的类别。 分频模块流程图： 分频模块的程序 module clk_div (clk_in,nreset,clk_out); input clk_in; input nreset; output clk_out; reg clk_out=0;
reg [8:0]cnt=0; parameter T = 217; always @(posedge clk_in or negedge nreset) begin if(nreset == 0) begin cnt <= 0; clk_out <= 0; end else if(cnt == T) begin clk_out <= ~clk_out; cnt <=0; end else cnt<=cnt+1; end endmodule 发送模块的程序： module rx(clk,nreset,rxd,data); input clk,rxd,nreset; //clk=0.1152MHz output [7:0] data; reg [3:0] t; reg [3:0] s; reg [7:0] data0; reg [7:0] data; always @(posedge clk or negedge nreset ) //baud=9600hz if(nreset ==0) begin data <= 8'h00; s <= 0; t <= 0; data0 <= 8'h00; end else begin case(s) 0:if(rxd==1) begin s<=1;t<=0;end 1:if(rxd==0) begin s<=2;t<=t+1;end 2:if(t==6)begin if(rxd==0) begin s<=3;t<=0;end
/*******************说明:************************** 将实时时钟数据通过串口发送 -------------------------------------------------- 基于51/AVR最小系统板及DS1302实时时钟模块编写 **************************************************/ #include 单片机串口发送数据帧 很少看到有资料写如何以中断的方式发送一帧数据，如果以等待的发送数据帧，对高速运行的单片机来说是很浪费时间的，下面就介绍一种使用中断方式发送数据帧，操作平台采用51 mcu 首先定义一个数据帧的结构体，该结构体可以做为一个全局变量，所有的发送都要经过这个结构体： //结构体 struct { char busy_falg;//忙标志，若在发送数据时置位1，即在开始发送置位1，发送结束置位0 int index;//索引，指向需要发送数组的位置 int length;//整个数据帧的长度 char *buf;//指向需要发送的数据帧，建议为全局变量，否则一旦开始发送，必须等到发送结束，即判断busy_falg 为0 } send_buf; 发送数据的函数，这里有个缺点，就是还是要使用while 来检测串口是否忙碌，不过这样比占用系统时间来发送要好的多了： //发送一帧 void SendBuf(char *buf,int length) { while(busy_falg);//查询发送是否忙，否则循环等待 send_buf.length = length; send_buf.index = 0; send_buf.buf = buf; send_buf.busy_falg = 1; SBUF = send_buf.buf[0];//写入SBUF，开始发送，后面就自动进入中断发送 } 串口中断发送函数，注意设置空闲标志位，避免多任务时多个发送帧调用了同一个结构体： void SerialInt() interrupt 4 //串口中断 { if(RI == 1)//串口接收 { RI = 0; } else if(TI == 1)//串口发送 { TI = 0; 摘要：本文的目的是利用一台电脑RS232串行接口实现GPIB接口的发送和接收，并有能力跟RS232及周边设备的GPIB进行连接。其主要特点在于串行通信的波特率可以由用户和被自动化的数据流调整。 1、引言 如今，越来越多的测试和测量仪器可连接到通用接口总线（GPIB），这使该技术的掌握和交流更为容易。所以，必须有一个GPIB接口。在一般情况下，如果该仪器是基于个人计算机（PC ），则现有的PCI-GPIB卡或USB接口的GPIB卡都可以使用，但成本较高。此外，有大部分是基于微控制器上的，它有RS232接口但不具备PCI或USB接口。因此，RS232 - GPIB接口是一种扩大GPIB的功能的低成本的解决方案。尽管还有一些的RS232- GPIB卡，我们证实简化RS232 - GPIB接口架构和加快串行通信的速度可以来满足更高的要求。 2硬件设计研究的RS232 - GPIB接口 2.1硬体架构的界面 该RS232 - GPIB接口，其核心部分是8051单片机，有两个端口，一个是RS232端口另一个是GPIB的端口。它不仅可以通过RS232串口端口连接PC，而且还可以连接其他设备来扩大GPIB接口。串行设备为了满足不同波特率的串行传输，可以由用户来设置波特率。此外，在数据量和处理速度的基础上数据流可以自动控以确保数据传输的可靠性。除微控制器外最重要的部分是RS232 - GPIB接口的TNT4882 GPIB接口芯片。 2.2 TNT4882使用范围 国际TNT4882提供了一个单片机向GPIB发送/接收的接口。它有三个不同的内部硬件架构：单芯片模式，涡轮7210模式，与Turbo 9914模式。其中第一个芯片的模式是最简单和最快的TNT4882体系机构，其中先入先出（先进先出）缓冲器的TNT4882是直接连接到GPIB 的。它可以很容易地接到任何16 或8位微处理器。除了一个40 MHz的时钟电路外，TNT4882可以直接连接到GPIB的。 在设计方面，bus B（D7类- 0 ）的TNT4882是用于8位输入/输出通道，连接到8051数据总线。32个寄存器分别位于8051外部数据存储器和32字节输入/输出内存0x00 ? 0x1f 。该TNT4882可以中断处理器断言其中断信号INTR以及哪些是活跃高的。因为8051的IRQ线是低作用的，所以INTR以及信号TNT4882必须倒置，然后连接到一个可用的中断线路。因此，一个通用阵列逻辑（GAL器件）芯片是用来锁存地址总线信号，并产生了积极的CSN和中断信号。此外，max708是用来复位的8051微控制器和TNT4882 。 2.3波特率调整和串行通信的流量控制串行通信 RS232 - GPIB接口可通过一个RS-232C电缆连接到串口设备。由于串行通信设备的波特率相关性，连接到8051单片机端口1的一组交换机的波特率可以从1200到115200中设置。 作为核心部分的RS232 - GPIB接口，8051单片机串行通信提供与RXD （串行输入端口）边和TXD脚发送（串行输出端口）密码的功能。无流量控制线定义了RS232系列的标准，当在处理时间内接收缓冲区满或没有接收准确的数据时，数据可能会丢失。为了提高传输的可靠性，免插脚的8051采用硬件握手方式，以允许或拒绝转让信息请求。硬件握手功能始终活跃在串行数据传输。该p1.0的8051 ，被作为RTS的信号线来连接到一级转换芯片的RS232连接器的CTS线9针的标准。当RTS的路线是中断的，它表明RS232 - GPIB接口准备好从串行设备中接收数据。同时，以串口设备接收和发送的信号作为CTS的信号。如果 竭诚为您提供优质文档/双击可除串口采集数据,表格显示 篇一：基于matlab实时串口数据采集与曲线显示 全日制普通本科生毕业设计 基于matlab实时串口数据采集与曲线显示 Real-timeseRialdataacquisitionandFiguReshow basedonmatlab 学生姓名： 学号： 年级专业及班级： 指导老师及职称： 学院： 提交日期：20xx年5月 全日制普通本科生毕业论文（设计） 诚信声明 本人郑重声明：所呈交的本科毕业论文（设计）是本人在指导老师的指导下，进行研究工作所取得的成果，成果不存在知识产权争议。除文中已经注明引用的内容外，本论文不含任何其他个人或集体已经发表或撰写过的作品成果。对 本文的研究做出重要贡献的个人和集体在文中均作了明确 的说明并表示了谢意。本人完全意识到本声明的法律结果由本人承担。 毕业论文（设计）作者签名： 年月日 目录 摘要1关键词11前言2 1.1matlab实时串口数据采集研究现状及发展趋势2 1.2研究的目的和意义4 1.3论文的组织结构52matlab下实时串口数据采集概要5 2.1matlab的serial类5 2.2数据采集6 2.3曲线显示73实时串口数据采集与曲线显示的实现8 3．1实时串口通信的实现8 3.2数据采集的实现9 3.3曲线显示gui的实现104基于matlab的实时串口数据采集与曲线显示的具体做法12 4.1数据采集的一般流程12 4.1.1创建接口对象并设置属性12 4.1.2打开串口设备对象12 4.1.3读写串口操作13 4.1.4关闭并清除设备对象13 4.2基于matlab中断方式的实时串行通信编程13 4.3绘制采集数据的曲线波形和数据显示14 4.3.1绘制曲线波形14 4.3.2数据显示15 4.3.3采集图像15 4.4扩展功能——发送数据175结论17参考文献18致谢19 附录19附录120 基于matlab实时串口数据采集与曲线显示 摘要：数据采集是获取信息的基本手段，数据采集技术作为信息科学的一个重要分支，它研究信息数据的采集、存储、处理及控制等作业，具有很强的实用性，与传感器、信号测量与处理、微型计算机等技术为基础而形成的一门综合应用技术。本设计是在matlabR20xxa版本中以串口通信实时接收目标系统数据，将采集的数据进行时间同步和字对齐处理，并在matlab的数据采集工具箱支持下，利用图形界面gui的设计，直观的实时显示数据曲线。设计得重点在于在matlab上实现串口数据同步采集与处理，接收数据的时间同步和字对齐，同时扩展了发送数据的功能。关键词：matlab；gui；实时串口；数据采集；曲线显示； 微机原理与应用实验报告6 实验9 串行通信技术 实验10A 模拟信号转换接口 实验报告 实验九串行通信技术 一、实验目的 1. 了解异步串行通信原理； 2. 掌握MSP430异步串行通信模块及其编程方法； 二、实验任务 1. 了解MSP430G2553实验板USB转串口的通信功能，掌握串口助手的使用 （1）利用PC机的串口助手程序控制串口，实现串口的自发自收功能 为实现PC串口的自发自收功能，须现将实验板上的扩展板去下，并将单片机板上的BRXD和BTXD用杜邦线进行短接，连接图如下所示： 由此可以实现PC串口的自收自发功能。 （2）思考题：异步串行通信接口的收/发双方是怎么建立起通信的 首先在异步通信中，要求接收方和发送方具有相同的通信参数，即起始位、停止位、波特率等等。在满足上面条件的情况下，发送方对于每一帧数据按照起始位数据位停止位的顺序进行发送，而接收方则一直处于接受状态，当检测到起始位低电平时，看是采集接下来发送方发送过来的数据，这样一帧数据（即一个字符）传送完毕，然后进行下一帧数据的接受。这样两者之间就建立起了通信。 2. 查询方式控制单片机通过板载USB转串口与PC机实现串行通信 （1）硬件连接图 （2）C语言程序 采用SMCLK=1.0MHz时，程序如下： 其中SMCLK=1MHz，波特率采用的是9600，采用低频波特方式，则N=1000000/9600=104.1666…，故UCA0BR1=0，UCA0BR0=104，UCBRS=1； 当采用外部晶振时，时钟采用默认设置即可，程序如下： 也是采用了低频波特率方式，所以关于波特率设置的相关计算和上面是一样的。 （3）思考：如果在两个单片机之间进行串行通信，应该如何设计连线和编程？ 由于在上面的连线中将单片机上的P1.2和BRXD相连，P1.1和BTXD相连，所以若要在两个单片机之间进行通信，首先应该将两个单片机的P1.2和P1.1交叉相连，并根据上面的程序进行相同的关于端口和波特率相关的设置即可实现两个单片机之间的通信。 3. （提高）利用PC机RS232通信接口与单片机之间完成串行通信 （1）硬件连接图 在实验时，采用了将PC机的串口com1直接连接至MSP430F149的孔型D9连接器上，G2553单片机的输出引脚P1.1和P1.2分别与F149单片机上的URXD1和UTXD1相连接，连接图如下所示： 作者：GG 功能：实现matalb与PC外设通讯 本例：串口232与外设单片机51通讯。实时监控51数据并且实时图形显示 时间：2011—9—16 简介：实现该功能使用M脚本文件和函数文件。 第一个文件连接串口和打开串口，设置了串口的一些参数和触发事件。连接串口COM5。有关该方面的知识请自行百度I/O文字流。 第二个文件是时间回调函数，相当于其他语言中例如C语言的中断函数 第三文件是关闭串口和清除列连接。并且清除中间TXT中介文件内容 下面是源文件 第一个： clear all s=serial('COM5');%打开串口 s.BytesAvailableFcnMode='byte';%设置事件触发为接受触发 s.InputBufferSize=5000;%设置接受缓冲区大小为5000个字节 s.BytesAvailableFcnCount=10;%每次接受到50个数据时候触发事件 s.BaudRate=19200;%设置通讯波特率 s.BytesAvailableFcn=@my_callback;%指向触发事件函数 fopen(s);%打开串口 第二个 function my_callback(obj,event) out=fread(obj,10,'uint8');%串口处读出50个数据 fid=fopen('G1.txt','a+');%打开文件并且追加 fprintf(fid,'%3d',out); fclose(fid); speed=textread('G1.txt','%u'); plot(speed); disp('save ok!'); end 第三个 fclose(s);%关闭串口 delete(s);%删除串口变量 clear all; fid=fopen('G1.txt','w');%清除中间文件txt a=[]; fprintf(fid,'%s',a); fclose(fid); clear all;%清除所以变量 //接收数据 procedure TFrm_https://www.doczj.com/doc/286360662.html,m1ReceiveData(Sender: TObject; Buffer: PAnsiChar; BufferLength: Word); var i:integer; rbuf,sbuf:array[1..21] of byte; tmpstr,tmphex,tmpview:string; begin tmpstr:=''; tmphex:=''; move(buffer^,pchar(@rbuf)^,bufferlength); for i:=1 to BufferLength do begin tmpstr:=tmpstr+char(rbuf[i]); //字符型 tmphex:=tmphex+inttohex(rbuf[i],2); //16进制型 end; if trim(tmpstr)<>'' then viewstring:=viewstring+tmpstr; if tmphex='0A' then begin //Memo1.Lines.Add(viewstring); if Edit1.Text<>viewstring then Edit1.Text:=viewstring; viewstring:=''; end; end; //发送数据 procedure senddata; var i:integer; commflg:boolean; begin viewstring:=''; commflg:=true; for i:=1 to high(sbuf) do begin if not https://www.doczj.com/doc/286360662.html,m1.writecommdata(@sbuf[i],1) then begin commflg:=false; break; end; //发送时字节间的延时 sleep(5); viewstring:=viewstring+inttohex(sbuf[i],2)+' '; if not commflg then messagedlg('发送失败!',mterror,[mbyes],0); end; viewstring:='发送'+viewstring; Form1.memo1.lines.add(viewstring); Form1.memo1.lines.add(''); end; procedure TForm1.sentcustom(); var str11:string ; i,j,k:integer; tmpstr:string; begin if Edit1.Text<>'' then begin str11:=Trimplace(Edit1.Text); //替换字符串中的所有空格 i:=round(length(str11)/2); //获得字符串长度,除2取整后加1 setlength(sbuf,i+1); //重新设定发送数组范围 for j:=1 to i do begin tmpstr:=copy(str11,j*2-1,2); if tmpstr='' then tmpstr:='00'; sbuf[j]:=byte(strtoint('$'+tmpstr)); //将变量转换为byte数组end; end else begin sbuf[1]:=byte($53); //帧头 sbuf[2]:=byte($54); sbuf[3]:=byte($2C); sbuf[4]:=byte($47); sbuf[5]:=byte($53); sbuf[6]:=byte($2C); sbuf[7]:=byte($2B); sbuf[8]:=byte($20); sbuf[9]:=byte($20); sbuf[10]:=byte($20); sbuf[11]:=byte($30); sbuf[12]:=byte($2E); sbuf[13]:=byte($30); sbuf[14]:=byte($30); sbuf[15]:=byte($20); sbuf[16]:=byte($6B); sbuf[17]:=byte($67); sbuf[18]:=byte($20); sbuf[19]:=byte($20); sbuf[20]:=byte($0D); sbuf[21]:=byte($0A); end; end; 串口通信测试方法 1 关于串口通信的一些知识： RS-232C是目前最常用的串行接口标准，用来实现计算机和计算机之间、计算机和外设之间的数据通信。 在PC机系统中都装有异步通信适配器，利用它可以实现异步串行通信。而且MCS-51单片机本身具有一个全双工的串行接口，因此只要配以电平转换的驱动电路、隔离电路就可以组成一个简单可行的通信接口。 由于MCS-51单片机的输入和输出电平为TTL电平，而PC机配置的是RS-232C 标准串行接口，二者电气规范不一致，因此要完成PC机与单片机的数据通信，必须进行电平转换。 注明：3）RS-232C上传送的数字量采用负逻辑，且与地对称 逻辑1：-3 ～-15V 逻辑0：+3～+15V 所以与单片机连接时常常需要加入电平转换芯片： 2 实现串口通信的三个步骤： （1）硬件连接 51单片机有一个全双工的串行通讯口，所以单片机和计算机之间可以方便地进行串口通讯。进行串行通讯时要满足一定的条件，比如计算机的串口是RS232电平的，而单片机的串口是TTL电平的，两者之间必须有一个电平转换电路，我们采用了专用芯片MAX232进行转换。我们采用了三线制连接串口，也就是说和计算机的9针串口只连接其中的3根线：第5脚的GND、第2脚的RXD、第3脚的TXD。电路如下图所示，MAX232的第10脚和单片机的11脚连接，第9脚和单片机的10脚连接，第15脚和单片机的20脚连接。 使用MAX232串口通信电路图（9孔串口接头） （2）串行通信程序设计 ①通信协议的使用 通信协议是通信设备在通信前的约定。单片机、计算机有了协议这种 约定，通信双方才能明白对方的意图，以进行下一步动作。假定我们需要在PC 机与单片机之间进行通信，在设计过程中，有如下约定： 基于C++Builder的串口数据实时曲线绘制的实现 范寒柏, 赵建锐, 谢汉华时间:2011年10月27日来源：微型机与应用2011年第14期 关键词:C++ Builder实时曲线MSComm控件串行通信 摘要:介绍了在C++ Builder 6.0软件开发环境下设计温盐深实时数据采集与处理系统的方法，其中PC机与数据接收装置之间的串行通信采用MSComm串行通信控件来实现,并给出了相应的程序代码，利用模拟数据源模拟现场采集数据，将实地测量得到的温度和电导率值依次通过串口传输到本软件中，结果证实系统运行稳定，该后台软件以实时曲线绘制的方式形象、直观地显示了采集的温盐深数据，并能把盐度、密度、声速的曲线绘制出来，运行良好。 关键词：C++ Builder; 实时曲线; MSComm控件; 串行通信 在海洋投弃式温盐深剖面测量中，需要进行大量的实时数据采集和可视化显示，经过软件处理后形成的曲线比原始数据更能给人直观的印象。C++ Builder是一种面向对象的可视化应用程序开发工具，为程序开发人员提供了十分轻松而快捷的开发环境。它以其友好的界面设计和方便的编程实现，广泛应用于工程实践中。本系统在C++ Builder环境下针对抛弃式温盐深剖面测量系统进行软件设计。其中利用C++ Builder进行数据的串行传输的方法,只要根据实际情况对代码稍做修改，即可应用到其他的以串口测量的系统，具有一定的通用性。 1 系统概述 该软件在Windows操作系统下以C++ Builder为开发平台，应用于海洋投弃式温盐深剖面测量系统中的实时数据采集与处理。如图1所示，其主要包含与下位机通信、实时数据处理、实时曲线显示和数据导出，浏览等部分。软件以RS 232方式与下位机进行通信。对接收的数据进行处理和温度盐度曲线绘制后可在每次测量结束后自动将所有数据存储到Realtime Data文件夹和Backup文件夹中。操作人员可以对历史数据进行查询，并根据需要打印。 2 串口通信 2.1 MSComm控件 MSComm(Microsoft Communications Contro1)控件是Microsoft公司提供的简化Windows 下串行通信编程的ActiveX控件,它为应用程序提供了通过串行接口收发数据的简便方法。它的安装也十分简单，只需把VB安装目录下Mscomm.reg、Mscomm32.ocx、Mscomm32.dep 这三个文件拷贝到Windows的system32目录下。然后用Windows下的注册工具regsvr32注册该OCX控件,剩下的工作是在C++ Builder中导入这个ActiveX控件,进入C++ Builder 环境在Component菜单下选Import ActiveX Control,这时在列表中可以看到Microsoft Comm Control 6.0选项, 选中这个选项点击Install按钮,完成安装。在ActiveX控件页面上可以看到一个为电话图标的控件，这就是MSComm控件。 MSComm控件有很多属性，如CommPort属性用来设置或返回通信端口号，可以设置为1~16 /****************************************Copyright (c)************************************************** ** Guangzou ZLG-MCU Development Co.,LTD. ** graduate school ** https://www.doczj.com/doc/286360662.html, ** **--------------File Info------------------------------------------------------------------------------- ** File name: main.c ** Last modified Date: 2004-09-16 ** Last Version: 1.0 ** Descriptions: The main() function example template ** **------------------------------------------------------------------------------------------------------ ** Created by: Chenmingji ** Created date: 2004-09-16 ** Version: 1.0 ** Descriptions: The original version ** **------------------------------------------------------------------------------------------------------ ** Modified by: ** Modified date: ** Version: ** Descriptions: ** ***************************************************************** ***************************************/ /**************************************************************** ************ * 文件名：main.C * 功能：使用串口UART0接收上位机发送的数据，并将数据原封不动地发送回上位机。 * 说明：通讯波特率115200，8位数据位，1位停止位，无奇偶校验。 ***************************************************************** ***********/ #include 硬件描述语言设计报告设计题目串行通信接收接口(LED) 学院电子信息学院 班级电子101 姓名梁嘉诚 学号1011002006 设计时间2013年1月7~11日 引言： 随着计算机系统的应用和微机网络的发展，通信功能越来越显的重要。这里所说的通信是只计算机与外界的信息交换。因此，通信既包括计算机与外部设备之间，也包括计算机和计算机之间的信息交换。由于串行通信是在一根传输线上一位一位的传送信息，所用的传输线少，并且可以借助现成的电话网进行信息传送，因此，特别适合于远距离传输。对于那些与计算机相距不远的人－机交换设备和串行存储的外部设备如终端、打印机、逻辑分析仪、磁盘等，采用串行方式交换数据也很普遍。在实时控制和管理方面，采用多台微机处理机组成分级分布控制系统中，各CPU之间的通信一般都是串行方式。所以串行接口是微机应用系统常用的接口。 许多外设和计算机按串行方式进行通信，这里所说的串行方式，是指外设与接口电路之间的信息传送方式，实际上，CPU与接口之间仍按并行方式工作。 RS-232C标准的全称是EIA-RS-232C标准(Electronic Industrial Associate-Recommended Standard 232C)是美国EIA(电子工业联合会)与BELL等公司一起开发的1969年公布的通信协议。232标准与CCITT的V.24基本相同。 它适合于数据传输速率在0～20,000bit/s范围内、传输距离在15m以内的通信。由于通信设备厂商大都生产与RS-232C制式兼容的通信设备，因此，它作为一种标准，目前已在微机串行通信接口中广泛采用。 RS-232C标准最初是为远程通信连接数据终端设备DTE与数据通信设备DCE而制定的。因此，这个标准的制定，并未考虑计算机系统的应用要求。但目前它又广泛地被借来用于计算机(更准确地说，是计算机接口)与终端或外设之间的近端连接标准。很显然，这个标准的有些规定及定义和计算机系统是不一致的，甚至是相矛盾的。 RS-232C标准中所提到的“发送”和“接收”，都是站在DTE的立场上，而不是站在DCE的立场来定义的。由于在计算机系统中，往往是CPU和I/O设备之间传送信息，两者都是DTE，因此双方都能发送或接收 通常 RS-232 接口以9个引脚 (DB-9) 或是25个引脚 (DB-25) 的型态出现，一般个人计算机上会有两组 RS-232 接口，分别称为 COM1 和 COM2。 RS-232 标准规定的数据传输速率为每秒150、300、600、1200、2400、4800、9600、19200波特。 RS-232 标准规定，驱动器允许有2500pF的电容负载，通信距离将受此电容限制，例如，采用150pF/m的通信电缆时，最大通信距离为15m；若每米电缆的电容量减小，通信距离可以增加。传输距离短的另一原因是RS-232属单端信号传送，存在共地噪声和不能抑制共模干扰等问题，因此一般用于20m以内的通信。 设计原理： 串行通信是指使用一条数据线（另外需要地线，可能还需要控制线），将数据一位一位地依次传输，每一位数据占据一个固定的时间长度。其只需要少数几条线就可以在系统间交换信息，特别使用于计算机与计算机、计算机与外设之间的远距离通信。使用串口通信时，发送和接收到的每一个字符实际上都是一次一位的传送的，每一位为1或者为0。 1、接收数据 #include #include VB6 实时串口通信数据采集代码 介绍VB6.0利用MSComm通信控件，开发微机通过串口对工业仪表进行实时数据采集的编程技术。给出的程序代码具有通用性，并有详细的注释，可以直接或稍加改动后用于其他数据采集或实时控制程序中。 ----一台工业专用实时检测仪表，接高精度位移传感器，用于测量微小形变或微量位移，仪表测量精度为0.01毫米，测量范围最大值为50毫米。该仪表带有一个9针的RS-232C 串口，能与微机进行串口数据通信，实时传送检测数据，通过微机软件处理可实现工业实时监控。 ----该仪表的串口数据通信协议是：数据传输速率为9600bps，1位开始位，8位数据位，1位停止位，无奇偶校验位。仪表每秒发送50帧检测数据，每帧数据由4个字节组成。第一个字节定义为二进制常数0F0H，是每帧数据开始的标志字节；后面连续2个字节为数据字节，采用压缩的BCD码编码方式，高位在前，低位在后，即一个字节表示两位十进制数，则两个字节表示四位十进制数，小数点采用固定形式，定义在两字节中间；第四个字节为符号字节，该字节第八位为1，即：1 x x x x x x x 则为负数；第八位为0，即：0 x x x x x x x 则为正数。 ----例如：0F0H 26H 87H 80H 0F0H 34H 62H 00H 表示-26.87 34.62。 ----通信传输速率为9600bps，则最快速度1.04ms发送一帧数据。 9600bps = 1200Bps这样计算出来的结果相当于8bits/Frame，现在串口中协议是10bits/Frame，求解方程1200 * 8 = x * 10得到x = 960Frame/s。1000/960 = 1.04167Frame/ms。仪表每秒发送50帧数据，每帧数据有4个字节，即每秒发送200个字节，平均5.0ms 发送一个字节，连续读取串口数据时要在程序中添加循环等待程序。----为了实现实时监测功能，接收数据的读取要尽可能的快速，则设置MSComm1的属性如下： RThreshold = 1 接收缓冲区收到一个字节产生OnComm事件 InputLen = 1 每次读取一个字节 ----仪表每秒发送50帧数据，微机收到一帧完整数据至少需要20 ms 时间(1000/50=20)，然后再进行数据处理。①如果微机在下一帧数据接收前即20ms内能将数据计算处理完毕，则接收缓冲区内只会保存有一帧数据，不会存有两帧以上数据，接收缓冲区的大小不会影响实时监测效果（接收缓冲区>4字节），这时完全可以实现实时监测或实时控制；②如果微机在20ms内不能将数据计算处理完毕，接收缓冲区设置得又很大，在数据计算处理完毕前，接收缓冲区内就会保存有两帧以上数据，而且一次工作时间越长，缓冲区内滞留数据帧就越多，数据采集和数据处理之间产生逐渐增大的额外时间差，当接收缓冲区充满后，时间差不再增大，固定在某一值，部分数据因不能及时采集到接收缓冲区中，数据产生丢失现象，真实工作情况就会和微机处理结果产生较大的时间差，对实时监测和实时控制很不利，这种情单片机串口发送数据帧_0
RS232串行接口实现GPIB接口的发送和接收
串口采集数据,表格显示
串行通信技术-模拟信号转换接口
matlab串口实时波形显示
串口接收、发送数据OK
串口通信测试方法
基于C++Builder的串口数据实时曲线绘制的实现
使用串口UART0接收上位机发送的数据
串口通讯-单片机向电脑发送数据
串口通信发送接口-(LED)
串口通信接收发送数据显示
stm32,DMA采集一个AD数据,并通过DMA向串口发送
VB6 实时 串口通信 数据采集代码
相关主题
文本预览