MATLAB GUI串口程序 实现16进制收发

function varargout = zhengshi(varargin) gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @zhengshi_OpeningFcn, ... 'gui_OutputFcn', @zhengshi_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []); if nargin && ischar(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end function zhengshi_OpeningFcn(hObject, eventdata, handles, varargin) handles.output = hObject; javaFrame = get(hObject,'JavaFrame'); javaFrame.setFigureIcon(javax.swing.ImageIcon('icon.jpg')); guidata(hObject, handles); function varargout = zhengshi_OutputFcn(hObject, eventdata, handles) varargout{1} = handles.output; function com_Callback(hObject, eventdata, handles) function com_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end function rate_Callback(hObject, eventdata, handles) function rate_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end function jiaoyan_Callback(hObject, eventdata, handles) function jiaoyan_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end function data_bits_Callback(hObject, eventdata, handles) function data_bits_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end function stop_bits_Callback(hObject, eventdata, handles) function stop_bits_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end function start_serial_Callback(hObject, eventdata, handles) global scom if get(hObject,'value') com_n=sprintf('com%d',get(handles.com,'value')); rates=[300 600 1200 2400 4800 9600 19200 38400 43000 56000 57600 115200]; baud_rate=rates(get(handles.rate,'value')); switch get(handles.jiaoyan,'value') case 1 jiaoyan='none'; case 2 jiaoyan='odd'; case 3 jiaoyan='even'; end data_bits=5+get(handles.data_bits,'value'); stop_bits=get(handles.stop_bits,'value'); scom=serial(com_n); set(scom,'BaudRate',baud_rate,'Parity',jiaoyan,'DataBits',... data_bits,'StopBits',stop_bits,'BytesAvailableFcnCount',100,... 'BytesAvailableFcnMode','byte','BytesAvailableFcn',{@bytes,handles},... 'TimerPeriod',0.01,'timerfcn',{@bytes,handles}) try fopen(scom); catch msgbox('串口不可获得！'); set(hObject,'value',0) return end set(handles.xianshi,'string','') set(handles.activex1,'value',1) else t=timerfind; try stop(t); delete(t); clear t end scoms=instrfind; stopasync(scom); fclose(scoms); delete(scoms); set(handles.activex1,'value',0) end %% 显示 function bytes(obj,eventdata,handles) n=get(obj,'BytesAvailable'); if n a=fread(obj,n,'uchar'); if ~get(handles.stop_disp,'value') if ~get(handles.hex_disp,'value') c=char(a'); set(handles.xianshi,'string',[get(handles.xianshi,'string') c]) else % c=str2num(dec2hex(a'))' num2str(c) c1=dec2hex(a'); c2=reshape(c1',1,2*n); c=num2str(c2); set(handles.xianshi,'string',[get(handles.xianshi,'string') c ' ']) end end end function qingkong_Callback(hObject, eventdata, handles) set(handles.xianshi,'string','') function stop_disp_Callback(hObject, eventdata, handles) function radiobutton1_Callback(hObject, eventdata, handles) function radiobutton2_Callback(hObject, eventdata, handles) function togglebutton4_Callback(hObject, eventdata, handles) function hex_disp_Callback(hObject, eventdata, handles) %% 发送 function manual_send_Callback(hObject, eventdata, handles) global scom if ~get(handles.hex_send,'value') str=get(handles.sends,'string'); val=double(str); else % 有问题 %val=hex2dec(get(handles.sends,'string')) val1=get(handles.sends,'string') val2=upper(val1) val3=abs(val2) n1=length(val3); n2=n1/2; j=1; for(i=1:n1) if val3(i)<65 a(i)=val3(i)-48; else a(i)=val3(i)-55; end end i=1; while n2>0 val(j)=a(i)*16+a(i+1) i=i+2; j=j+1; n2=n2-1; end end if ~isempty(val) try str=get(scom,'TransferStatus'); catch return end while 1 if ~(strcmp(str, 'write')||strcmp(str,'read&write')) fwrite(scom,val,'uint8','async'); break end end end function clear_send_Callback(hObject, eventdata, handles) set(handles.sends,'string','') function checkbox2_Callback(hObject, eventdata, handles) if get(hObject,'value') t1=0.001*str2num(get(handles.period1,'string')); t=timer('BusyMode','queue','ExecutionMode','fixedrate',... 'Period',t1,'TimerFcn',{@manual_send_Callback,handles}); start(t); else t=timerfind; stop(t); delete(t); clear t end function period1_Callback(hObject, eventdata, handles) function period1_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end function clear_count_Callback(hObject, eventdata, handles) set([handles.rec,handles.trans],'string','0') % --- Executes on button press in guanbi. function guanbi_Callback(hObject, eventdata, handles) % hObject handle to guanbi (see GCBO) % eventdata reserved - to be defined in a future version of MATLAB % handles structure with handles and user data (see GUIDATA) % Hint: get(hObject,'Value') returns toggle state of guanbi % -------------------------------------------------------------------- function activex1_Change(hObject, eventdata, handles) % hObject handle to activex1 (see GCBO) % eventdata structure with parameters passed to COM event listener % handles structure with handles and user data (see GUIDATA)