找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2606|回复: 1
收起左侧

串口通信助手 MATLAB版本源程序

[复制链接]
ID:620905 发表于 2019-10-9 10:36 | 显示全部楼层 |阅读模式
串口通信助手 matlab程序
串口通信——MATLAB.png

源程序如下:
  1. function varargout = serial_communication2(varargin)
  2. gui_Singleton = 1;
  3. gui_State = struct('gui_Name',       mfilename, ...
  4.                    'gui_Singleton',  gui_Singleton, ...
  5.                    'gui_OpeningFcn', @serial_communication2_OpeningFcn, ...
  6.                    'gui_OutputFcn',  @serial_communication2_OutputFcn, ...
  7.                    'gui_LayoutFcn',  [] , ...
  8.                    'gui_Callback',   []);
  9. if nargin && ischar(varargin{1})
  10.     gui_State.gui_Callback = str2func(varargin{1});
  11. end

  12. if nargout
  13.     [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
  14. else
  15.     gui_mainfcn(gui_State, varargin{:});
  16. end

  17. function serial_communication2_OpeningFcn(hObject, eventdata, handles, varargin)
  18. handles.output = hObject;
  19. warning('off');
  20. javaFrame = get(hObject, 'JavaFrame');
  21. javaFrame.setFigureIcon(javax.swing.ImageIcon('icon.jpg'));
  22. %% 初始化参数
  23. hasData = false; %表征串口是否接收到数据
  24. isShow = false;  %表征是否正在进行数据显示,即是否正在执行函数dataDisp
  25. isStopDisp = false;  %表征是否按下了【停止显示】按钮
  26. isHexDisp = false;   %表征是否勾选了【十六进制显示】
  27. isHexSend = false;   %表征是否勾选了【十六进制发送】
  28. numRec = 0;    %接收字符计数
  29. numSend = 0;   %发送字符计数
  30. strRec = '';   %已接收的字符串
  31. %% 将上述参数作为应用数据,存入窗口对象内
  32. setappdata(hObject, 'hasData', hasData);
  33. setappdata(hObject, 'strRec', strRec);
  34. setappdata(hObject, 'numRec', numRec);
  35. setappdata(hObject, 'numSend', numSend);
  36. setappdata(hObject, 'isShow', isShow);
  37. setappdata(hObject, 'isStopDisp', isStopDisp);
  38. setappdata(hObject, 'isHexDisp', isHexDisp);
  39. setappdata(hObject, 'isHexSend', isHexSend);
  40. guidata(hObject, handles);

  41. function varargout = serial_communication2_OutputFcn(hObject, eventdata, handles)
  42. varargout{1} = handles.output;

  43. function com_Callback(hObject, ~, handles)

  44. function com_CreateFcn(hObject, eventdata, handles)
  45. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
  46.     set(hObject,'BackgroundColor','white');
  47. end

  48. function rate_Callback(hObject, eventdata, handles)

  49. function rate_CreateFcn(hObject, eventdata, handles)
  50. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
  51.     set(hObject,'BackgroundColor','white');
  52. end

  53. function jiaoyan_Callback(hObject, eventdata, handles)

  54. function jiaoyan_CreateFcn(hObject, eventdata, handles)
  55. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
  56.     set(hObject,'BackgroundColor','white');
  57. end

  58. function data_bits_Callback(hObject, eventdata, handles)

  59. function data_bits_CreateFcn(hObject, eventdata, handles)
  60. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
  61.     set(hObject,'BackgroundColor','white');
  62. end

  63. function stop_bits_Callback(hObject, eventdata, handles)

  64. function stop_bits_CreateFcn(hObject, eventdata, handles)
  65. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
  66.     set(hObject,'BackgroundColor','white');
  67. end

  68. function start_serial_Callback(hObject, eventdata, handles)
  69. %   【打开/关闭串口】按钮的回调函数
  70. %    打开串口,并初始化相关参数

  71. %% 若按下【打开串口】按钮,打开串口
  72. if get(hObject, 'value')
  73.     %% 获取串口的端口名
  74.     com_n = sprintf('com%d', get(handles点com, 'value'));
  75.     %% 获取波特率
  76.     rates = [300 600 1200 2400 4800 9600 19200 38400 43000 56000 57600 115200];
  77.     baud_rate = rates(get(handles.rate, 'value'));
  78.     %% 获取校验位设置
  79.     switch get(handles.jiaoyan, 'value')
  80.         case 1
  81.             jiaoyan = 'none';
  82.         case 2
  83.             jiaoyan = 'odd';
  84.         case 3
  85.             jiaoyan = 'even';
  86.     end
  87.     %% 获取数据位个数
  88.     data_bits = 5 + get(handles.data_bits, 'value');
  89.     %% 获取停止位个数
  90.     stop_bits = get(handles.stop_bits, 'value');
  91.     %% 创建串口对象
  92.     scom = serial(com_n);
  93.     %% 配置串口属性,指定其回调函数
  94.     set(scom, 'BaudRate', baud_rate, 'Parity', jiaoyan, 'DataBits',...
  95.         data_bits, 'StopBits', stop_bits, 'BytesAvailableFcnCount', 10,...
  96.         'BytesAvailableFcnMode', 'byte', 'BytesAvailableFcn', {@bytes, handles},...
  97.         'TimerPeriod', 0.05, 'timerfcn', {@dataDisp, handles});
  98.     %% 将串口对象的句柄作为用户数据,存入窗口对象
  99.     set(handles.figure1, 'UserData', scom);
  100.     %% 尝试打开串口
  101.     try
  102.         fopen(scom);  %打开串口
  103.     catch   % 若串口打开失败,提示“串口不可获得!”
  104.         msgbox('串口不可获得!');
  105.         set(hObject, 'value', 0);  %弹起本按钮
  106.         return;
  107.     end
  108.     %% 打开串口后,允许串口发送数据,清空接收显示区,点亮串口状态指示灯,
  109.     %% 并更改本按钮文本为“关闭串口”
  110.     set(handles.period_send, 'Enable', 'on');  %启用【自动发送】按钮
  111.     set(handles.manual_send, 'Enable', 'on');  %启用【手动发送】按钮
  112.     set(handles.xianshi, 'string', ''); %清空接收显示区
  113.     set(handles.activex1, 'value', 1);  %点亮串口状态指示灯
  114.     set(hObject, 'String', '关闭串口');  %设置本按钮文本为“关闭串口”
  115. else  %若关闭串口
  116.     %% 停止并删除定时器
  117.     t = timerfind;
  118.     if ~isempty(t)
  119.         stop(t);
  120.         delete(t);
  121.     end
  122.     %% 停止并删除串口对象
  123.     scoms = instrfind;
  124.     stopasync(scoms);
  125.     fclose(scoms);
  126.     delete(scoms);
  127.     %% 禁用【自动发送】和【手动发送】按钮,熄灭串口状态指示灯
  128.     set(handles.period_send, 'Enable', 'off', 'value', 0); %禁用【自动发送】按钮
  129.     set(handles.manual_send, 'Enable', 'off');  %禁用【手动发送】按钮
  130.     set(handles.activex1, 'value', 0);  %熄灭串口状态指示灯
  131. end

  132. function dataDisp(obj, event, handles)
  133. global value
  134. %        串口的TimerFcn回调函数
  135. %   串口数据显示
  136. %% 获取参数
  137. hasData = getappdata(handles.figure1, 'hasData'); %串口是否收到数据
  138. strRec = getappdata(handles.figure1, 'strRec');   %串口数据的字符串形式,定时显示该数据
  139. numRec = getappdata(handles.figure1, 'numRec');   %串口接收到的数据个数
  140. %% 若串口没有接收到数据,先尝试接收串口数据
  141. if ~hasData
  142.     bytes(obj, event, handles);
  143. end
  144. %% 若串口有数据,显示串口数据
  145. if hasData
  146.     %% 给数据显示模块加互斥锁
  147.     %% 在执行显示数据模块时,不接受串口数据,即不执行BytesAvailableFcn回调函数
  148.     setappdata(handles.figure1, 'isShow', true);
  149.     %% 若要显示的字符串长度超过10000,清空显示区
  150.     if length(strRec) > 10000
  151.         strRec = '';
  152.         setappdata(handles.figure1, 'strRec', strRec);
  153.     end
  154.     %% 显示数据
  155.     set(handles.xianshi, 'string', strRec);

  156. %保存成.txt文件   
  157. % [FileName PathName]=uiputfile({'*.txt','Txt Files(*.txt)';'*.*','All Files(*.*)'},'choose a File');
  158. % ysw= [PathName FileName];
  159. % dlmwrite(ysw, strRec,'delimiter','\t');
  160. % save ysw strRec
  161. % save(char(ysw), 'strRec')

  162. value=get(handles.xianshi,'string');
  163. % save('ysw.txt','value');
  164. save('ysw.mat','value');
  165. %
  166. % if isempty(value)
  167. %     msgbox( '当前没有接收到数据','提示');
  168. %     fclose(gcf)
  169. % else value
  170. if value
  171.     value1=textscan(value,'%s'); %读取其中的数据
  172.     % value=textscan(ysw,'%s'); %读取其中的数据
  173.     value2=value1{1};%得到数据,存储到value1中
  174.     num=length(value2);
  175.     val=[];
  176.     i=1;
  177.     for ii=1:2:num-1
  178.         val=[val,hex2dec(strcat(value2{ii},value2{ii+1}))];%转换
  179.         time(i) = 0.05*ii;
  180.         i=i+1;
  181.     end
  182.     axes(handles.plotAD);
  183.    
  184.     plot(handles.plotAD,time,val);
  185. %     hold on
  186. %     close(figure(1))
  187. %   plot(val,'DisplayName','val','YDataSource','val');
  188. %   figure(gcf)
  189. %   set(gcf,'currentaxes',handles.plotAD);   
  190. end

  191. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

  192.     %% 更新接收计数
  193.     set(handles.rec,'string', numRec);
  194.     %% 更新hasData标志,表明串口数据已经显示
  195.     setappdata(handles.figure1, 'hasData', false);
  196.     %% 给数据显示模块解锁
  197.     setappdata(handles.figure1, 'isShow', false);
  198. end

  199. function bytes(obj, ~, handles)
  200. %   串口的BytesAvailableFcn回调函数
  201. %   串口接收数据
  202. %% 获取参数
  203. strRec = getappdata(handles.figure1, 'strRec'); %获取串口要显示的数据
  204. numRec = getappdata(handles.figure1, 'numRec'); %获取串口已接收数据的个数
  205. isStopDisp = getappdata(handles.figure1, 'isStopDisp'); %是否按下了【停止显示】按钮
  206. isHexDisp = getappdata(handles.figure1, 'isHexDisp'); %是否十六进制显示
  207. isShow = getappdata(handles.figure1, 'isShow');  %是否正在执行显示数据操作
  208. %% 若正在执行数据显示操作,暂不接收串口数据
  209. if isShow
  210.     return;
  211. end
  212. %% 获取串口可获取的数据个数
  213. n = get(obj, 'BytesAvailable');
  214. %% 若串口有数据,接收所有数据
  215. if n
  216.     %% 更新hasData参数,表明串口有数据需要显示
  217.     setappdata(handles.figure1, 'hasData', true);
  218.     %% 读取串口数据
  219.     a = fread(obj, n, 'uchar');
  220.     %% 若没有停止显示,将接收到的数据解算出来,准备显示
  221.     if ~isStopDisp
  222.         %% 根据进制显示的状态,解析数据为要显示的字符串
  223.         if ~isHexDisp
  224.             c = char(a');
  225.         else
  226.             strHex = dec2hex(a')';
  227.             strHex2 = [strHex; blanks(size(a, 1))];
  228.             c = strHex2(:)';
  229.         end
  230.         %% 更新已接收的数据个数
  231.         numRec = numRec + size(a, 1);
  232.         %% 更新要显示的字符串
  233.         strRec = [strRec c];
  234.     end
  235.     %% 更新参数
  236.     setappdata(handles.figure1, 'numRec', numRec); %更新已接收的数据个数
  237.     setappdata(handles.figure1, 'strRec', strRec); %更新要显示的字符串
  238. end


  239. function qingkong_Callback(hObject, eventdata, handles)
  240. %% 清空要显示的字符串
  241. setappdata(handles.figure1, 'strRec', '');
  242. %% 清空显示
  243. set(handles.xianshi, 'String', '');

  244. function stop_disp_Callback(hObject, eventdata, handles)
  245. %% 根据【停止显示】按钮的状态,更新isStopDisp参数
  246. if get(hObject, 'Value')
  247.     isStopDisp = true;
  248. else
  249.     isStopDisp = false;
  250. end
  251. setappdata(handles.figure1, 'isStopDisp', isStopDisp);

  252. function radiobutton1_Callback(hObject, eventdata, handles)

  253. function radiobutton2_Callback(hObject, eventdata, handles)

  254. function togglebutton4_Callback(hObject, eventdata, handles)

  255. function hex_disp_Callback(hObject, eventdata, handles)
  256. %% 根据【十六进制显示】复选框的状态,更新isHexDisp参数
  257. if get(hObject, 'Value')
  258.     isHexDisp = true;
  259. else
  260.     isHexDisp = false;
  261. end
  262. setappdata(handles.figure1, 'isHexDisp', isHexDisp);

  263. function manual_send_Callback(hObject, eventdata, handles)
  264. scom = get(handles.figure1, 'UserData');
  265. numSend = getappdata(handles.figure1, 'numSend');
  266. val = get(handles.sends, 'UserData');
  267. numSend = numSend + length(val);
  268. set(handles.trans, 'string', num2str(numSend));
  269. setappdata(handles.figure1, 'numSend', numSend);
  270. %% 若要发送的数据不为空,发送数据
  271. if ~isempty(val)
  272.     %% 设置倒计数的初值
  273.     n = 1000;
  274.     while n
  275.         %% 获取串口的传输状态,若串口没有正在写数据,写入数据
  276.         str = get(scom, 'TransferStatus');
  277.         if ~(strcmp(str, 'write') || strcmp(str, 'read&write'))
  278.             fwrite(scom, val, 'uint8', 'async'); %数据写入串口
  279.             break;
  280.         end
  281.         n = n - 1; %倒计数
  282.     end
  283. end


  284. function clear_send_Callback(hObject, eventdata, handles)
  285. %% 清空发送区
  286. set(handles.sends, 'string', '')
  287. %% 更新要发送的数据
  288. set(handles.sends, 'UserData', []);

  289. function checkbox2_Callback(hObject, eventdata, handles)


  290. function period_send_Callback(hObject, eventdata, handles)
  291. %   【自动发送】按钮的Callback回调函数
  292. %% 若按下【自动发送】按钮,启动定时器;否则,停止并删除定时器
  293. if get(hObject, 'value')
  294.     t1 = 0.001 * str2double(get(handles.period1, 'string'));%获取定时器周期
  295.     t = timer('ExecutionMode','fixedrate', 'Period', t1, 'TimerFcn',...
  296.         {@manual_send_Callback, handles}); %创建定时器
  297.     set(handles.period1, 'Enable', 'off'); %禁用设置定时器周期的Edit Text对象
  298.     set(handles.sends, 'Enable', 'inactive'); %禁用数据发送编辑区
  299.     start(t);  %启动定时器
  300. else
  301.     set(handles.period1, 'Enable', 'on'); %启用设置定时器周期的Edit Text对象
  302.     set(handles.sends, 'Enable', 'on');   %启用数据发送编辑区
  303.     t = timerfind; %查找定时器
  304.     stop(t); %停止定时器
  305.     delete(t); %删除定时器
  306. end

  307. function period1_Callback(hObject, eventdata, handles)

  308. function period1_CreateFcn(hObject, eventdata, handles)
  309. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
  310.     set(hObject,'BackgroundColor','white');
  311. end

  312. function clear_count_Callback(hObject, eventdata, handles)
  313. %% 计数清零,并更新参数numRec和numSend
  314. set([handles.rec, handles.trans], 'string', '0')
  315. setappdata(handles.figure1, 'numRec', 0);
  316. setappdata(handles.figure1, 'numSend', 0);

  317. function copy_data_Callback(hObject, eventdata, handles)
  318. %% 设置是否允许复制接收数据显示区内的数据
  319. if get(hObject,'value')
  320.     set(handles.xianshi, 'enable', 'on');
  321. else
  322.     set(handles.xianshi, 'enable', 'inactive');
  323. end

  324. function figure1_CloseRequestFcn(hObject, eventdata, handles)
  325. %   关闭窗口时,检查定时器和串口是否已关闭
  326. %   若没有关闭,则先关闭
  327. %% 查找定时器
  328. t = timerfind;
  329. %% 若存在定时器对象,停止并关闭
  330. if ~isempty(t)
  331.     stop(t);  %若定时器没有停止,则停止定时器
  332.     delete(t);
  333. end
  334. %% 查找串口对象
  335. scoms = instrfind;
  336. %% 尝试停止、关闭删除串口对象
  337. try
  338.     stopasync(scoms);
  339.     fclose(scoms);
  340.     delete(scoms);
  341. end
  342. %% 关闭窗口
  343. delete(hObject);

  344. function hex_send_Callback(hObject, eventdata, handles)
  345. %% 根据【十六进制发送】复选框的状态,更新isHexSend参数
  346. if get(hObject,'value')
  347.     isHexSend = true;
  348. else
  349.     isHexSend = false;
  350. end
  351. setappdata(handles.figure1, 'isHexSend', isHexSend);
  352. %% 更新要发送的数据
  353. sends_Callback(handles.sends, eventdata, handles);


  354. function sends_Callback(hObject, eventdata, handles)
  355. %   数据发送编辑区的Callback回调函数
  356. %   更新要发送的数据
  357. %% 获取数据发送编辑区的字符串
  358. str = get(hObject, 'string');
  359. %% 获取参数isHexSend的值
  360. isHexSend = getappdata(handles.figure1, 'isHexSend');
  361. if ~isHexSend %若为ASCII值形式发送,直接将字符串转化为对应的数值
  362.     val = double(str);
  363. else  %若为十六进制发送,获取要发送的数据
  364.     n = find(str == ' ');   %查找空格
  365.     n =[0 n length(str)+1]; %空格的索引值
  366.     %% 每两个相邻空格之间的字符串为数值的十六进制形式,将其转化为数值
  367.     for i = 1 : length(n)-1
  368.         temp = str(n(i)+1 : n(i+1)-1);  %获得每段数据的长度,为数据转换为十进制做准备
  369.         if ~rem(length(temp), 2)
  370.             b{i} = reshape(temp, 2, [])'; %将每段十六进制字符串转化为单元数组
  371.         else
  372.             break;
  373.         end
  374.     end
  375.     val = hex2dec(b)';     %将十六进制字符串转化为十进制数,等待写入串口
  376. end
  377. %% 更新要显示的数据
  378. set(hObject, 'UserData', val);


  379. % --- Executes on button press in ADplot.
  380. function ADplot_Callback(hObject, eventdata, handles)
  381. %
  382. % fid=fopen('ysw.txt','r'); %以只读方式打开文件
  383. % value=textscan(fid,'%s'); %读取其中的数据
  384. global value
  385. if value
  386.     load ysw.mat
  387.     value1=textscan(value,'%s'); %读取其中的数据
  388.     % value=textscan(ysw,'%s'); %读取其中的数据
  389.     value2=value1{1};%得到数据,存储到value1中
  390.     num=length(value2);
  391.     val=[];
  392.     for ii=1:2:num-1
  393.         val=[val,hex2dec(strcat(value2{ii},value2{ii+1}))];%转换
  394.     end

  395.     plot(val,'DisplayName','val','YDataSource','val');figure(gcf)

  396.     axes(handles.plotAD);
  397. end

  398. % --- Executes on button press in save_data.
  399. function save_data_Callback(hObject, eventdata, handles)
  400. global value
  401. % save('ADdata.txt','val');
  402. close(figure(1))
  403. m=msgbox('              数据已保存!','提示');
  404. pause(1);delete(m);
  405. guidata(hObject,handles);
复制代码
0.png
所有资料51hei提供下载:
serial_communication2.rar (17.46 KB, 下载次数: 41)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

回复

使用道具 举报

ID:669746 发表于 2019-12-21 13:05 | 显示全部楼层
请问楼主大大,图像显示部分,想要把单位换成dB,怎么改呀,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表