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'）;
升级会员 