matlab串口程序.docx
- 文档编号:11024211
- 上传时间:2023-02-24
- 格式:DOCX
- 页数:12
- 大小:67.43KB
matlab串口程序.docx
《matlab串口程序.docx》由会员分享,可在线阅读,更多相关《matlab串口程序.docx(12页珍藏版)》请在冰豆网上搜索。
matlab串口程序
matlab串口程序
LT
set(handles.activex1,'value',0);%熄灭串口状态指示灯
end
functiondataDisp(obj,event,handles)
globalvalue
%串口的TimerFcn回调函数
%串口数据显示
%%获取参数
hasData=getappdata(handles.figure1,'hasData');%串口是否收到数据
strRec=getappdata(handles.figure1,'strRec');%串口数据的字符串形式,定时显示该数据
numRec=getappdata(handles.figure1,'numRec');%串口接收到的数据个数
%%若串口没有接收到数据,先尝试接收串口数据
if~hasData
bytes(obj,event,handles);
end
%%若串口有数据,显示串口数据
ifhasData
%%给数据显示模块加互斥锁
%%在执行显示数据模块时,不接受串口数据,即不执行BytesAvailableFcn回调函数
setappdata(handles.figure1,'isShow',true);
%%若要显示的字符串长度超过10000,清空显示区
iflength(strRec)>10000
strRec='';
setappdata(handles.figure1,'strRec',strRec);
end
%%显示数据
set(handles.xianshi,'string',strRec);
%%
value=get(handles.xianshi,'string');
value=textscan(value,'%s');%读取其中的数据
value=value{1};%得到数据,存储到value中
value=hex2dec(value);
%value=cellfun(@str2double,value);%把得到的字符转换成数字
figure
(1),plot(value)
%%更新接收计数
set(handles.rec,'string',numRec);
%%更新hasData标志,表明串口数据已经显示
setappdata(handles.figure1,'hasData',false);
%%给数据显示模块解锁
setappdata(handles.figure1,'isShow',false);
end
functionbytes(obj,~,handles)
%串口的BytesAvailableFcn回调函数
%串口接收数据
%%获取参数
strRec=getappdata(handles.figure1,'strRec');%获取串口要显示的数据
numRec=getappdata(handles.figure1,'numRec');%获取串口已接收数据的个数
isStopDisp=getappdata(handles.figure1,'isStopDisp');%是否按下了【停止显示】按钮
isHexDisp=getappdata(handles.figure1,'isHexDisp');%是否十六进制显示
isShow=getappdata(handles.figure1,'isShow');%是否正在执行显示数据操作
%%若正在执行数据显示操作,暂不接收串口数据
ifisShow
return;
end
%%获取串口可获取的数据个数
n=get(obj,'BytesAvailable');
%%若串口有数据,接收所有数据
ifn
%%更新hasData参数,表明串口有数据需要显示
setappdata(handles.figure1,'hasData',true);
%%读取串口数据
a=fread(obj,n,'uchar');
%%若没有停止显示,将接收到的数据解算出来,准备显示
if~isStopDisp
%%根据进制显示的状态,解析数据为要显示的字符串
if~isHexDisp
c=char(a');
else
strHex=dec2hex(a')';
strHex2=[strHex;blanks(size(a,1))];
c=strHex2(:
)';
end
%%更新已接收的数据个数
numRec=numRec+size(a,1);
%%更新要显示的字符串
strRec=[strRecc];
end
%%更新参数
setappdata(handles.figure1,'numRec',numRec);%更新已接收的数据个数
setappdata(handles.figure1,'strRec',strRec);%更新要显示的字符串
end
functionqingkong_Callback(hObject,eventdata,handles)
%%清空要显示的字符串
setappdata(handles.figure1,'strRec','');
%%清空显示
set(handles.xianshi,'String','');
functionstop_disp_Callback(hObject,eventdata,handles)
%%根据【停止显示】按钮的状态,更新isStopDisp参数
ifget(hObject,'Value')
isStopDisp=true;
else
isStopDisp=false;
end
setappdata(handles.figure1,'isStopDisp',isStopDisp);
functionhex_disp_Callback(hObject,eventdata,handles)
%%根据【十六进制显示】复选框的状态,更新isHexDisp参数
ifget(hObject,'Value')
isHexDisp=true;
else
isHexDisp=false;
end
setappdata(handles.figure1,'isHexDisp',isHexDisp);
functionmanual_send_Callback(hObject,eventdata,handles)
scom=get(handles.figure1,'UserData');
numSend=getappdata(handles.figure1,'numSend');
val=get(handles.sends,'UserData');
numSend=numSend+length(val);
set(handles.trans,'string',num2str(numSend));
setappdata(handles.figure1,'numSend',numSend);
%%若要发送的数据不为空,发送数据
if~isempty(val)
%%设置倒计数的初值
n=1000;
whilen
%%获取串口的传输状态,若串口没有正在写数据,写入数据
str=get(scom,'TransferStatus');
if~(strcmp(str,'write')||strcmp(str,'read&write'))
fwrite(scom,val,'uint8','async');%数据写入串口
break;
end
n=n-1;%倒计数
end
end
functionclear_send_Callback(hObject,eventdata,handles)
%%清空发送区
set(handles.sends,'string','')
%%更新要发送的数据
set(handles.sends,'UserData',[]);
functioncheckbox2_Callback(hObject,eventdata,handles)
functionperiod_send_Callback(hObject,eventdata,handles)
%【自动发送】按钮的Callback回调函数
%%若按下【自动发送】按钮,启动定时器;否则,停止并删除定时器
ifget(hObject,'value')
t1=0.001*str2double(get(handles.period1,'string'));%获取定时器周期
t=timer('ExecutionMode','fixedrate','Period',t1,'TimerFcn',...
{@manual_send_Callback,handles});%创建定时器
set(handles.period1,'Enable','off');%禁用设置定时器周期的EditText对象
set(handles.sends,'Enable','inactive');%禁用数据发送编辑区
start(t);%启动定时器
else
set(handles.period1,'Enable','on');%启用设置定时器周期的EditText对象
set(handles.sends,'Enable','on');%启用数据发送编辑区
t=timerfind;%查找定时器
stop(t);%停止定时器
delete(t);%删除定时器
end
functionperiod1_Callback(hObject,eventdata,handles)
functionperiod1_CreateFcn(hObject,eventdata,handles)
ifispc&&isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor','white');
end
functionclear_count_Callback(hObject,eventdata,handles)
%%计数清零,并更新参数numRec和numSend
set([handles.rec,handles.trans],'string','0')
setappdata(handles.figure1,'numRec',0);
setappdata(handles.figure1,'numSend',0);
functioncopy_data_Callback(hObject,eventdata,handles)
%%设置是否允许复制接收数据显示区内的数据
ifget(hObject,'value')
set(handles.xianshi,'enable','on');
else
set(handles.xianshi,'enable','inactive');
end
functionfigure1_CloseRequestFcn(hObject,eventdata,handles)
%关闭窗口时,检查定时器和串口是否已关闭
%若没有关闭,则先关闭
%%查找定时器
t=timerfind;
%%若存在定时器对象,停止并关闭
if~isempty(t)
stop(t);%若定时器没有停止,则停止定时器
delete(t);
end
%%查找串口对象
scoms=instrfind;
%%尝试停止、关闭删除串口对象
try
stopasync(scoms);
fclose(scoms);
delete(scoms);
end
%%关闭窗口
delete(hObject);
functionhex_send_Callback(hObject,eventdata,handles)
%%根据【十六进制发送】复选框的状态,更新isHexSend参数
ifget(hObject,'value')
isHexSend=true;
else
isHexSend=false;
end
setappdata(handles.figure1,'isHexSend',isHexSend);
%%更新要发送的数据
sends_Callback(handles.sends,eventdata,handles);
functionsends_Callback(hObject,eventdata,handles)
%数据发送编辑区的Callback回调函数
%更新要发送的数据
%%获取数据发送编辑区的字符串
str=get(hObject,'string');
%%获取参数isHexSend的值
isHexSend=getappdata(handles.figure1,'isHexSend');
if~isHexSend%若为ASCII值形式发送,直接将字符串转化为对应的数值
val=double(str);
else%若为十六进制发送,获取要发送的数据
n=find(str=='');%查找空格
n=[0nlength(str)+1];%空格的索引值
%%每两个相邻空格之间的字符串为数值的十六进制形式,将其转化为数值
fori=1:
length(n)-1
temp=str(n(i)+1:
n(i+1)-1);%获得每段数据的长度,为数据转换为十进制做准备
if~rem(length(temp),2)
b{i}=reshape(temp,2,[])';%将每段十六进制字符串转化为单元数组
else
break;
end
end
val=hex2dec(b)';%将十六进制字符串转化为十进制数,等待写入串口
end
%%更新要显示的数据
set(hObject,'UserData',val);
%---Executesonbuttonpressinpushbutton3.
functionpushbutton3_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton3(seeGCBO)
%eventdatareserved-tobedefinedinafutureversionofMATLAB
%handlesstructurewithhandlesanduserdata(seeGUIDATA)
globalvalue
h_temp=findobj('tag','edit2');
outpath=get(h_temp,'String');
outpath=[outpath'\'];
str_img=strcat('data','.txt');
value=get(handles.xianshi,'string');
value=textscan(value,'%s');%读取其中的数据
value=value{1};%得到数据,存储到value中
value=hex2dec(value);
%value=cellfun(@str2double,value);%把得到的字符转换成数字
save([outpathstr_img],'value','-ascii');
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- matlab 串口 程序
![提示](https://static.bdocx.com/images/bang_tan.gif)